Блог

По сути, я пытаюсь отобразить фрейм данных в R, запрашивая его у MySQL.

У меня есть два фильтра, на основе которых значения фрейма данных / таблицы будут отличаться. Таблица реагирует на основе фильтров, выбранных пользователем.

ПОЛЬЗОВАТЕЛЬСКИЙ интерфейс

 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()})

}
  

Это то, что у меня есть сейчас, но, похоже, это не работает. Есть предложения о том, как отобразить фрейм данных / таблицу и сделать его реактивным на основе выбранных фильтров?

Спасибо!

Ошибка: error- "cannot coerce class 'structure("MySQLResult", package = "RMySQL")' to a data.frame" . Это потому, что вы не fetch отредактировали данные.

 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