如何将输入值传递给 Shiny 中的 Bigquery？答案

【问题标题】：How to pass input values to the Bigquery in Shiny?如何将输入值传递给 Shiny 中的 Bigquery？
【发布时间】：2019-11-14 16:08:36
【问题描述】：

我正在尝试将输入值传递给一个大查询。

我尝试直接传递反应值和输入值。这在我们直接传递垂直和 kpi 值时有效。

 observeEvent(input$go, {
    vert_query <- input$vert
  })

  observeEvent(input$go, {
    kpi_query <- input$kpi
  })

  alert_query <- reactive({
    gar_auth_service(
      json_file = " ",
      scope = "https://www.googleapis.com/auth/bigquery")

    project <- "bigquery-project*" # put your project ID here


     sql <- paste0("SELECT Platform as Platform, Min(CPM) as Min_CPM, Max(CPM) as Max_CPM,  Avg(CPM) as Avg_CPM, Min(CPA) as Min_CPA, MAx(CPA) as Max_CPA, Avg(CPA) as Avg_CPA 
         FROM [bigquery-project*] where Vertical = ", input$vert," or KPI = ", input$kpi, 
              "Group BY Platform Order BY Platform")


    results <- bqr_query(projectId = project, query = sql, datasetId = "test")
    results
  })

  output$tbTable <- 
    renderTable({
      alert_query()
    })

我希望看到表格格式的查询输出

【问题讨论】：

标签： r shiny google-bigquery

【解决方案1】：

如果您的问题是您无法使用“observeEvent”分配值并且仅在您直接输入时才有效，也许这可以工作：您需要使用的代码将是“eventReactive”而不是“ observeEvent”，因为“observeEvent”用于当您想要执行操作以响应事件并且“eventReactive”创建一个根据eventExpr而变化的反应值，您可以查看此信息@ 987654321@.

【讨论】：