Отправка запроса каждый раз, когда пользователь нажимает кнопку

Question

Я создаю приложение, в котором у пользователя есть поле textInput, пишет текст, а затем нажимает кнопку «Отправить».Под капотом приложение должно преобразовать этот вектор в вектор размера, где 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()
  })
}