## Not run:
# ats_query <- c("publisher" = "american tract society")
# ids <- ia_search(ats_query, num_results = 3)
# items <- ia_get_items(ids)
# files <- ia_files(items)
# files
# ## End(Not run)
Run the code above in your browser using DataLab