Шаг за шагом через R Flexdashboard и Google Analytics - PullRequest
0 голосов
/ 05 марта 2020

Я хочу сделать данные из Google Analytics доступными для пользователей через Flexdashboard, развернутую на AWS. Это поможет смешаться с другими источниками данных и создать воронку (от веб-посещений до желаемых действий).

---
title: "Dashboard"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
runtime: shiny
---

    ```{r setup, include=FALSE}
    library(flexdashboard)
    library(googleAnalyticsR)
    library(googleAuthR)
    library(searchConsoleR)
    library(tidyverse)
    ```
dataset <- eventReactive(input$button_execute, {
  date_start <- input$input_date_start
  date_end <- input$input_date_end
  ga_auth()
  my_accounts <- ga_account_list()
  my_id <- 123456
  dataset <- google_analytics(my_id,
                        date_range = c(date_start,date_end),
                        metrics = c("sessions"),
                        dimensions = c("dayOfWeek","hour"),
                        anti_sample = FALSE)
})

Но, как вы знаете, это работает только для вашего собственного анализа и не для производственные сценарии. Поэтому я должен установить client.id и client.secret, чтобы он работал.

Предполагаемые пользователи имеют свой почтовый аккаунт компании Google. В идеале они могут получить доступ к данным через логин. Итак, я попробовал это:

``` 
token <- callModule(googleAuth, "login")
dataset <- google_analytics(my_id,
                        date_range = c(date_start,date_end),
                        metrics = c("sessions"),
                        dimensions = c("dayOfWeek","hour"),
                        anti_sample = FALSE)
``` 

Но при отправке выдается сообщение об ошибке: Error: redirect_uri_mismatch

Пожалуйста, можете ли вы дать некоторые рекомендации? Это будет полезно для людей, которые хотят получить легкий путь для развертывания своих результатов с помощью Google Analytics и R. Я буду активно следить за этим постом. Спасибо.

...