# NOT RUN {
#set your API key with set_key(api_key = "XXXX")
#example_1
resp <- query_search_api("arioch", rows = 2)
download_media(resp, type = "IMAGE")
#example_2 bulk download
res_bulk <- tidy_cursored_search(query = "animal",
qf = "when:17 AND what:painting",
max_items = 3)
download_media(res_bulk)
# }
Run the code above in your browser using DataLab