mysql - 将 textInput 值传递给 MYSQL 查询的语法
问题描述
我正在尝试将 textInput 的值传递给 MySQL 查询。
第一个问题是,当使用 MySQL 作为驱动程序时,LIKE 运算符结合 textInput 的正确语法是什么?我应该将 %% 放在查询语句中的什么位置?
其次是如何最好地捕获 textInput 的反应性,以便能够将其传递给查询并创建表?
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$tableview <- renderTable({
con <- dbConnect(MySQL(), user='user', port = 3306, password='pwd', dbname='db', host='host' )
on.exit(dbDisconnect(con), add = TRUE)
table <- reactive({
dbGetQuery(con, statement =
paste0(" SELECT author, title, publicationDate, FROM publications
WHERE publications.abstract LIKE %'",input$textSearch,"'% ")
)
})
table()
})
session$onSessionEnded(function() { dbDisconnect(con) })
})
ui_panel <-
tabPanel("Text Input Test",
sidebarLayout(
sidebarPanel(
textInput("textSearch", " Search for keyword", ''),
br(),
submitButton("Update Table View"),
br()
),
mainPanel(
tabsetPanel(tabPanel("Table",tableOutput("tableview"))
)
)
))
ui <- shinyUI(navbarPage(" ",ui_panel))
runApp(list(ui=ui,server=server))
类似的问题如何在 ui.R 中读取 TextInput,在 global.R 中使用此值处理查询,并使用 Shiny 在 server.R 中显示,Shiny处理输出并处理我没有的全局文件。
欢迎任何见解。
解决方案
您当前的代码应构造此 SQL:
SELECT ... FROM publications WHERE publications.abstract LIKE %'test'%
问题: %
应该在里面''
。
更新行:
paste0("SELECT author, title, publicationDate, FROM publications WHERE publications.abstract LIKE '%",input$textSearch,"%' ")
然后它应该构造这个 SQL:
SELECT author, title, publicationDate, FROM publications WHERE publications.abstract LIKE '%test%'
对于测试,我建议将生成的 SQL 呈现为文本,renderText()
并verbatimTextOutput()
查看结果。
您还可以考虑使用胶水包来安全地构造 SQL 查询。
对于您的第二个问题,Action Buttons文章可能很有用。