R googlesheets4 sheet_delete 刪除一張或多張(工作)表

sheet_delete(ss, sheet)

製作 DeleteSheetsRequest ：

• https://developers.google.com/sheets/api/reference/rest/v4/spreadsheets/request#DeleteSheetRequest

其他工作表函數：sheet_add() , sheet_append() , sheet_copy() , sheet_properties() , sheet_relocate() , sheet_rename() , sheet_resize() , sheet_write()

ss <- gs4_create("delete-sheets-from-me")
#> ✔ Creating new Sheet: delete-sheets-from-me.
sheet_add(ss, c("alpha", "beta", "gamma", "delta"))
#> ✔ Adding 4 sheets to delete-sheets-from-me:
#> • alpha
#> • beta
#> • gamma
#> • delta

# get an overview of the sheets
sheet_properties(ss)
#> # A tibble: 5 × 8
#>   name   index         id type  visible grid_rows grid_columns data  
#>   <chr>  <int>      <int> <chr> <lgl>       <int>        <int> <list>
#> 1 Sheet1     0          0 GRID  TRUE         1000           26 <NULL>
#> 2 alpha      1 1525880310 GRID  TRUE         1000           26 <NULL>
#> 3 beta       2 1522627712 GRID  TRUE         1000           26 <NULL>
#> 4 gamma      3  555730644 GRID  TRUE         1000           26 <NULL>
#> 5 delta      4  532739089 GRID  TRUE         1000           26 <NULL>

# delete sheets
sheet_delete(ss, 1)
#> ✔ Deleting 1 sheet from delete-sheets-from-me:
#> • Sheet1
sheet_delete(ss, "gamma")
#> ✔ Deleting 1 sheet from delete-sheets-from-me:
#> • gamma
sheet_delete(ss, list("alpha", 2))
#> ✔ Deleting 2 sheets from delete-sheets-from-me:
#> • alpha
#> • beta

# get an overview of the sheets
sheet_properties(ss)
#> # A tibble: 1 × 8
#>   name  index        id type  visible grid_rows grid_columns data  
#>   <chr> <int>     <int> <chr> <lgl>       <int>        <int> <list>
#> 1 delta     0 532739089 GRID  TRUE         1000           26 <NULL>

# clean up
gs4_find("delete-sheets-from-me") %>%
  googledrive::drive_trash()
#> File trashed:
#> • delete-sheets-from-me
#>   <id: 19J0TuDMhtdl2TNDyd4xGq8bdKyffvem7aBZ8Ihneo-w>