# NOT RUN {
if (gs4_has_token()) {
gs4_create("gs4-create-demo-1")
gs4_create("gs4-create-demo-2", locale = "en_CA")
gs4_create(
"gs4-create-demo-3",
locale = "fr_FR",
timeZone = "Europe/Paris"
)
gs4_create(
"gs4-create-demo-4",
sheets = c("alpha", "beta")
)
my_data <- data.frame(x = 1)
gs4_create(
"gs4-create-demo-5",
sheets = my_data
)
gs4_create(
"gs4-create-demo-6",
sheets = list(chickwts = head(chickwts), mtcars = head(mtcars))
)
# clean up
gs4_find("gs4-create-demo") %>%
googledrive::drive_trash()
}
# }
Run the code above in your browser using DataLab