Question

我正在制作一个用户具有textInput字段，写一些文本然后单击Submit的应用程序。在后台，应用程序应将此向量转换为n大小的向量，其中n是用户提供的单词数。然后，我的算法应将这些单词应用于查询，然后从数据库下载数据。

ui <- fluidPage(
  textInput("key", label = "Key words", value = "price"),
  actionButton("submit","Submit"),
  submitButton("Update", icon("refresh")),
  DT::dataTableOutput("mytable")
)

server<-function(input, output){
      keywords<-strsplit("key", " ")[[1]]
      query1<-"SELECT * FROM \"domain\" WHERE x < 5"
      query3<-query2(keywords)
      query<-paste(query1,query3)
      query_data <- dbGetQuery(con, query)
      output$mytable = DT::renderDataTable({
       query_data
  })
}

con设置正确。如果我使用自定义关键字运行query_data，那么用户提供的名称会出现问题。 My_table应该打印查询的结果。

Answer 1

我认为您必须这样做：

server <- function(input, output){
  query_data <- eventReactive(input$submit, {
    keywords <- strsplit(input$key, " ")[[1]]
    query1 <- "SELECT * FROM \"domain\" WHERE x < 5"
    query3 <- query2(keywords)
    query <- paste(query1,query3)
    dbGetQuery(con, query)
  })

  output$mytable = DT::renderDataTable({
    query_data()
  })
}

每次用户单击按钮时发送查询

1 个答案: