Как передать входную переменную в инструкцию SQL в R shiny?

обычно переменные могут быть переданы операторам SQL с помощью вставки. Интересно, что это не работает с входными переменными в R shiny. Используя приведенный ниже код, я получаю следующее сообщение об ошибке. Как я могу это решить?

ошибка .getReactiveEnvironment ()$currentContext() : Операция не разрешена без активного реактивного контекста. (Ты пытался это сделать. что-то, что можно сделать только изнутри реактивного выражения или наблюдателя.)

--ui.R--

shinyUI(bootstrapPage(

  selectInput(inputId = "segment",
          label = "segment",
          choices = c(1, 2, 3, 4),
          selected = 1),

  plotOutput(outputId = "main_plot", height = "300px")

))


--server.R--

shinyServer(function(input, output) {

     database <- dbConnect(MySQL(), group= "zugangsdaten", dbname= 'database')

     input<- input$segment

     table <- dbGetQuery(database, statement = 
                      paste("
                      SELECT a,b FROM table1
                      WHERE id = ",input,"
                      AND created_at>='2015-08-01'
                      "))

  output$main_plot <- renderPlot({

    plot(a,b)

    })
})
6
r shiny shinyapps

2 ответов

запрос данных должен оцениваться в реактивном контексте.

одним из способов было бы переместить сам запрос данных в контекст renderPlot (), например

--server.R--

shinyServer(function(input, output) {

 database <- dbConnect(MySQL(), group= "zugangsdaten", dbname= 'database')

 output$main_plot <- renderPlot({

   table <- dbGetQuery(database, statement = 
              paste("
                SELECT a,b FROM table1
                WHERE id = ",input$segment,"
                AND created_at>='2015-08-01'
              "))

    plot(table$a,table$b)

 })

})

однако лучше построить реактивный проводник для данных, которые могут быть оценены один раз, когда какие-либо обновления происходят и повторно используются в нескольких реактивных конечных точках (см. здесь для деталей).

это будет выглядеть так:

--server.R--

shinyServer(function(input, output) {

 database <- dbConnect(MySQL(), group= "zugangsdaten", dbname= 'database')

 table <- reactive({
            dbGetQuery(database, statement = 
              paste("
                SELECT a,b FROM table1
                WHERE id = ",input$segment,"
                AND created_at>='2015-08-01'
              ")
            )
          })

 output$main_plot <- renderPlot({

    plot(table()$a,table()$b)

 })

})
4

для гибкости вы можете также использовать sub функция для замены части строки запроса, это довольно чистый подход

table <- reactive({ 
  my_query <- 'SELECT a,b FROM table1 WHERE id = SOMETHING AND created_at >= 2015-08-01'
  my_query <- sub("SOMETHING",input$segment,my_query)
  dbGetQuery(database,noquote(my_query))
})
1