Skip to content

Commit

Permalink
readDWD.rklim: examples fixed
Browse files Browse the repository at this point in the history
  • Loading branch information
brry committed Apr 13, 2023
1 parent 0acc901 commit 4f01e4d
Show file tree
Hide file tree
Showing 3 changed files with 17 additions and 7 deletions.
2 changes: 1 addition & 1 deletion DESCRIPTION
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
Package: rdwd
Title: Select and Download Climate Data from 'DWD' (German Weather Service)
Version: 1.6.14
Version: 1.6.15
Date: 2023-04-13
Depends: R(>= 2.10)
Imports: berryFunctions (>= 1.21.11), pbapply
Expand Down
11 changes: 8 additions & 3 deletions R/readDWD.R
Original file line number Diff line number Diff line change
Expand Up @@ -1107,16 +1107,21 @@ return(invisible(dat))
#' @seealso [readDWD.binary()], radar locations from \url{https://www.dwd.de/DE/leistungen/radarklimatologie/radklim_kompositformat_1_0.pdf?__blob=publicationFile&v=1}
#' @examples
#' \dontrun{ # Excluded from CRAN checks, but run in localtests
#' yw_link <- "/5_minutes/radolan/reproc/2017_002/bin/2020/YW2017.002_202006.tar"
#' yw_link <- "/5_minutes/radolan/reproc/2017_002/bin/2022/YW2017.002_202203.tar"
#' # 202006 has untar error on Mac, 2023-04, maybe due to incomplete download
#' yw_file <- dataDWD(url=yw_link, base=gridbase, joinbf=TRUE, dir=locdir(), read=FALSE)
#' x <- readDWD(yw_file, selection=3641:3644)
#' # 207 MB
#' x <- readDWD(yw_file, selection=3641:3644)
#' # 00:30 for tar files, 01:40 for unpacking.
#' # If you need a preselection argument, let me know.
#' raster::plot(x$dat)
#'
#' f <- system.file("tests//raa01-yw2017.002_10000-2006131525-dwd---bin", package="dwdradar")
#' if(f=="") stop("dwdradar test file not found")
#' # https://stackoverflow.com/a/72207233/1587132 on how to install with tests folder
#' if(!file.exists(f)) f <- paste0("/Users/berry/Dropbox/Rpack/dwdradar/tests/",
#' "raa01-yw2017.002_10000-2006131525-dwd---bin")
#' # Clone from https://github.com/brry/dwdradar
#' if(!file.exists(f)) stop("dwdradar test file not found")
#'
#' x <- dwdradar::readRadarFile(f)
#' x$dat <- raster::raster(x$dat)
Expand Down
11 changes: 8 additions & 3 deletions man/readDWD.rklim.Rd

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

0 comments on commit 4f01e4d

Please sign in to comment.