Slide 8
Slide 8 text
GETTING THE DATA
ga <- function(viewId,segment){
google_analytics(viewId, date_range = c(date_start_t,date_end_t), metrics = metrics_ga,
dimensions = dimensions_ga,segments = segment,anti_sample = TRUE)}
ga_data_Customer_DK_t <- ga(ga_id_Customer_dk,DK_Segment)
ga_data_RoyalCPH_DK_t$Brand <- "Customer Brand"
ga_data_RoyalCPH_DK_t$Country <- "DK"
ga_data_RoyalCPH_DK_t$segment <- NULL
bqDataset <- "Customer Dataset"
bqTable <- "Customer Table"
bqProject <- "Google Big Query Project"
bqr_upload_data(bqProject, bqDataset ,bqTable, ga_data, overwrite = TRUE)