R/extractLeft.r

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

#' Function to extract the first n-characters of a string from the
#' left-hand side.
#'
#' @details It is specially set to arrange data vector
#' having alphanumeric format.
#' 
#' @title Extracts 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 the first
#' n-characters from the left-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
#'
#' plot.id <- c("BNE1","BNE2","PLE1")
#' extractLeft(plot.id,1)
#' extractLeft(plot.id,2)
#' extractLeft(plot.id,3)
#' @rdname extractLeft
#' @export
#' 
#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
extractLeft <- function(fac, n){
  substr(fac, nchar(fac)-nchar(fac)+1, n)
}