R/substrRight.R

substrRight <- function(x, n){
    # Trims down values in vector x to n char
    # 
	sapply(x, function(xx)
		substr(xx, (nchar(xx)-n+1), nchar(xx))
	)
}
frenchja/SAPATools documentation built on May 16, 2019, 2:47 p.m.