diff --git a/README.md b/README.md index ad9a6cd..2f31b44 100644 --- a/README.md +++ b/README.md @@ -1,3 +1,32 @@ # datasets -Data sets to be used for analysis \ No newline at end of file +## CBS 2021 + +### Updating + +See [cbs_2021/cbs_data_updaten.R](https://git.web.rug.nl/InterventionalModellingMMBI/datasets/src/branch/master/cbs_2021/cbs_data_updaten.R) to update the data sets. + +### Direct downloading + +For quicky reading in data sets from this remote repo: + +```r +read_rds_remote <- function(file, quiet = TRUE) { + # Remote read + if (grepl("^http", file, ignore.case = TRUE)) { + # Make temp local copy + file_local <- basename(file) + file_local <- file.path(tempdir(), file_local) + # Download file + download.file(file, file_local, quiet = quiet, mode = "wb") + file <- file_local + } + readRDS(file) +} +``` + +And then for e.g. NUTS3 regions: + +```r +nut3 <- read_rds_remote("https://git.web.rug.nl/InterventionalModellingMMBI/datasets/raw/branch/master/cbs_2021/nuts3.rds") +```