#1、前置作業----
library("RGoogleAnalytics")
library("xlsx")
client.id <- "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx.apps.googleusercontent.com"
client.secret <- "xxxxxxxxxxxxxxxxxxxxxxxx"
token <- Auth(client.id, client.secret)
profile <- GetProfiles(token)
save(token, file="C:/R/token_file")
ValidateToken(token)
start <- "2016-01-01"
end <- "2016-12-31"
weekstart <-"2016-01-03"
weekend <- "2016-12-31"
APPlist <- "ga:xxxxxxxx"
APP <- "ga:xxxxxxxx"
Android <- "ga:xxxxxxxx"
iPhone <- "ga:xxxxxxxx"
Basketball <- "ga:xxxxxxxx"

#2、抓取每日資料-----
APPlist.list <- Init(start.date = start,
                     end.date = end,
                     dimensions = "ga:date",
                     metrics = "ga:pageviews",
                     max.results = 10000,
                     sort = "ga:date",
                     table.id = APPlist)
APPlist.query <- QueryBuilder(APPlist.list)
APPlist.data <- GetReportData(APPlist.query, token)
APP.list <- Init(start.date = start,
                 end.date = end,
                 dimensions = "ga:date",
                 metrics = "ga:sessions,ga:users",
                 max.results = 10000,
                 sort = "ga:date",
                 table.id = APP)
APP.query <- QueryBuilder(APP.list)
APP.data <- GetReportData(APP.query, token)
Android.list <- Init(start.date = start,
                     end.date = end,
                     dimensions = "ga:date",
                     metrics = "ga:pageviews,ga:sessions,ga:users",
                     max.results = 10000,
                     sort = "ga:date",
                     table.id = Android)
Android.query <- QueryBuilder(Android.list)
Android.data <- GetReportData(Android.query, token)
iPhone.list <- Init(start.date = start,
                    end.date = end,
                    dimensions = "ga:date",
                    metrics = "ga:pageviews,ga:sessions,ga:users",
                    max.results = 10000,
                    sort = "ga:date",
                    table.id = iPhone)
iPhone.query <- QueryBuilder(iPhone.list)
iPhone.data <- GetReportData(iPhone.query, token)
Basketball.list <- Init(start.date = start,
                        end.date = end,
                        dimensions = "ga:date",
                        metrics = "ga:screenviews,ga:sessions,ga:users",
                        max.results = 10000,
                        sort = "ga:date",
                        table.id = Basketball)
Basketball.query <- QueryBuilder(Basketball.list)
Basketball.data <- GetReportData(Basketball.query, token)

#3、寫入檔案-----
write.xlsx(APPlist.data, "C:/Users/data/2016(data).xlsx", sheetName = "APPlist", append = FALSE)
write.xlsx(APPnews.data, "C:/Users/data/2016(data).xlsx", sheetName = "APP", append = TRUE)
write.xlsx(MetroAndroid.data, "C:/Users/data/2016(data).xlsx", sheetName = "Android", append = TRUE)
write.xlsx(MetroiPhone.data, "C:/Users/data/2016(data).xlsx", sheetName = "iPhone", append = TRUE)
write.xlsx(Basketball.data, "C:/Users/data/2016(data).xlsx", sheetName = "Basketball", append = TRUE)