data-raw/make_data.R

In Acanthiza/envImport: Combine Disparate Data Sources

  rm(list = ls())

  library(magrittr)

  codes <- grep("make_data"
                , list.files(path = "data-raw",pattern = "\\.R$", full.names = TRUE)
                , value = TRUE
                , invert = TRUE
                )

  lapply(codes,source)

  datas <- ls(pattern = "lu|data_map|aoi")

  do.call(save, c(lapply(datas,as.name), file = "data/data.rda"))