if (FALSE) {
# helper function to make a random name
aname <- function() paste0(sample(letters, size = 5, replace = TRUE), collapse = "")
# Create an item - by default we use your user ID
(x <- item_upsert(title = aname()))
# Call item_upsert again, updates this time
item_upsert(x, info = list(
contacts = list(list(name = "Suzy"))
)
)
}
Run the code above in your browser using DataLab