added GKZ 90001 Vienna (whole)

DESCRIPTION

@@ -2,8 +2,8 @@ Package: STATtools
 Encoding: UTF-8
 Type: Package
 Title: Tools of Statistics Austria (STAT)
-Version: 0.1.1
-Date: 2016-02-11
+Version: 0.1.2
+Date: 2016-03-18
 Authors@R: person("Gerhard", "Nachtmann",
     email = "[email protected]",
     role = c("aut", "cre"))

README.md

@@ -9,3 +9,11 @@ Development version from github:
 # install.packages("devtools")
 devtools::install_github("nachti/STATtools")
 ```
+
+## NEWS
+
+### 0.1.2 2016-03-18
+added GKZ (Gemeindekennziffer) 90001 for Vienna
+
+### 0.1.1 2016-02-11
+First release

data-raw/GCD.R

@@ -6,10 +6,11 @@
 library(data.table)
 source("./R/left.R")
 
-gcdraw <- fread("data-raw/GCD.csv", encoding = "Latin-1")
-gcdraw
+gcdnum <- fread("data-raw/GCD.csv", encoding = "Latin-1")
+gcdnum
 
-gcdnum <- gcdraw[, lapply(.SD, left, 5)]
+gcdcols <- grep("GKZ", names(gcdnum), value = TRUE)
+gcdnum[, (gcdcols) := lapply(.SD, left, 5), .SDcols = gcdcols]
 gcdnum
 names(gcdnum)
 gcdnum[, POP20150101e := as.numeric(POP20150101e)]
@@ -45,3 +46,4 @@ gcdnum[splitgem15]
 # gcdnum <- as.data.frame(gcdnum)
 # write.csv(data/gcdnum, "gcdnum.csv", row.names = FALSE)
 save(gcdnum, file = "data/gcdnum.rda", compress = "xz")
+

data-raw/GCD.csv

@@ -2383,3 +2383,4 @@ GKZ11;GKZ12;GKZ13;GKZ15;GKZ16;POP20150101e
 92101 Wien 21., Floridsdorf;92101 Wien 21., Floridsdorf;92101 Wien 21., Floridsdorf;92101 Wien 21., Floridsdorf;92101 Wien 21., Floridsdorf;151844
 92201 Wien 22., Donaustadt;92201 Wien 22., Donaustadt;92201 Wien 22., Donaustadt;92201 Wien 22., Donaustadt;92201 Wien 22., Donaustadt;172978
 92301 Wien 23., Liesing;92301 Wien 23., Liesing;92301 Wien 23., Liesing;92301 Wien 23., Liesing;92301 Wien 23., Liesing;96775
+90001 Wien;90001 Wien;90001 Wien;90001 Wien;90001 Wien;1797337