带有 MySQL 连接的闪亮动态 + 过滤数据帧/表输出

Question

基本上，我试图通过向 MySQL 查询来在 R 中显示一个数据框。

我有两个过滤器，数据框/表的值会根据这些过滤器而有所不同。该表根据用户选择的过滤器是反应式的。

用户界面

ui <- fluidPage(fluidRow(
column(4,radioButtons("Stocks", "Stock Number",
choices = c(1: 2),selected='1')),

column(4,radioButtons("Funds", "Fund Name",
choices = list("W" = 1, "L" = 2),selected='1')),

column(4,checkboxGroupInput("Position", "Market Position", 
choices = c(1:5))),

tableOutput("values")
)

服务器

server <- function(input, output) 
{    
 tableValues<-reactive({
 df<-dbSendQuery(mydb,paste0("SELECT STOCKS,FUNDS,POSITION,INVESTMENTS FROM 
 SUMMARY WHERE USERNAME='1223' and STOCKS=",input$Stocks," AND 
 FUNDS='",input$Funds,"' 
 AND POSITION=",input$position,";"))
 return(df)
 })

output$values <- renderTable({
tableValues()})

}

这是我现在拥有的，但这似乎不起作用。关于如何显示数据框/表并根据选择的过滤器使其具有反应性的任何建议？

谢谢！

Answer 1

错误：error- "cannot coerce class 'structure("MySQLResult", package = "RMySQL")' to a data.frame"。那是因为您没有 fetched 数据。

server <- function(input, output) 
{    
 tableValues<-reactive({
 query<-dbSendQuery(mydb,paste0("SELECT STOCKS,FUNDS,POSITION,INVESTMENTS FROM 
 SUMMARY WHERE USERNAME='1223' and STOCKS=",input$Stocks," AND 
 FUNDS='",input$Funds,"' 
 AND POSITION=",input$position,";"))
 df = fetch(query, n = -1)
 return(df)
 })

output$values <- renderTable({
tableValues()})

}

https://www.rdocumentation.org/packages/DBI/versions/0.2-1/topics/dbSendQuery