R googlesheets4 sheet_add 添加一張或多張(工作)表

sheet_add(ss, sheet = NULL, ..., .before = NULL, .after = NULL)

製作一批AddSheetRequest(每張一個)：

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

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

ss <- gs4_create("add-sheets-to-me")
#> ✔ Creating new Sheet: add-sheets-to-me.

# the only required argument is the target spreadsheet
ss %>% sheet_add()
#> ✔ Adding 1 sheet to add-sheets-to-me:
#> • Sheet2

# but you CAN specify sheet name and/or position
ss %>% sheet_add("apple", .after = 1)
#> ✔ Adding 1 sheet to add-sheets-to-me:
#> • apple
ss %>% sheet_add("banana", .after = "apple")
#> ✔ Adding 1 sheet to add-sheets-to-me:
#> • banana

# add multiple sheets at once
ss %>% sheet_add(c("coconut", "dragonfruit"))
#> ✔ Adding 2 sheets to add-sheets-to-me:
#> • coconut
#> • dragonfruit

# keeners can even specify additional sheet properties
ss %>%
  sheet_add(
    sheet = "eggplant",
    .before = 1,
    gridProperties = list(
      rowCount = 3, columnCount = 6, frozenRowCount = 1
    )
  )
#> ✔ Adding 1 sheet to add-sheets-to-me:
#> • eggplant

# get an overview of the sheets
sheet_properties(ss)
#> # A tibble: 7 × 8
#>   name        index         id type  visible grid_rows grid_columns data  
#>   <chr>       <int>      <int> <chr> <lgl>       <int>        <int> <list>
#> 1 eggplant        0 1049711327 GRID  TRUE            3            6 <NULL>
#> 2 Sheet1          1          0 GRID  TRUE         1000           26 <NULL>
#> 3 apple           2 1229661602 GRID  TRUE         1000           26 <NULL>
#> 4 banana          3 1581642120 GRID  TRUE         1000           26 <NULL>
#> 5 Sheet2          4  824329517 GRID  TRUE         1000           26 <NULL>
#> 6 coconut         5  712450966 GRID  TRUE         1000           26 <NULL>
#> 7 dragonfruit     6  143983947 GRID  TRUE         1000           26 <NULL>

# clean up
gs4_find("add-sheets-to-me") %>%
  googledrive::drive_trash()
#> File trashed:
#> • add-sheets-to-me <id: 1G_lE2liN57vT4RpHe1UMNBoyRZPloFTksvTiWRRP4xE>