## 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