# \donttest{
# Get an item
item_get("4f4e4b24e4b07f02db6aea14")
# Search for item IDs, then pass to item_get
library("httr")
res <- query_items(list(s = "Search", q = "water", format = "json"))
if(inherits(res, "response") && res$status != 404) {
ids <- vapply(httr::content(res)$items, "[[", "", "id")
lapply(ids[1:3], item_get)
}
# }
Run the code above in your browser using DataLab