if (FALSE) {
# helper function to make a random name
aname <- function() paste0(sample(letters, size = 5, replace = TRUE), collapse = "")
res <- items_create(user_id(), title = c(aname(), aname()))
out <- items_update(res, info = list( list(title = aname()), list(title = aname()) ) )
vapply(out, "[[", "", "title")
}
Run the code above in your browser using DataLab