Gebruik maken van API voor twn-lijst

[RedTent]

Gebruik maken van API van Aquadesk

NB de API is vrij langzaam voor het ophalen van de TWN-lijst. Direct gebruik van de API is waarschijnlijk niet ideaal, maar kan bijv. wel gebruikt worden voor controle van welke taxa missen in het package

library(httr)
library(tidyverse)

get_data <- function(url){
  
  x <- httr::GET(url)
  inhoud <- httr::content(x) 
  tibble::tibble(x = inhoud$result) %>% 
  tidyr::unnest_wider(x)
 }

urls <- paste0("https://ddecoapi.aquadesk.nl/v2/parameters?filter=parametertype:eq:%27TAXON%27&page=", 1:3)

twn <- map(urls, get_data) %>% 
  reduce(bind_rows)