# NOT RUN {
if (gs4_has_token()) {
ss <- gs4_create(
"sheet-rename-demo",
sheets = list(cars = head(cars), chickwts = head(chickwts))
)
sheet_names(ss)
ss %>%
sheet_rename(1, new_name = "automobiles") %>%
sheet_rename("chickwts", new_name = "poultry")
# clean up
gs4_find("sheet-rename-demo") %>%
googledrive::drive_trash()
}
# }
Run the code above in your browser using DataLab