data-raw/download-cuba.R

fn <- get_cuba()
dfn <- file.path("inst", "extdata", basename(fn))

for (i in seq_along(fn)) {
  if (!file.exists(dfn[i])) download.file(fn[i], dfn[i])
}
alketh/cuba documentation built on May 28, 2019, 2:46 p.m.