R googledrive drive_put 将新媒体放入云端硬盘文件中

target_filepath <- <determined from `path`, `name`, and `media`>
hits <- <get all Drive files at target_filepath>
if (no hits) {
  drive_upload(media, path, name, type, ...)
} else if (exactly 1 hit) {
  drive_update(hit, media, ...)
} else {
  ERROR
}

drive_put(
  media,
  path = NULL,
  name = NULL,
  ...,
  type = NULL,
  verbose = deprecated()
)

# create a local file to work with
local_file <- tempfile("drive_put_", fileext = ".txt")
writeLines(c("beginning", "middle"), local_file)

# PUT to a novel filepath --> drive_put() delegates to drive_upload()
file <- drive_put(local_file)
#> ℹ No pre-existing Drive file at this path. Calling `drive_upload()`.
#> Local file:
#> • /tmp/RtmptmwySB/drive_put_15bb6f50e94c.txt
#> Uploaded into Drive file:
#> • drive_put_15bb6f50e94c.txt <id: 1VJPmHqxjedc-rJL6xFgFySJngtRAdkgx>
#> With MIME type:
#> • text/plain

# update the local file
cat("end", file = local_file, sep = "\n", append = TRUE)

# PUT again --> drive_put() delegates to drive_update()
file <- drive_put(local_file)
#> ℹ A Drive file already exists at this path. Calling `drive_update()`.
#> File updated:
#> • drive_put_15bb6f50e94c.txt <id: 1VJPmHqxjedc-rJL6xFgFySJngtRAdkgx>

# create a second file at this filepath
file2 <- drive_create(basename(local_file))
#> Created Drive file:
#> • drive_put_15bb6f50e94c.txt <id: 1XEBIqd5OMSm4iheChvPhBYBAioW3KUWo>
#> With MIME type:
#> • text/plain

# PUT again --> ERROR
drive_put(local_file)
#> Error in drive_put(local_file): Multiple items already exist on Drive at the target filepath.
#> Unclear what `drive_put()` should do. Exiting.
#> • drive_put_15bb6f50e94c.txt <id: 1XEBIqd5OMSm4iheChvPhBYBAioW3KUWo>
#> • drive_put_15bb6f50e94c.txt <id: 1VJPmHqxjedc-rJL6xFgFySJngtRAdkgx>

# Clean up
drive_find("drive_put_.+[.]txt") %>% drive_rm()
#> Files deleted:
#> • drive_put_15bb6f50e94c.txt <id: 1XEBIqd5OMSm4iheChvPhBYBAioW3KUWo>
#> • drive_put_15bb6f50e94c.txt <id: 1VJPmHqxjedc-rJL6xFgFySJngtRAdkgx>
unlink(local_file)