# 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