通常，可以使用粘贴将变量传递到SQL语句。有趣的是，这不适用于R Shiny中的输入变量。使用以下代码，我得到以下错误消息。我该如何解决？
--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)
})
})
最佳答案
数据查询需要在 react 性上下文中进行评估。
一种方法是将数据查询本身移动到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)
})
})
但是，最好为数据构造一个电抗导体，当发生任何更新并可以在多个电抗端点中重用这些数据时，可以对它们进行一次评估(有关详细信息，请参见here)。
看起来像这样:
--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)
})
})