utils/create updated

utils/create

 #!/usr/bin/env Rscript
 VD17_URL <- "https://gitlab.informatik.uni-halle.de/dikon/hdw-pica/-/raw/master/view/output/vd17--any--printed.csv"
 vd17 <- read.csv(url(VD17_URL))
+# vd17 <- read.csv("../hdw-pica/view/output/vd17--any--printed.csv")
 vd17_nr <- unique(vd17$vd17_nr)
-vd17_nr <- vd17_nr[grepl("^[[:alnum:]]{8}$", vd17_nr, perl=T)]    # exclude temporary identifiers
-jsonlite::write_json(vd17_nr, "data/vd17-online.json", pretty=T)
+jsonlite::write_json(vd17_nr, "data/vd17-printed.json", pretty=T)