# NOT RUN {
# upload a csv file
chicken_csv <- drive_example_local("chicken.csv") %>%
drive_upload("chicken-upload.csv")
# or convert it to a Google Sheet
chicken_sheet <- drive_example_local("chicken.csv") %>%
drive_upload(
name = "chicken-sheet-upload.csv",
type = "spreadsheet"
)
# check out the new Sheet!
drive_browse(chicken_sheet)
# clean-up
drive_find("chicken.*upload") %>% drive_rm()
# Upload a file and, at the same time, star it
chicken <- drive_example_local("chicken.jpg") %>%
drive_upload(starred = "true")
# Is is really starred? YES
purrr::pluck(chicken, "drive_resource", 1, "starred")
# Clean up
drive_rm(chicken)
# `overwrite = FALSE` errors if something already exists at target filepath
# THIS WILL ERROR!
drive_create("name-squatter")
drive_example_local("chicken.jpg") %>%
drive_upload(
name = "name-squatter",
overwrite = FALSE
)
# `overwrite = TRUE` moves the existing item to trash, then proceeds
chicken <- drive_example_local("chicken.jpg") %>%
drive_upload(
name = "name-squatter",
overwrite = TRUE
)
# Clean up
drive_rm(chicken)
# }
# NOT RUN {
# Upload to a shared drive:
# * Shared drives are only available if your account is associated with a
# Google Workspace
# * The shared drive (or shared-drive-hosted folder) MUST be captured as a
# dribble first and provided via `path`
sd <- shared_drive_get("Marketing")
drive_upload("fascinating.csv", path = sd)
# }
Run the code above in your browser using DataLab