R googledrive drive_create 创建一个新的空白云端硬盘文件

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

包装 files.create 端点：

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

# Create a blank Google Doc named 'WordStar' in
# your 'My Drive' root folder and star it
wordstar <- drive_create("WordStar", type = "document", starred = TRUE)
#> Created Drive file:
#> • WordStar <id: 1fQ7yjQxlYG67jg4TKlTqTLkIFvgFYNIoxLNB6Bs78TI>
#> With MIME type:
#> • application/vnd.google-apps.document

# is 'WordStar' really starred? YES
purrr::pluck(wordstar, "drive_resource", 1, "starred")
#> [1] TRUE

# Create a blank Google Slides presentation in
# the root folder, and set its description
execuvision <- drive_create(
  "ExecuVision",
  type = "presentation",
  description = "deeply nested bullet lists FTW"
)
#> Created Drive file:
#> • ExecuVision <id: 18Wjj-HvgieTymPjDMGWuBzo6rJHL5IQgS_USen0HFAg>
#> With MIME type:
#> • application/vnd.google-apps.presentation

# Did we really set the description? YES
purrr::pluck(execuvision, "drive_resource", 1, "description")
#> [1] "deeply nested bullet lists FTW"

# check out the new presentation
drive_browse(execuvision)

# Create folder 'b4xl' in the root folder,
# then create an empty new Google Sheet in it
b4xl <- drive_mkdir("b4xl")
#> Created Drive file:
#> • b4xl <id: 1f759GhJQNiOV6omkXMgBYyvuGSQEBQag>
#> With MIME type:
#> • application/vnd.google-apps.folder
drive_create("VisiCalc", path = b4xl, type = "spreadsheet")
#> Created Drive file:
#> • VisiCalc <id: 1QFWKFFyuRh00CeyL0plaC9Mw_VL909-k3ANVK6OKLs0>
#> With MIME type:
#> • application/vnd.google-apps.spreadsheet

# Another way to create a Google Sheet in the folder 'b4xl'
drive_create("b4xl/SuperCalc", type = "spreadsheet")
#> Created Drive file:
#> • SuperCalc <id: 1UwJIvgVERrclZGtuo-gtWa5pyc2HsSrpXkmV-Xax-y0>
#> With MIME type:
#> • application/vnd.google-apps.spreadsheet

# Yet another way to create a new file in a folder,
# this time specifying parent `path` as a character
drive_create("Lotus 1-2-3", path = "b4xl", type = "spreadsheet")
#> Created Drive file:
#> • Lotus 1-2-3 <id: 1EJ4kQmwvhVuWTOrY6J3QRyIeNpTBevS8zJIX9HbnIFs>
#> With MIME type:
#> • application/vnd.google-apps.spreadsheet

# Did we really create those Sheets in the intended folder? YES
drive_ls("b4xl")
#> # A dribble: 3 × 3
#>   name        id                                           drive_resource
#>   <chr>       <drv_id>                                     <list>        
#> 1 Lotus 1-2-3 1EJ4kQmwvhVuWTOrY6J3QRyIeNpTBevS8zJIX9HbnIFs <named list>  
#> 2 SuperCalc   1UwJIvgVERrclZGtuo-gtWa5pyc2HsSrpXkmV-Xax-y0 <named list>  
#> 3 VisiCalc    1QFWKFFyuRh00CeyL0plaC9Mw_VL909-k3ANVK6OKLs0 <named list>  

# `overwrite = FALSE` errors if file already exists at target filepath
# THIS WILL ERROR!
drive_create("VisiCalc", path = b4xl, overwrite = FALSE)
#> Error in check_for_overwrite(params[["parents"]], params[["name"]], overwrite): 1 item already exists at the target filepath and `overwrite =
#> FALSE`:
#> • VisiCalc <id: 1QFWKFFyuRh00CeyL0plaC9Mw_VL909-k3ANVK6OKLs0>

# `overwrite = TRUE` moves an existing file to trash, then proceeds
drive_create("VisiCalc", path = b4xl, overwrite = TRUE)
#> File trashed:
#> • VisiCalc <id: 1QFWKFFyuRh00CeyL0plaC9Mw_VL909-k3ANVK6OKLs0>
#> Created Drive file:
#> • VisiCalc <id: 16KzYzBmfnXLoqZ99wv5wn_mYloj8H65F>
#> With MIME type:
#> • application/octet-stream

# Clean up
drive_rm(wordstar, b4xl, execuvision)
#> Files deleted:
#> • WordStar <id: 1fQ7yjQxlYG67jg4TKlTqTLkIFvgFYNIoxLNB6Bs78TI>
#> • b4xl <id: 1f759GhJQNiOV6omkXMgBYyvuGSQEBQag>
#> • ExecuVision <id: 18Wjj-HvgieTymPjDMGWuBzo6rJHL5IQgS_USen0HFAg>