R/collapse_query_set.R

In galah: Biodiversity Data from the GBIF Node Network

#' Internal function to parse a `query_set` into a single `query`
#' @param x a `query_set`
#' @noRd
#' @keywords Internal
collapse_query_set <- function(x,
                               error_call = rlang::caller_env()){
  switch(x$type,
         "data/occurrences" = collapse_occurrences(x),
         "data/occurrences-count" = {
           if(is_gbif()){
             collapse_occurrences_count_gbif(x)
           }else{
             collapse_occurrences_count_atlas_basic(x)   
           }
         },
         "data/occurrences-count-groupby" = {
           if(is_gbif()){
             if(nrow(x$body$group_by) > 1){
               collapse_occurrences_count_gbif_groupby_crossed(x)
             }else{
               collapse_occurrences_count_gbif_groupby_basic(x)
             }
           }else{
             query_names <- httr2::url_parse(x$url) |>
               purrr::pluck("query") |>
               names()
             if(length(which(query_names == "facets")) > 1){
               collapse_occurrences_count_atlas_groupby_crossed(x)
             }else{
               collapse_occurrences_count_atlas_basic(x)
             }
           }
         },
         "data/occurrences-glimpse" = {
           if(is_gbif()){
            collapse_occurrences_count_gbif(x, limit = 3)
           }else{
             x
           }},
         "data/species" = collapse_occurrences(x), # optimised for GBIF
         "data/species-count" = collapse_species_count(x),
         # "-unnest" functions require some checks
         "metadata/profiles-unnest" = collapse_profile_values(x,
                                                              error_call = error_call) |> 
           add_request(x$request),
         # some "metadata/" functions require pagination under some circumstances
         "metadata/lists" = collapse_lists(x), # always paginates
         x # remaining "metadata/" functions and "data/occurrences-doi" are passed as-is 
  )
}