if (FALSE) # Excluded from CRAN checks, but run in localtests
link <- selectDWD(res="hourly", var="solar", per="r", meta=TRUE)
if(!any(endsWith(link,"pdf"))) stop("no pdf file here anymore")
# hourly/sun no longer has a pdf file anymore 2023-09
link <- link[endsWith(link,"pdf")][1]
file <- dataDWD(link, read=FALSE)
readDWD(file) # opens in OS default PDF viewer
# for regular res/var combinations, use per=" " (since 1.8.29 2025-05-20)
link <- selectDWD(res="daily", var="kl", per=" ", meta=TRUE)
if(!any(endsWith(link,"pdf"))) stop("no pdf file here anymore")
Run the code above in your browser using DataLab