R/str_right.R

In martinctc/textworks: All-in-one package for working with text data

#' Return the n number of characters from the right
#'
#' Wrapper convenience function
#'
#' @param x String character to pass through
#' @param n Integer specifying the number of characters to return from the right.
#'
#' @importFrom stringr str_sub
#'
#' @examples
#' str_right("Wittgenstein", 5)
#'
#' @export
str_right <- function(x, n){
  nx <- n-1
  str_sub(x,nchar(x)-nx,nchar(x))
}