# NOT RUN {
## upload a csv file
chicken_csv <- drive_upload(
drive_example("chicken.csv"),
"chicken-upload.csv"
)
## or convert it to a Google Sheet
chicken_sheet <- drive_upload(
drive_example("chicken.csv"),
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_upload(
drive_example("chicken.jpg"),
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_upload(
drive_example("chicken.jpg"),
name = "name-squatter",
overwrite = FALSE
)
## `overwrite = TRUE` moves the existing item to trash, then proceeds
chicken <- drive_upload(
drive_example("chicken.jpg"),
name = "name-squatter",
overwrite = TRUE
)
## Clean up
drive_rm(chicken)
## Upload to a Team Drive:
## * your Google account must have Team Drive privileges, obviously
## * the Team Drive (or Team Drive-hosted folder) MUST be captured as a
## dribble first and provided via `path`
td <- team_drive_get("Marketing")
drive_upload("fascinating.csv", path = td)
# }
Run the code above in your browser using DataLab