data-raw/getdata.r

## get data from box-geometry-models


## cd data-raw/
## git clone https://github.com/AustralianAntarcticDivision/box-geometry-models.git
fs <- list.files("data-raw/box-geometry-models/data/bgm/", full.names = TRUE, pattern = ".bgm")
tofs <- file.path("inst/extdata/bgm", basename(fs))
dir.create(dirname(tofs)[1], showWarnings = FALSE, recursive = TRUE)
file.copy(fs, tofs, overwrite = TRUE)
AustralianAntarcticDivision/bgmfiles documentation built on June 6, 2024, 6:28 a.m.