Bir sorgu sonucu görüntüleyen parlak bir esnek ekran kartı

Question

SQL sorgusunun sonuçlarını görüntüleyen parlak bir flexdashboard oluşturmaya çalışıyorum. Kodum, sorguya giren site, ay ve yıl için seçilebilir parametreler içeriyor. Benim için hayatımın sorgu sonuçlarını nasıl oluşturacağını anlayamıyorum, herhangi bir yardım büyük ölçüde takdir edilecektir. Ben renderTable(a()), renderText(a()), renderText(a) ile tablo oluşturma denedim

# --- 
# 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) 

: İşte kod. Hiçbir şey işe yaramıyor. Rstudio'da aynı sorgu kodunu çalıştırmanın beklenen çıktıyı oluşturduğuna dikkat etmeliyim, bu nedenle sorun sorguda değil. Kullanım reactive için

Answer 1

Eğer

gibi (tüm reaktifleri içerisinde) sonra () eklendi gerek:

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

renderTable(a())