R googledrive drive_upload 上傳到新的雲端硬盤文件

drive_upload(
  media,
  path = NULL,
  name = NULL,
  type = NULL,
  ...,
  overwrite = NA,
  verbose = deprecated()
)

包裝 files.create 端點：

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

可以轉換為原生 Google 格式的 MIME 類型：

• https://developers.google.com/drive/api/v3/manage-uploads#import_to_google_docs_types

# upload a csv file
chicken_csv <- drive_example_local("chicken.csv") %>%
  drive_upload("chicken-upload.csv")
#> Local file:
#> • /home/runner/work/_temp/Library/googledrive/extdata/example_files/chicken.csv
#> Uploaded into Drive file:
#> • chicken-upload.csv <id: 19EjeIJ37ButQwJX3LonH-oXflKlEiyE7>
#> With MIME type:
#> • text/csv

# or convert it to a Google Sheet
chicken_sheet <- drive_example_local("chicken.csv") %>%
  drive_upload(
    name = "chicken-sheet-upload.csv",
    type = "spreadsheet"
  )
#> Local file:
#> • /home/runner/work/_temp/Library/googledrive/extdata/example_files/chicken.csv
#> Uploaded into Drive file:
#> • chicken-sheet-upload <id: 123d2h3zO8MOmWVQU8ZtCAlxyh3Sssr30_TiHtnafFEc>
#> With MIME type:
#> • application/vnd.google-apps.spreadsheet

# check out the new Sheet!
drive_browse(chicken_sheet)

# Clean up
drive_find("chicken.*upload") %>% drive_rm()
#> Files deleted:
#> • chicken-sheet-upload <id: 123d2h3zO8MOmWVQU8ZtCAlxyh3Sssr30_TiHtnafFEc>
#> • chicken-upload.csv <id: 19EjeIJ37ButQwJX3LonH-oXflKlEiyE7>

# Upload a file and, at the same time, star it
chicken <- drive_example_local("chicken.jpg") %>%
  drive_upload(starred = "true")
#> Local file:
#> • /home/runner/work/_temp/Library/googledrive/extdata/example_files/chicken.jpg
#> Uploaded into Drive file:
#> • chicken.jpg <id: 17fzCAJZ1NMlfROdyxo5Zg93HSrSEfDvZ>
#> With MIME type:
#> • image/jpeg

# Is is really starred? YES
purrr::pluck(chicken, "drive_resource", 1, "starred")
#> [1] TRUE

# Clean up
drive_rm(chicken)
#> File deleted:
#> • chicken.jpg <id: 17fzCAJZ1NMlfROdyxo5Zg93HSrSEfDvZ>

# `overwrite = FALSE` errors if something already exists at target filepath
# THIS WILL ERROR!
drive_create("name-squatter-upload")
#> Created Drive file:
#> • name-squatter-upload <id: 1hcq03S94nCHCNDBLAXBWOJ_g8Y9nrtS2>
#> With MIME type:
#> • application/octet-stream
drive_example_local("chicken.jpg") %>%
  drive_upload(
    name = "name-squatter-upload",
    overwrite = FALSE
  )
#> Error in check_for_overwrite(params[["parents"]], params[["name"]], overwrite): 1 item already exists at the target filepath and `overwrite =
#> FALSE`:
#> • name-squatter-upload <id: 1hcq03S94nCHCNDBLAXBWOJ_g8Y9nrtS2>

# `overwrite = TRUE` moves the existing item to trash, then proceeds
chicken <- drive_example_local("chicken.jpg") %>%
  drive_upload(
    name = "name-squatter-upload",
    overwrite = TRUE
  )
#> File trashed:
#> • name-squatter-upload <id: 1hcq03S94nCHCNDBLAXBWOJ_g8Y9nrtS2>
#> Local file:
#> • /home/runner/work/_temp/Library/googledrive/extdata/example_files/chicken.jpg
#> Uploaded into Drive file:
#> • name-squatter-upload <id: 1EscWJkhsEFFWv5iopa-znxa86Bt02WyN>
#> With MIME type:
#> • image/jpeg

# Clean up
drive_rm(chicken)
#> File deleted:
#> • name-squatter-upload <id: 1EscWJkhsEFFWv5iopa-znxa86Bt02WyN>

if (FALSE) {
# 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)
}