Running examples in ‘umweltapir-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: fetch_data
> ### Title: Fetch data from umwelt.info
> ### Aliases: fetch_data fetch_by_query fetch_by_url fetch_by_ids
> ###   fetch_facet_values
> 
> ### ** Examples
> 
> # Example 1: Fetching by a direct URL
> if (interactive()) {
+   api_url <- "https://md.umwelt.info/search/all?query=Luftqualität"
+   result_list <- fetch_by_url(api_url)
+ }
> 
> # Example 2: Fetching by query string
> # For background how to build a query see https://md.umwelt.info/swagger-ui/#/search/text_search
> # If you want to know which facet values exist for a certain facet, you can use
> # fetch_facet_values (see example 5).
> if (interactive()) {
+   result_list <- fetch_by_query("organisation:/Land/Bayern/open.bydata AND Ozon AND license:/Offen")
+ }
> 
> # Example 3: Select subset of columns and unnest columns (here the column "resources" is unnested
> # into its subcolums "type", "url", "description", "direct_link" and "primary_content") and in a
> # second step "type" is further unnested into "path" and "label"
> if (interactive()) {
+   result_list <- fetch_by_query("(Ozon) AND organisation:/Land/Bayern/open.bydata")
+   colnames(result_list) # columns before unnesting
+   result_list <- result_list |>
+     tidyr::unnest(col = c("source")) |>
+     (\(df) df[, c("source", "id", "resources", "title", "quality"), drop = FALSE])() |>
+     tidyr::unnest(col = c("resources")) |>
+     tidyr::unnest(col = c("type"))
+   colnames(result_list) # columns after unnesting)
+ }
> 
> # Example 4: Fetching by a list of dataset IDs. This can e.g. be useful for downloading resources.
> # After using preview_resources you can select a subset of from the preview list using
> # fetch_by_ids() and forward it as input to download_resources().
> ids <- c(
+   "uvk-be/-sen-uvk-umwelt-luft-luftqualitaet-",
+   "lanuk-nrw/-publikationen-publikation-bericht-ueber-die-luftqualitaet-im-jahre-2014",
+   "metaver-hb/7F0A29F5-ECBC-476D-9C99-DC1A6A8043D0"
+ )
> datasets <- fetch_by_ids(ids)
Error in `httr2::req_perform()`:
! Failed to perform HTTP request.
Caused by error in `curl::curl_fetch_memory()`:
! Could not connect to server [md.umwelt.info]:
Failed to connect to md.umwelt.info port 443 after 237 ms: Could not connect to server
Backtrace:
    ▆
 1. └─umweltapir::fetch_by_ids(ids)
 2.   ├─httr2::resp_body_string(...)
 3.   │ └─httr2:::check_response(resp)
 4.   │   └─httr2:::is_response(resp)
 5.   └─httr2::req_perform(...)
 6.     └─httr2:::handle_resp(req, resp, error_call = error_call)
 7.       └─rlang::cnd_signal(resp)
Execution halted