knitr::opts_chunk$set( collapse = TRUE, comment = "#>", warning = FALSE, message = FALSE )
Data from the Lifewatch bird tracking project collected by stations in Ostend, Zeebrugge and Vlissingen.
All HG
(Herring Gull), All LBB
(Lesser Black Backed Gull)1 or All MH
(Marshal Harrier).# Get the abstract and/or description from IMIS and print here library(jsonlite) dasid <- fromJSON("https://www.vliz.be/en/imis?module=dataset&dasid=5249&show=json") abstract <- dasid[["datasetrec"]][["EngAbstract"]] description <- dasid[["datasetrec"]][["EngDescr"]] if (is.null(abstract) & is.null(description)){ } else if(is.null(abstract) & !is.null(description)){ out <- description } else if(!is.null(abstract) & is.null(description)){ out <- abstract } else if(!is.null(abstract) & !is.null(description)){ out <- paste0(abstract, "</br>", description) } cat(out)
library(jsonlite) # Set base url 5251 4688 url <- "https://www.vliz.be/en/imis?module=dataset&dasid=5249" dasid <- fromJSON(paste0(url, "&show=json")) # Build citation. citation <- dasid[["datasetrec"]][["Citation"]] citation <- paste0("> ", citation, " ", url, ". Accessed through the LifeWatch Data Explorer / lwdataexplorer R package." ) # Get license license <- dasid[["datasetrec"]][["AccConstrDisplay"]]
cat(citation)
cat(paste0("<b>Availability:</b>", license))
Please acknowledge as: This work makes use of the LifeWatch observation data and infrastructure (provided by INBO, UGent, University of Antwerpen, UvA and VLIZ) funded by Research Foundation - Flanders (FWO) as part of the Belgian contribution to LifeWatch.
These data are also available in the R language with the lwdataxplorer package.
1 The correct abbreviation for the Lesser Black-Backed Gull is LBBG. We first used LBB and we keep this for reproducibility.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.