Little Helpers: Character index counter
I find myself counting characters on my screen more often than I feel comfortable doing it. Isn’t it weird to count things by hand when you have the power of R right in front of you? Well, I decided to but a little helper function into my .Rprofile
file (i.e. the function is defined with every startup of R and available throughout the session) that cares care of that (and is less error-prone at the same time).
.charind <- function (char) {
lapply(char, FUN = function (x) {
spl <- strsplit(x, "")[[1]]
ret <- 1:length(spl)
names(ret) <- spl
ret
})
}
By the way: Whenever the name of an R object starts with a dot .
this object is invisible - so, this little helper will not clutter your RStudio “Environment” pane. Let’s test it:
.charind(c("2020-12-26", "Klärschlammentsorgungsrichtlinie"))
## [[1]]
## 2 0 2 0 - 1 2 - 2 6
## 1 2 3 4 5 6 7 8 9 10
##
## [[2]]
## K l ä r s c h l a m m e n t s o r g u n g s r i c h
## 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
## t l i n i e
## 27 28 29 30 31 32
No counting with fingers on the screen anymore…