0

我想在 dbGetquery() 中包含一个文本输入作为查询的一部分。它在普通 R 脚本中显示结果，但在 renderTable() 中显示错误。

library(flexdashboard)
suppressWarnings(library(ROracle, quietly = TRUE))
library(shiny)

Column {data-width=350}
-----------------------------------------------------------------------
textInput(inputId = 'Col', label = 'COL', value = "")
actionButton('submit', 'Submit', icon = icon('refresh'))


Column {data-width=650}
-----------------------------------------------------------------------
session <- observeEvent(input$submit, {
  etf_con<- dbConnect(drv, username = load.schema.username, password = load.schema.password, dbname = load.schema.database)
  t <- dbGetQuery(etf_con, paste0("select * from table_name where col = '", input$Col, "'"))
})

renderTable({
  t
})

第二列的错误是：

无法将类“函数”强制为 data.frame

我也尝试过删除observeEvent并且只有renderTable. 像这样：

renderTable({
  etf_con<- dbConnect(drv, username = load.schema.username, password = load.schema.password, dbname = load.schema.database)
  dbGetQuery(etf_con, paste0("select * from table_name where col = '", input$Col, "'"))
})

当我点击“运行文档”时，列名显示在右列中。我输入文本后，出现错误：

二元运算符的非数字参数

4

1 回答 1

0

看起来我需要一个占位符来表示反应值，所以我只是添加v <- reactiveValues(t = NULL)并t用作 list 中的元素之一v。这是链接http://shiny.rstudio.com/articles/action-buttons.html。我使用了模式 3。

library(flexdashboard)
suppressWarnings(library(ROracle, quietly = TRUE))
library(shiny)

Column {data-width=350}
-----------------------------------------------------------------------
textInput(inputId = 'Col', label = 'COL', value = "")
actionButton('submit', 'Submit', icon = icon('refresh'))


Column {data-width=650}
-----------------------------------------------------------------------
v <- reactiveValues(t = NULL)

observeEvent(input$submit, {
  etf_con<- dbConnect(drv, username = load.schema.username, password = load.schema.password, dbname = load.schema.database)
  v$t <- dbGetQuery(etf_con, paste0("select * from table_name where col = '", input$Col, "'"))
})

renderTable({
  v$t
})
于 2019-07-09T19:52:16.913 回答