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
res <- items_create(title = c(aname(), aname()))
items_rm(res)
}
Run the code above in your browser using DataLab