Как передать входные значения в Bigquery в Shiny?

Question

Я пытаюсь передать входные значения в большой запрос.

Я попытался передать реактивные значения и входные значения напрямую.Это работает, когда мы напрямую передаем значения по вертикали и 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()
    })

Я ожидаю увидеть результаты запроса в виде таблицы