## Not run:
# gap_ss <- gs_copy(gs_gap(), to = "gap_copy")
# gs_ws_ls(gap_ss)
# gap_ss <- gs_ws_new(gap_ss, "new_stuff")
# gap_ss <- gs_edit_cells(gap_ss, "new_stuff", input = head(iris), trim = TRUE)
# gap_ss
# gap_ss <- gs_ws_delete(gap_ss, "new_stuff")
# gs_ws_ls(gap_ss)
# gap_ss <- gs_ws_delete(gap_ss, ws = 3)
# gs_ws_ls(gap_ss)
# gs_delete(gap_ss)
# ## End(Not run)
Run the code above in your browser using DataLab