#' Substring n last characters
#'
#'
#' @param x vector
#' @param n number of string elements to
#' @keywords substr
#' @export
#' @examples
#' ##Kim Larsen
#' cpr<-"231045-0637"
#' substrRight(cpr,4)
substrRight <- function(x, n){
r<-nchar(x)
substr(x, r-n+1, r)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.