.Rhistory

rw_base <- "ftp://ftp-cdc.dwd.de/weather/radar/radolan/sf"
rw_urls <- indexFTP(base=rw_base, dir=tempdir(), folder="", quiet=TRUE)
rw_file <- dataDWD(rw_urls[length(rw_urls)], base=rw_base, joinbf=TRUE, dir=tempdir(), read=FALSE, quiet=TRUE, dbin=TRUE)
needs(dplyr)
needs(rdwd)
needs(dwdradar)
needs(sp)
needs(raster)
needs(rgdal)
needs(RCurl)
rw_urls <- indexFTP(base=rw_base, dir=tempdir(), folder="", quiet=TRUE)
library(rdwd)
library(dwdradar)
rw_urls <- indexFTP(base=rw_base, dir=tempdir(), folder="", quiet=TRUE)
rw_file <- dataDWD(rw_urls[length(rw_urls)], base=rw_base, joinbf=TRUE, dir=tempdir(), read=FALSE, quiet=TRUE, dbin=TRUE)
# data & reproject
rw_orig <- dwdradar::readRadarFile(rw_file)
rw_orig
View(rw_orig)
View(rw_orig)
rw_orig[["meta"]][["date"]][[1]][[1]][[1]][[1]][[1]][[1]][[1]][[1]][[1]][[1]][[1]]
rw_urls
rw_ruls[length(rw_urls)]
rw_urls[length(rw_urls)]
rw_urls <- indexFTP(base=rw_base, dir=tempdir(), folder="", quiet=F)
rw_orig[["meta"]][["date"]][[1]]
rw_base <- "ftp://ftp-cdc.dwd.de/weather/radar/radolan/sf"
rw_urls <- indexFTP(base=rw_base, dir=tempdir(), folder="", quiet=TRUE)
library(rdwd)
rw_urls <- indexFTP(base=rw_base, dir=tempdir(), folder="", quiet=TRUE)
rw_urls