if(dev.interactive()){
# build the example database
adb_example(until = "normGeometry", path = tempdir())
# normalise all available data tables ...
normTable()
# ... and check the result
output <- readRDS(paste0(tempdir(), "/tables/stage3/Estonia.rds"))
}
Run the code above in your browser using DataLab