Передача нескольких выборов из selectizeInput в запрос MySQL

Question

Передача нескольких выборов из selectizeInput в запрос MySQL

0

Я пытаюсь передать несколько значений selectizeInput в MySQL-запрос.

Вопрос в том, что является правильным синтаксисом для такого рода операций в блестящем приложении?

То, что я пробовал и работает с одним значением

  library(shiny)
  library(DBI)
  library(RMySQL)

  server <- shinyServer(function(input, output, session) {
            con <- dbConnect(MySQL(), user='user', port = 3306, 
   password='pwd', dbname='db', host='host' )

           on.exit(dbDisconnect(con), add = TRUE) 

  output$textview <- renderUI({

         con <- dbConnect(MySQL(), user='user', port = 3306, password='pwd', 
               dbname='db', host='host' )

         on.exit(dbDisconnect(con), add = TRUE)


       text <- reactive({
                dbGetQuery(con, statement = 
                paste0(" SELECT author,  title, publicationDate,  FROM publications  
               WHERE publications.year LIKE %'",input$year,"'% ")
             )
               })

                text <-text()
                HTML(text)

          })




   session$onSessionEnded(function() { dbDisconnect(con) })
     })


 ui_panel <- 
      tabPanel("Multi-Select Input Test",
        sidebarLayout(
           sidebarPanel( 


         selectizeInput('year', 'Select Year of publication:', choices = 
         publications.year, multiple = TRUE  options = list(maxOptions = 5)
         ),

                   br(),
                   submitButton("Update Text View"),
                   br()
       ),
       mainPanel(
       tabsetPanel(tabPanel("Text",htmlOutput("textview"))

       )
     )
))


 ui <- shinyUI(navbarPage(" ",ui_panel))

 runApp(list(ui=ui,server=server))

Каков правильный синтаксис в команде MySQL, который позволит мне передать более одного значения из selectizeInput (input $ year)? Я пытался использовать IN вместо LIKE, как показано ниже, но он не работал

    text <- reactive({
                dbGetQuery(con, statement = 
                paste0(" SELECT author,  title, publicationDate,  FROM 
                publications WHERE publications.year IN %'",input$year,"'% ")
             )
               })

R noob 30 авг. 2018, в 08:19

Источник

Теги:

mysql

r

shiny

shiny-reactivity

1 ответ

Ещё вопросы

Imran Kocabiyik · Accepted Answer · 2018-08-31T15-28-00.000Z

Вам нужно построить SQL, подобный этому:

SELECT * FROM publications WHERE year IN (2016, 2017)

Это должно привести к тому, что:

text <- reactive({
  year_selected <- paste(input$year, collapse = ',')
  sql = paste("SELECT * FROM publications WHERE year IN (",year_selected,")")
  dbGetQuery(con, statement = sql)
})

Минимальное Блестящее приложение:

library(shiny)
ui <- fluidPage(
   sidebarLayout(
      sidebarPanel(
        selectizeInput('year', 'Select Year of publication:',
                       choices = c(2017L, 2018L),
                       multiple = TRUE,
                       options = list(maxOptions = 5)
        )
      ),
      mainPanel(
        verbatimTextOutput('text')
      )
   )
)

server <- function(input, output) {
   output$text <- renderText({
     library(glue)
     year_selected <- paste(input$year, collapse = ',')
     glue("SELECT * FROM publications WHERE year IN ({year_selected})")
   })
}

shinyApp(ui = ui, server = server)

Спасибо Имран за ваш ответ. Базовое блестящее приложение работает отлично. К сожалению, при работе с реактивной переменной text <--active ({year_selected <- paste (input $ year, collapse = ',') sql = paste ("ВЫБРАТЬ * ИЗ ПУБЛИКАЦИЙ, ГДЕ IN IN (", year_selected, ")") dbGetQuery (con, Statement = sql)}) он выдает ошибку, показывая, что это не правильный синтаксис MySQL. Предупреждение: ошибка в .local: не удалось выполнить оператор: в синтаксисе SQL есть ошибка; проверьте руководство, соответствующее вашей версии сервера MySQL, чтобы найти правильный синтаксис для использования рядом с ')' в строке 1
Это проблема SQL. В своем вопросе вы сказали, что это работает с одним значением. Можете ли вы поделиться рабочим SQL?
Вот реактивная переменная, которая работала с синтаксисом LIKE для MySQL , я использую текст соединения MySQL <- реактивный ({dbGetQuery (con, Statement = paste0 ("ВЫБЕРИТЕ автора, заголовок, editionDate, ИЗ публикаций ГДЕ публикаций. ГОД LIKE% '' ", input $ year," '% "))}) Как я уже говорил, мне не удалось даже передать одно значение в запрос IN .
Может year колонка быть VARCHAR вместо того , чтобы Integer? Тогда вам может понадобиться построить нечто похожее на WHERE year IN ('2018', '2019') . Если это так, попробуйте year_selected <- stringr::str_c(stringr::str_c("'",input$year,"'"), collapse = ',')
Спасибо Имран, большое спасибо. Это сработало.