diff options
Diffstat (limited to 'KOR.addrlink/R/split_address.R')
| -rw-r--r-- | KOR.addrlink/R/split_address.R | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/KOR.addrlink/R/split_address.R b/KOR.addrlink/R/split_address.R new file mode 100644 index 0000000..4fc71d5 --- /dev/null +++ b/KOR.addrlink/R/split_address.R @@ -0,0 +1,10 @@ +split_address <- +function(x, debug = FALSE) { + stopifnot(is.character(x), is.vector(x)) + vec_split_address <- Vectorize(helper_split_address, vectorize.args = "x", + USE.NAMES = FALSE, SIMPLIFY = FALSE) + res <- vec_split_address(x, debug = debug) + return(data.frame(Strasse = unlist(lapply(res, '[[', 1)), + Hausnummer = unlist(lapply(res, '[[', 2)), + Hausnummernzusatz = unlist(lapply(res, '[[', 3)))) +} |