herre2020 added

data/2020-herre.json

+["119837692", "1037540638", "115801103", "136709524", "103753302X", "1037524675", "104298065", "1037532902", "1037504070", "1037504089", "1037502094", "103753381X", "123949564", "1037517911", "1037524713", "104150033", "120436329", "1037533283", "1037524721", "1037505905", "103751128X", "1037524683", "1037503570", "1037505883", "103752473X", "128460334", "1037505875", "1037495748", "1037532368", "1037655982", "1037615972", "118534688", "130528900", "1036622681", "1037532082", "1037517237", "1037522605", "1037502086", "131798456", "124752853", "1037520149", "1037503899", "1037630610", "1037507436", "1037589114", "1037496507", "129519464", "1037590511", "1037580737", "1037614860", "1037500393", "1037576594", "1037628969", "116473207", "1037503538", "1037500148", "102531862", "1037603001", "1037496973", "1037497406", "1066355215", "103749573X", "1037606094", "1037542592", "1037647092", "1037504488", "1037500903", "1037566300", "1037511042", "1037507118", "103756300X", "1037507568", "1037641914", "1029685479", "1037558448", "1104500728", "1014026881", "1037650247", "1037560264", "1076098789", "1037586662", "103765367X", "1037496876", "1037570138", "1037587790", "1037496833", "1037589106", "1037518292", "103752005X", "1037529243"]

utils/collate

+#!/usr/bin/env Rscript
+OUT <- "data/2020-herre.json"
+if(file.exists(OUT)) {
+  removed <- file.remove(OUT)
+}
+paths <- list.files("data", pattern="\\.json", full.names=TRUE)
+identifiers <- sapply(paths, jsonlite::read_json)
+identifiers <- unique(unlist(identifiers))
+jsonlite::write_json(identifiers, OUT, pretty=TRUE)