if (FALSE) # Excluded from CRAN checks, but run in localtests
link <- selectDWD(res="daily", var="kl", per="r", meta=TRUE)
link <- link[!grepl("mn4", link)] # for mn4 file May 2022
link <- grep(".txt$", link, value=TRUE)
if(length(link)!=1) stop("length of link should be 1, but is ", length(link),
":\n", berryFunctions::truncMessage(link,prefix="",sep="\n"))
file <- dataDWD(link, dir=locdir(), read=FALSE)
meta <- readDWD(file)
head(meta)
cnm <- colnames(meta)
if(length(cnm)!=8) stop("number of columns should be 8, but is ", length(cnm),
":\n", toString(cnm))
Run the code above in your browser using DataLab