if (FALSE) {
# helper function to make a random name
aname <- function() paste0(sample(letters, size = 5, replace = TRUE), collapse = "")
# Create some items - by default we use your user ID
items_create(title = c(aname(), aname()))
# add additional items in the info parameter - by default we use your user ID
items_create(title = c(aname(), aname()),
info = list(
list(contacts = list(list(name = "Suzy"))),
list(contacts = list(list(name = "Brandy")))
)
)
# another example with more information - by default we use your user ID
items_create(title = c(aname(), aname()),
info = list(
list(contacts = list(list(name = "Suzy"))),
list(contacts = list(list(name = "Brandy")))
)
)
# Pass an object of class sbitem
(x <- folder_create(user_id(), aname()))
items_create(x, title = c(aname(), aname()))
}
Run the code above in your browser using DataLab