r - Shiny + 谷歌分析 : my output table doesn't appear

Question

我尝试使用 API-R 从 Google Analytics 中提取数据。这里有两个文件用于运行我的 Shiny 应用程序:

ui.R

 shinyUI(pageWithSidebar(

      headerPanel("My Shiny APP"),

      sidebarPanel( 
        dateRangeInput("dateRange",
                       label = "Select date range:",
                       start = Sys.Date() - 7, end = Sys.Date()-6)),

      mainPanel(

        fluidPage(
          fluidRow(
            column(12,
                   dataTableOutput("table")
            )
          )
        ))))

服务器.R

ga_token <- authorize(client.id = "XXXXXXXXX.apps.googleusercontent.com", 
                      client.secret = "XXXXXXXXXXX",
                      cache = "token")

shinyServer(function(input, output){


  getDataFromGA <- reactive({

    ga.data <- get_ga(profileId = "ga:xxxxxxx", 
                              start.date =input$dateRange[1], end.date = input$dateRange[2], 
                              metrics = c("ga:sessions","ga:bounceRate"), dimensions = "ga:userType", 
                              samplingLevel = "HIGHER_PRECISION", start.index = NULL,
                              max.results = 10000, include.empty.rows = NULL, fetch.by = NULL, ga_token)

    return(ga.data)


  })

  output$table = renderDataTable({
    ga.data <- getDataFromGA()
    if (is.null(ga.data)) return(NULL)
    })
}) 

如果我在 output$table 处放置一个响应式(Reactive)表达式，我会遇到同样的问题( 输出表没有出现 ，并且 R 没有向我打印任何错误消息)。
我加载的库:devtools、RGA、 Shiny 。

Answer 1

您可以尝试使用 reactiveValues 和 observeEvent，而不是简单地使用响应式。
您的代码可能类似于:

    values <- reactiveValues(start.date = NULL, end.date = NULL, ga.data = NULL)

    observeEvent(input$dateRange, {
    values$start.date <- input$dateRange[1]
    values$end.date <- input$dateRange[2]
    values$ga.data <- get_ga(...) })

您可以通过以下方式访问 google 分析对象:values$ga.data