R googlesheets4 sheet_copy 複製(工作)表

sheet_copy(
  from_ss,
  from_sheet = NULL,
  to_ss = from_ss,
  to_sheet = NULL,
  .before = NULL,
  .after = NULL
)

如果複製發生在一張 Sheet 內，則生成 DuplicateSheetRequest ：

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

如果複製是從一張工作表到另一張工作表，則包裝 spreadsheets.sheets/copyTo 端點：

• https://developers.google.com/sheets/api/reference/rest/v4/spreadsheets.sheets/copyTo

並可能生成後續的 UpdateSheetPropertiesRequest ：

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

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

ss_aaa <- gs4_create(
  "sheet-copy-demo-aaa",
  sheets = list(mtcars = head(mtcars), chickwts = head(chickwts))
)
#> ✔ Creating new Sheet: sheet-copy-demo-aaa.

# copy 'mtcars' sheet within existing Sheet, accept autogenerated name
ss_aaa %>%
  sheet_copy()
#> ✔ Duplicating sheet mtcars in sheet-copy-demo-aaa.
#> ✔ Copied as Copy of mtcars.

# copy 'mtcars' sheet within existing Sheet
# specify new sheet's name and location
ss_aaa %>%
  sheet_copy(to_sheet = "mtcars-the-sequel", .after = 1)
#> ✔ Duplicating sheet Copy of mtcars in sheet-copy-demo-aaa.
#> ✔ Copied as mtcars-the-sequel.

# make a second Sheet
ss_bbb <- gs4_create("sheet-copy-demo-bbb")
#> ✔ Creating new Sheet: sheet-copy-demo-bbb.

# copy 'chickwts' sheet from first Sheet to second
# accept auto-generated name and default location
ss_aaa %>%
  sheet_copy("chickwts", to_ss = ss_bbb)
#> ✔ Copying sheet chickwts from sheet-copy-demo-aaa to sheet-copy-demo-bbb.
#> ✔ Copied as Copy of chickwts.

# copy 'chickwts' sheet from first Sheet to second,
# WITH a specific name and into a specific location
ss_aaa %>%
  sheet_copy(
    "chickwts",
    to_ss = ss_bbb, to_sheet = "chicks-two", .before = 1
  )
#> ✔ Copying sheet chickwts from sheet-copy-demo-aaa to sheet-copy-demo-bbb.
#> ✔ Copied as chicks-two.

# clean up
gs4_find("sheet-copy-demo") %>%
  googledrive::drive_trash()
#> Files trashed:
#> • sheet-copy-demo-bbb <id: 1ogl6MGr_2L9MaRjEpI-gOBdIfCOb6Q7VQ5jmKdNJDVo>
#> • sheet-copy-demo-aaa <id: 1tl6l32B1bbfrRTQeUML5o0Z-u_6re3ge9lSSBzFTzP8>