# NOT RUN {
r_lines <- c("list.files()",
"library(dplyr)",
"mtcars %>% select(mpg)",
"sessionInfo()")
source <- cr_build_source(RepoSource("googleCloudStorageR",
branchName = "master"))
# }
# NOT RUN {
cr_project_set("my-project")
cr_region_set("europe-west1")
cr_email_set("123456@projectid.iam.gserviceaccount.com")
# check the script runs ok
cr_deploy_r(r_lines, source = source)
# schedule the script
cr_deploy_r(r_lines, schedule = "15 21 * * *", source = source)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab