# NOT RUN {
## Create a file to copy
file <- drive_upload(drive_example("chicken.txt"), "chicken-cp.txt")
## Make a "Copy of" copy in same folder as the original
drive_cp("chicken-cp.txt")
## Make an explicitly named copy in same folder as the original
drive_cp("chicken-cp.txt", "chicken-cp-two.txt")
## Make an explicitly named copy in a different folder
folder <- drive_mkdir("new-folder")
drive_cp("chicken-cp.txt", path = folder, name = "chicken-cp-three.txt")
## Make an explicitly named copy and star it.
## The starring is an example of providing metadata via `...`.
## `starred` is not an actual argument to `drive_cp()`,
## it just gets passed through to the API.
drive_cp("chicken-cp.txt", name = "chicken-cp-starred.txt", starred = TRUE)
## `overwrite = FALSE` errors if file already exists at target filepath
## THIS WILL ERROR!
drive_cp("chicken-cp.txt", name = "chicken-cp.txt", overwrite = FALSE)
## `overwrite = TRUE` moves an existing file to trash, then proceeds
drive_cp("chicken-cp.txt", name = "chicken-cp.txt", overwrite = TRUE)
## Behold all of our copies!
drive_find("chicken-cp")
## Delete all of our copies and the new folder!
drive_find("chicken-cp") %>% drive_rm()
drive_rm(folder)
## upload a csv file to copy
csv_file <- drive_upload(drive_example("chicken.csv"))
## copy AND AT THE SAME TIME convert it to a Google Sheet
chicken_sheet <- drive_cp(
csv_file,
name = "chicken-cp",
mime_type = drive_mime_type("spreadsheet")
)
## go see the new Sheet in the browser
## drive_browse(chicken_sheet)
## clean up
drive_rm(csv_file, chicken_sheet)
# }
Run the code above in your browser using DataLab