【发布时间】:2015-12-29 22:14:50
【问题描述】:
我正在尝试使用 BigQuery 查询来填充 Shiny 中的图。该查询包括来自使用 selectInput 的 ui 的输入值。如果用户选择数据库中存在的值,例如年份是 2014,则查询可以正常工作,但是,我希望用户也能够选择“全部”。 “All”应该是所有值的选择,但是,我不确定如何在使用 selectInput 的查询中表达它。
server.r
data1 <- eventReactive(input$do_sql, {
bqr_auth(token = NULL, new_user = FALSE, verbose = FALSE)
query = paste('select month, event, partner_name, sum(f0_) from [dataset.table] where year =',input$year1,' and partner_name = \"',input$partner_name,'\"
GROUP by 1,2,3
ORDER by 1 asc
LIMIT 10000', sep="")
bqr_query(projectId, datasetId, query, maxResults =2000)
})
ui.r
(
selectInput("year1",
"Year:",
c("All",2014,2015
))
),
(
selectInput("partner_name",
"Partner:",
c("All",
unique(as.character(data5$partner_name))))
【问题讨论】:
标签: r shiny google-bigquery