Nothing
#' extract the id of a cbs table from the statline url
#' @param url `character` with hyperlink to StatLine table
#' @param ... future use.
#' @return `character` with id, will be NA if not found.
#' @family data retrieval
cbs_extract_table_id <- function(url, ...){
toc <- cbs_get_datasets(...)
if (url %in% toc$Identifier){
return(url)
}
id <- sub(".+/dataset/(\\w+).+", "\\1", url)
if (url == id){
return(NA)
}
if (!(id %in% toc$Identifier)){
warning("id: '", id, "' does not seem a valid id (see get_cbs_toc)", call. = FALSE)
}
id
}
# testing 1,2,3
# url <- "https://opendata.cbs.nl/statline/#/CBS/nl/dataset/70072ned/table?dl=AB73"
# cbs_extract_table_id(url)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.