## Not run:
# gap_ss <- gs_copy(gs_gap(), to = "gap_copy")
# gs_ws_ls(gap_ss)
# gap_ss <- gs_ws_rename(gap_ss, from = "Oceania", to = "ANZ")
# gs_ws_ls(gap_ss)
# gap_ss <- gs_ws_rename(gap_ss, from = 1, to = "I am the first sheet!")
# gs_ws_ls(gap_ss)
# gs_delete(gap_ss)
# ## End(Not run)
Run the code above in your browser using DataLab