kutasok

library("googleAuthR")
library("googleAnalyticsR")
library("jsonlite")

# Сюда вставить то, что в json-файле. Обязательно заменить обратный слеш \ на двойной \\
json <- 'credentials from json'

# функция для авторизации
gar_auth_service <- function(json, scope = getOption("googleAuthR.scopes.selected")){
  

kutasok

# Разработано в Netpeak. 
# Если что-то не получается, пишите Ivan Kutas https://www.facebook.com/ivankutas

# Подключение требуемых пакетов
library(googleAuthR)
library(googleAnalyticsR)
library(googlesheets)

### 1. Получение данных из справочника проектов.
# 1.1. Авторизация в Google Spreadsheets и получение данных оттуда.