# NOT RUN {
if (gs4_has_token()) {
ss <- gs4_create("delete-sheets-from-me")
sheet_add(ss, c("alpha", "beta", "gamma", "delta"))
# get an overview of the sheets
sheet_properties(ss)
# delete sheets
sheet_delete(ss, 1)
sheet_delete(ss, "gamma")
sheet_delete(ss, list("alpha", 2))
# get an overview of the sheets
sheet_properties(ss)
# clean up
gs4_find("delete-sheets-from-me") %>%
googledrive::drive_trash()
}
# }
Run the code above in your browser using DataLab