Glänzendes Flexdashboard, das die Ergebnisse einer Abfrage anzeigt

Question

Ich versuche ein glänzendes Flexdashboard zu erstellen, das die Ergebnisse einer SQL-Abfrage anzeigt. Mein Code enthält auswählbare Parameter für eine Site, einen Monat und ein Jahr, die in die Abfrage einfließen. Ich kann nicht für das Leben von mir herausfinden, wie man die Abfrageergebnisse rendert, irgendeine Hilfe würde sehr geschätzt. Hier ist der Code:

# --- 
# title: "Site Dashboard" 
# output: flexdashboard::flex_dashboard 
# runtime: shiny 
# --- 

{r setup, include=FALSE} 
library(dplyr) 
library(sqldf) 

Column {.sidebar}  

selectInput("site", label = "WIM Site", 
      choices = c("26","27"), 
      selected = "26") 

numericInput("month", label = "Month", 
      value = 12, min = 1, max = 12, step = 1) 

selectInput("year", label = "Year", 
      choices = c("2014","2015","2016"), 
      selected = "2015")  


Column 
----------------------------------------------------------------------- 

    ### Query Results 


db <- dbConnect(SQLite(), dbname="N:/TrafMon/WIM/Ian/minWIM.sqlite") 

query<-reactive({ 
    paste("SELECT * FROM", paste("wim",input$site,"_", input$year, 
    sep=""),paste("WHERE month =="),input$month, "LIMIT 5") 
}) 


a <- reactive({ 
    sqldf(query, dbname="N:/TrafMon/WIM/Ian/minWIM.sqlite") 
}) 

query 

renderTable(a) 

Ich habe versucht Rendering die Tabelle mit renderTable(a()), renderText(a()), renderText(a). Nichts scheint zu funktionieren. Ich sollte beachten, dass das Ausführen des gleichen Abfrage-Codes in Rstudio die erwartete Ausgabe erzeugt, so dass das Problem nicht mit der Abfrage ist.

Answer 1

Für den Einsatz reactive Sie brauchen () nach (in allen Reaktive) hinzugefügt

wie:

sqldf(query(), dbname="N:/TrafMon/WIM/Ian/minWIM.sqlite")

renderTable(a())