data-raw/make_data.R

In Acanthiza/envTrend: Taxa Trend Analysis Tools

  rm(list = ls())

  make_new_flor <- FALSE

  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|flor_all|aoi")

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