diff --git a/R/collect_metadata.R b/R/collect_metadata.R index 39347ec8..e33bfb27 100644 --- a/R/collect_metadata.R +++ b/R/collect_metadata.R @@ -170,6 +170,11 @@ collect_fields <- function(.query){ if(!is.null(.query$url)){ # i.e. there is no cached `tibble` result <- query_API(.query) |> bind_rows() + # if there is a 'stored' field, use it to filter results + if(any(colnames(result) == "stored")){ + result <- result |> dplyr::filter(stored == TRUE) + } + # now mutate to required format result <- result |> mutate(id = result$name) |> select(all_of(wanted_columns("fields"))) |>