diff options
| author | Daniel Schürmann <d.schuermann@2718282.net> | 2024-03-10 12:22:13 +0100 |
|---|---|---|
| committer | Daniel Schürmann <d.schuermann@2718282.net> | 2024-03-10 12:22:13 +0100 |
| commit | e02f41b9b1dc3c45f6626e8b01fee2acb5b905d4 (patch) | |
| tree | 8fa7087b5f5fcfe5513c97ef7fa6f0fdb9edf614 /KOR.addrlink/R/split_address.R | |
| download | KOR.addrlink-master.tar.gz KOR.addrlink-master.zip | |
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)))) +} |