我正在尝试将文本输入的值传递到mysql查询中。
第一个问题是,当使用mySQL作为驱动程序时,类似运算符与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中的文本输入,在global.r中处理此值的查询,并使用shinny在server.r中进行show。案例。
欢迎任何见解。
您的当前代码应构造此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%'
进行测试,我建议使用renderText()
和verbatimTextOutput()
将生成的SQL呈现为文本,然后查看结果。
您还可以考虑使用胶包来安全构建SQL查询。
对于您的第二个问题,操作按钮文章可能很有用。