質問の結果を表示する光沢のあるflexdashboard

Question

SQLクエリの結果を表示する光沢のあるflexdashboardを作成しようとしています。私のコードには、クエリに入力するサイト、月、および年の選択可能なパラメータが含まれています。私は私の人生のためにどのようにクエリ結果をレンダリングするかを理解することはできません、どんな助けも大歓迎です。ここでは、コードです：

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

私はrenderTable(a())、renderText(a())、renderText(a)を持つテーブルをレンダリングしようとしました。何も動作していないようです。 Rstudioで同じクエリコードを実行すると、予想される出力が得られるので、問題はクエリではないことに注意してください。使用reactiveについては

Answer 1

あなたは

のような（すべての反応性物質で）後()を追加する必要が：

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

renderTable(a())