if (FALSE) {
# Use `atlas_media()` to return a `tibble` of records that contain media
x <- galah_call() |>
identify("perameles") |>
filter(year == 2015) |>
atlas_media()
# To download media files, add `collect_media()` to the end of a query
galah_config(directory = "media_files")
collect_media(x)
#' # post version 2.0, it is possible to run all steps in sequence
# first, get occurrences, making sure to include media fields:
occurrences_df <- request_data() |>
identify("Regent Honeyeater") |>
filter(!is.na(images), year == 2011) |>
select(group = "media") |>
collect()
# second, get media metadata
media_info <- request_metadata() |>
filter(media == occurrences_df) |>
collect()
# the two steps above + `right_join()` are synonmous with `atlas_media()`
# third, get images
request_files() |>
filter(media == media_df) |>
collect(thumbnail = TRUE)
# step three is synonymous with `collect_media()`
}
Run the code above in your browser using DataLab