library(testthat)
library(googleAnalyticsR)
options(googleAuthR.scopes.selected =
c("https://www.googleapis.com/auth/analytics",
"https://www.googleapis.com/auth/analytics.edit",
"https://www.googleapis.com/auth/analytics.readonly",
"https://www.googleapis.com/auth/analytics.manage.users",
"https://www.googleapis.com/auth/analytics.user.deletion",
"https://www.googleapis.com/auth/drive"))
# auth cache with custom project creds
if(nzchar(Sys.getenv("GAR_CLIENT_JSON"))){
googleAuthR::gar_set_client()
dir.create("cache/", showWarnings = FALSE)
ga_cache_call("cache/")
}
if(file.exists("/workspace/auth.json")){
message("Auth on Cloud Build")
ga_auth(json_file = "/workspace/auth.json")
} else {
message("Local auth with same test key")
# change to googleanalyticsr-tests@ key
local_auth <- Sys.getenv("GA_TEST_AUTH")
if(nzchar(local_auth) && file.exists(local_auth)){
ga_auth(json_file = local_auth)
} else {
message("No local auth - set GA_TEST_AUTH")
}
}
accountId <- 54019251
webPropId <- "UA-54019251-4"
ga_id <- 106249469
accountId2 <- 47480439
webPropId2 <- "UA-47480439-2"
ga_id2 <- 81416156
ga4_propertyId <- 206670707
test_that("Correct authentication", {
skip_on_travis()
skip_on_cran()
al <- ga_account_list()
expect_true(accountId %in% al$accountId)
expect_true(accountId2 %in% al$accountId)
expect_true(ga_id %in% al$viewId)
expect_true(ga_id2 %in% al$viewId)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.