if (FALSE) {
# Create an item with nested structure
authenticate_sb()
fname <- "chairs"
folder = folder_create(user_id(), name = fname)
item_create(folder, title='child1')
item_create(folder, title='child2')
item_list_children(folder)
# then delete the whole folder
sbtools:::item_rm_recursive(folder)
}
Run the code above in your browser using DataLab