R googlesheets4 googlesheets4-configuration 穀歌表4配置

local_gs4_quiet(env = parent.frame())

with_gs4_quiet(code)

# message: "Creating new Sheet ..."
(ss <- gs4_create("gs4-quiet-demo", sheets = "alpha"))
#> ✔ Creating new Sheet: gs4-quiet-demo.
#> 
#> ── <googlesheets4_spreadsheet> ───────────────────────────────────────────
#> Spreadsheet name: gs4-quiet-demo                              
#>               ID: 1Mxn59QJOcDdKKAH7U2Oya-bpmp9uSpNi1w8WmIYrEoA
#>           Locale: en_US                                       
#>        Time zone: Etc/GMT                                     
#>      # of sheets: 1                                           
#> 
#> ── <sheets> ──────────────────────────────────────────────────────────────
#> (Sheet name): (Nominal extent in rows x columns)
#>        alpha: 1000 x 26

# message: "Editing ..., Writing ..."
range_write(ss, data = data.frame(x = 1, y = "a"))
#> ✔ Editing gs4-quiet-demo.
#> ✔ Writing to sheet alpha.

# suppress messages for a small amount of code
with_gs4_quiet(
  ss %>% sheet_append(data.frame(x = 2, y = "b"))
)

# message: "Writing ..., Appending ..."
ss %>% sheet_append(data.frame(x = 3, y = "c"))
#> ✔ Writing to gs4-quiet-demo.
#> ✔ Appending 1 row to alpha.

# suppress messages until end of current scope
local_gs4_quiet()
ss %>% sheet_append(data.frame(x = 4, y = "d"))
#> ✔ Writing to gs4-quiet-demo.
#> ✔ Appending 1 row to alpha.

# see that all the data was, in fact, written
read_sheet(ss)
#> ✔ Reading from gs4-quiet-demo.
#> ✔ Range alpha.
#> # A tibble: 4 × 2
#>       x y    
#>   <dbl> <chr>
#> 1     1 a    
#> 2     2 b    
#> 3     3 c    
#> 4     4 d    

# clean up
gs4_find("gs4-quiet-demo") %>%
  googledrive::drive_trash()
#> File trashed:
#> • gs4-quiet-demo <id: 1Mxn59QJOcDdKKAH7U2Oya-bpmp9uSpNi1w8WmIYrEoA>