R/test_data.R

In hewag1975/climgRaph:

library("tidyverse")
library("data.table")
library("sf")
library("mapview")
library("rdwd")

options(viewer = NULL)

data("geoIndex")

geoIndex %>%
  st_as_sf(coords = c("lon", "lat"), crs = 4326) %>%
  mapview()

link = selectDWD(id = 3668,
                 res = "daily",
                 var = "kl",
                 per = "historical")

cdata = dataDWD(file = link,
                dir = path.expand(path = "~/CDC"),
                read = TRUE,
                quiet = TRUE,
                force = NA,
                overwrite = TRUE)