ryanpraski

function connectToCloudSQL() {
  
  var params = {
    ip: "INSERT IP",
    user: "INSERT USER",
    password: "INSERT PASSWORD",
    database: "INSERT DATABASE"
  }
  
  var dbUrl = 'jdbc:mysql://' + params.ip + '/' + params.database;

ryanpraski

//Replace xxx with your values as necessary.

function googleAnalyticsReporting() {
  projectId = "xxx";
  datasetId = "xxx";
  tableId = 'xxx';
  data = [];
  yesterday = new Date();
  yesterday.setDate(yesterday.getDate() - 1);
  yesterday = Utilities.formatDate(yesterday, 'UTC', "yyyy-MM-dd");

ryanpraski

library(dplyr)
library(ggplot2)
library(lubridate)
library(XML)

#load apple health export.xml file
xml <- xmlParse("C:\\Users\\praskry\\Desktop\\export_sleep.xml")

#transform xml file to data frame - select the Record rows from the xml file
df <- XML:::xmlAttrsToDataFrame(xml["//Record"])

ryanpraski

library(googleAnalyticsR)
library(ggplot2)
library(dplyr)

#Authorize Google Analytics R- this will open a webpage
#You must be logged into your Google Analytics account on your web browser
ga_auth()

#Use my_accounts to find the viewId. Make sure to replace this with your viewId.
my_id <- 94579701

ryanpraski

library(dplyr)
library(tidyr)
library(ggplot2)
df <- read.csv("C:/Users/praskry/Desktop/more_than_1.csv", header = TRUE)
df %>% summarize(UVs = n_distinct(Visitor_ID)) #unique visitor count
df1 <-filter(df, grepl('shoes|socks',Pages)) #filter to only include prod pages
df2 <-df1 %>% group_by(Visitor_ID) %>% filter(n()>1)

df3<-df2 %>% group_by(Visitor_ID) %>% summarize(count=n())
df3 %>% group_by(count) %>% summarize(total.count=n()) 

ryanpraski

library(googleAnalyticsR)
library(ggplot2)

#Authorized Google Analytics R- this will open a webpage
#You must be logged into your Google Analytics account on your web browser
ga_auth()

#Use google_analytics_account_list() to find the viewId. Make sure to replace this with your viewId.
my_id <- 94579701

ryanpraski

library(googleAnalyticsR)
library(ggplot2)

#Authorized Google Analytics R- this will open a webpage
#You must be logged into your Google Analytics account on your web browser
ga_auth()

#Make sure to replace this with your viewId. You can use google_analytics_account_list() to find your viewId. 
my_id <- 94579701

ryanpraski

library(googleAnalyticsR)
library(ggplot2)

#Authorize Google Analytics R- this will open a webpage
#You must be logged into your Google Analytics account on your web browser
ga_auth()

#Use the Google Analytics Management API to see a list of Google Analytics accounts you have access to
my_accounts <- google_analytics_account_list()
View(my_accounts)

ryanpraski

## filter pivot results
pivot_dim_filter1 <- dim_filter("eventLabel",
                                "REGEXP",
                                "%|#disqus")

pivot_dim_clause <- filter_clause_ga4(list(pivot_dim_filter1))

pivme <- pivot_ga4("eventLabel",
                   metrics = c("totalEvents"), 
                   maxGroupCount = 5, 

ryanpraski

library(googleAnalyticsR)
library(tidyr)

#Authorized Google Analytics R- this will open a webpage
#You must be logged into your Google Analytics account on your web browser
ga_auth()

#Use the Google Analytics Management API to see a list of Google Analytics accounts you have access to
my_accounts <- google_analytics_account_list()
View(my_accounts)