inst/modules/warnungen.R

In EricKrg/hikeR: What the Package Does (One Line, Title Case)

warnungen = function() {
  # ogrListLayers("https://maps.dwd.de/geoserver/ows?service=wfs&version=2.0.0&request=GetCapabilities")
  # ogrinfo(dsn, so=TRUE)

  warnungen = tryCatch({
    warnungen = sf::st_read("WFS:https://maps.dwd.de/geoserver/ows?service=wfs&version=2.0.0&request=GetCapabilities",
    layer = "dwd:Warnungen_Gemeinden",
    quiet = T) %>%
    sf::st_cast("GEOMETRYCOLLECTION") %>% sf::st_collection_extract("POLYGON") %>%
    dplyr::select(EVENT, DESCRIPTION, SENT, PARAMATERVALUE, WEB) %>%
    dplyr::mutate(EVENT = as.factor(stringr::str_to_title(as.character(EVENT))))
    },
    error=function(cond) {
      message("No weather warnings")
      no = TRUE
    })
  return(warnungen)
}