R googledrive drive_cp 复制云端硬盘文件

drive_cp(
  file,
  path = NULL,
  name = NULL,
  ...,
  overwrite = NA,
  verbose = deprecated()
)

包装 files.copy 端点：

• https://developers.google.com/drive/api/v3/reference/files/copy

# Target one of the official example files
(src_file <- drive_example_remote("chicken.txt"))
#> # A dribble: 1 × 3
#>   name        id                                drive_resource   
#>   <chr>       <drv_id>                          <list>           
#> 1 chicken.txt 1wOLeWVRkTb6lDmLRiOhg9iKM7DlN762Y <named list [38]>

# Make a "Copy of" copy in your My Drive
cp1 <- drive_cp(src_file)
#> Original file:
#> • chicken.txt <id: 1wOLeWVRkTb6lDmLRiOhg9iKM7DlN762Y>
#> Copied to file:
#> • Copy of chicken.txt <id: 13C0IFBlHKUr-Ch07Vxwr9RzKnDfjcd4X>

# Make an explicitly named copy, in a different folder, 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.
folder <- drive_mkdir("drive-cp-folder")
#> Created Drive file:
#> • drive-cp-folder <id: 13e7tYB6Sxqt-BBLwNH7q97gLZAVNaWLN>
#> With MIME type:
#> • application/vnd.google-apps.folder
cp2 <- drive_cp(
  src_file,
  path = folder,
  name = "chicken-cp.txt",
  starred = TRUE
)
#> Original file:
#> • chicken.txt <id: 1wOLeWVRkTb6lDmLRiOhg9iKM7DlN762Y>
#> Copied to file:
#> • drive-cp-folder/chicken-cp.txt <id: 1f1emvuybwQhIBgfMEdvbNWsjvOVzpdN3>
drive_reveal(cp2, "starred")
#> # A dribble: 1 × 4
#>   name           starred id                                drive_resource
#>   <chr>          <lgl>   <drv_id>                          <list>        
#> 1 chicken-cp.txt TRUE    1f1emvuybwQhIBgfMEdvbNWsjvOVzpdN3 <named list>  

# `overwrite = FALSE` errors if file already exists at target filepath
# THIS WILL ERROR!
# drive_cp(src_file, name = "Copy of chicken.txt", overwrite = FALSE)

# `overwrite = TRUE` moves an existing file to trash, then proceeds
cp3 <- drive_cp(src_file, name = "Copy of chicken.txt", overwrite = TRUE)
#> File trashed:
#> • Copy of chicken.txt <id: 13C0IFBlHKUr-Ch07Vxwr9RzKnDfjcd4X>
#> Original file:
#> • chicken.txt <id: 1wOLeWVRkTb6lDmLRiOhg9iKM7DlN762Y>
#> Copied to file:
#> • Copy of chicken.txt <id: 11QbIifQr9rpUFA8hPlB8jIQoECmRawVA>

# Delete all of our copies and the new folder!
drive_rm(cp1, cp2, cp3, folder)
#> Files deleted:
#> • Copy of chicken.txt <id: 13C0IFBlHKUr-Ch07Vxwr9RzKnDfjcd4X>
#> • chicken-cp.txt <id: 1f1emvuybwQhIBgfMEdvbNWsjvOVzpdN3>
#> • Copy of chicken.txt <id: 11QbIifQr9rpUFA8hPlB8jIQoECmRawVA>
#> • drive-cp-folder <id: 13e7tYB6Sxqt-BBLwNH7q97gLZAVNaWLN>

# Target an official example file that's a csv file
(csv_file <- drive_example_remote("chicken.csv"))
#> # A dribble: 1 × 3
#>   name        id                                drive_resource   
#>   <chr>       <drv_id>                          <list>           
#> 1 chicken.csv 1VOh6wWbRfuQLxbLg87o58vxJt95SIiZ7 <named list [37]>

# copy AND AT THE SAME TIME convert it to a Google Sheet
chicken_sheet <- drive_cp(
  csv_file,
  name = "chicken-sheet-copy",
  mime_type = drive_mime_type("spreadsheet")
)
#> Original file:
#> • chicken.csv <id: 1VOh6wWbRfuQLxbLg87o58vxJt95SIiZ7>
#> Copied to file:
#> • chicken-sheet-copy <id: 1-CFVX3pNimDq1Wsu4tLZfaEQXFQZATbM9rnE9oSCWQs>
# is it really a Google Sheet?
drive_reveal(chicken_sheet, "mime_type")$mime_type
#> [1] "application/vnd.google-apps.spreadsheet"

# go see the new Sheet in the browser
# drive_browse(chicken_sheet)

# Clean up
drive_rm(chicken_sheet)
#> File deleted:
#> • chicken-sheet-copy <id: 1-CFVX3pNimDq1Wsu4tLZfaEQXFQZATbM9rnE9oSCWQs>