data-raw/create-sysdata.R

In bowerth/estate: Real estate

library(magrittr)

providerConf <- list()

providerConf$papfr <-
  file.path("data-raw", "provider_pap_fr.json") %>%
  jsonlite::fromJSON()

providerConf$enalquiler <-
  file.path("data-raw", "enalquiler.json") %>%
  jsonlite::fromJSON()

## str(provider)

save(list=c("providerConf"), file = file.path("R", "sysdata.rda"))