## Not run:
# # get a copy of the Gapminder spreadsheet
# gap_ss <- gs_copy(gs_gap(), to = "Gapminder_copy")
# gap_ss <- gs_ws_new(gap_ss)
# gap_ss <- gs_ws_delete(gap_ss, ws = "Sheet1")
# gap_ss <-
# gs_ws_new(gap_ss, ws_title = "Atlantis", input = head(iris), trim = TRUE)
# gap_ss
# gs_delete(gap_ss)
# ## End(Not run)
Run the code above in your browser using DataLab