сам код:
library("RGA")
GA <- get_ga(profileId = "ga:*******",
start.date = "yesterday",
end.date = "yesterday",
dimensions = "ga:clientId, ga:date, ga:sourceMedium, ga:campaign, ga:deviceCategory, ga:keyword,
ga:userType",
metrics = "ga:goal5completions, ga:goal2completions, ga:transactions, ga:users, ga:pageviews,
ga:sessions, ga:newUsers, ga:sessionDuration, ga:transactionRevenue, ga:bounces",
fetch.by = "day",
samplingLevel = "HIGHER_PRECISION",
max.results = 10000,
token = rga_auth)
Функция которая вызывает из другого файла
tryCatch({source("GA.R")},error = function(e){message("Error in GA")})