#' Wasserportal Berlin: get overview options for stations
#'
#' @return list with shortcuts to station overview tables
#' (`wasserportal.berlin.de/messwerte.php?anzeige=tabelle&thema=<shortcut>`)
#' @export
#'
#' @examples
#' get_overview_options()
#'
get_overview_options <- function()
{
list(
surface_water = list(
water_level = "ows",
flow = "odf",
temperature = "owt",
conductivity = "olf",
ph = "oph",
oxygen_concentration = "oog",
oxygen_saturation = "oos",
quality = "opq"
),
groundwater = list(
level = "gws",
quality = "gwq"
)
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.