# NOT RUN {
# }
# NOT RUN {
upload_me <- data.frame(medium = "shinyapps",
source = "referral",
adCost = 1,
date = "20160801")
obj <- ga_custom_upload_file(47850439,
"UA-4748043-2",
"_jDsJHSFSU-uw038Bh8fUg",
upload_me)
## obj will initially have status = PENDING
obj
==Google Analytics Custom Data Source Upload==
Custom Data Source ID: _jDsJHSFSU-uw038Bh8fUg
Account ID: 47850439
Web Property Id: UA-4748043-2
Upload ID: 7yHLAkeLSiK1zveVTiWZwA
Status: PENDING
## Send obj to ga_custom_upload() to check and renew status
obj <- ga_custom_upload(upload_object = obj)
obj
==Google Analytics Custom Data Source Upload==
Custom Data Source ID: _jDsJHSFSU-uw038Bh8fUg
Account ID: 47850439
Web Property Id: UA-4748043-2
Upload ID: 7yHLAkeLSiK1zveVTiWZwA
Status: COMPLETED
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab