R googlesheets4 sheet_write (覆盖)将新数据写入工作表

sheet_write(data, ss = NULL, sheet = NULL)

write_sheet(data, ss = NULL, sheet = NULL)

其他写入函数：gs4_create()、gs4_formula()、range_delete()、range_flood()、range_write()、sheet_append()

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

df <- data.frame(
  x = 1:3,
  y = letters[1:3]
)

# specify only a data frame, get a new Sheet, with a random name
ss <- write_sheet(df)
#> ✔ Creating new Sheet: zippered-bobolink.
read_sheet(ss)
#> ✔ Reading from zippered-bobolink.
#> ✔ Range df.
#> # A tibble: 3 × 2
#>       x y    
#>   <dbl> <chr>
#> 1     1 a    
#> 2     2 b    
#> 3     3 c    

# clean up
googledrive::drive_trash(ss)
#> File trashed:
#> • zippered-bobolink <id: 1S28TXVHct8gcG2ekESAVLf4FYpp1fYHGixsGIbu4jt8>

# create a Sheet with some initial, placeholder data
ss <- gs4_create(
  "sheet-write-demo",
  sheets = list(alpha = data.frame(x = 1), omega = data.frame(x = 1))
)
#> ✔ Creating new Sheet: sheet-write-demo.

# write df into its own, new sheet
sheet_write(df, ss = ss)
#> ✔ Writing to sheet-write-demo.
#> ✔ Writing to sheet df.

# write mtcars into the sheet named "omega"
sheet_write(mtcars, ss = ss, sheet = "omega")
#> ✔ Writing to sheet-write-demo.
#> ✔ Writing to sheet omega.

# get an overview of the sheets
sheet_properties(ss)
#> # A tibble: 3 × 8
#>   name  index         id type  visible grid_rows grid_columns data  
#>   <chr> <int>      <int> <chr> <lgl>       <int>        <int> <list>
#> 1 alpha     0 1796393871 GRID  TRUE            2            1 <NULL>
#> 2 omega     1  912801732 GRID  TRUE           33           11 <NULL>
#> 3 df        2  681316902 GRID  TRUE            4            2 <NULL>

# view your magnificent creation in the browser
gs4_browse(ss)

# clean up
gs4_find("sheet-write-demo") %>%
  googledrive::drive_trash()
#> File trashed:
#> • sheet-write-demo <id: 1RyQ0qdvuOKg3gDsHATTN-AdiL8AL_OAWx-JHtnmrPd8>