R/deleteRight.r

In datana: Datasets and Functions to Accompany Analisis De Datos Con R

#' Function to delete the last n-characters of a string from
#' the right-hand side.
#'
#' @details It is specially set to arrange data vector having
#' alphanumeric 
#' format.
#' 
#' @title Deletes the last n-characters of a string
#' @param fac is an object of class string or factor
#' @param n is the number of characters to be deleted of a the
#' string given 
#' in 'fac'.
#'
#' @return This function returns an object having n-less characters
#' from the right-hand side.
#' @author Christian Salas-Eljatib
#' @references
#' Salas-Eljatib, C. 2021. Análisis de datos con el programa
#' estadístico R: una introducción
#'  aplicada. Ediciones Universidad Mayor, Santiago, Chile. 170 p. 
#'  \url{https://eljatib.com/rlibro}
#' @examples
#'
#' last.names.id <- c("Stage-1924","Gregoire-1958","Robinson-1967")
#' deleteRight(last.names.id,5)
#' deleteRight(last.names.id,4)
#' @rdname deleteRight
#' @export
#' 
#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
deleteRight <- function(fac, n){
  substr(fac, nchar(1), nchar(fac)-n)
}