R/remove_ending_chars.R

In COMHIS/estc: English Short Title Catalogue (ESTC) Metadata Toolkit

#' @title Remove Ending Chars
#' @description remove ending characters (and , ;) from every string in a vector.
#' @param x vector of strings
#' @return vector cleaned 
#' @export
#' @details removes ending characters and , ; from every string in a vector.
#' @author Mika Koistinen \email{leo.lahti@@iki.fi}
#' @references See citation("bibliographica")
#' @examples # remove_ending_chars("printed and sold by R. Marchbank,")
#' @keywords utilities
remove_ending_chars <- function (x) {
  #remove ending spaces
  trim.trailing <- function (x) sub("\\s+$", "", x)
  for (ind in 1:length(x)){
    vec=trim.trailing(x[ind])
    vec=ifelse(substr(vec,nchar(vec)-2,nchar(vec))=="and", substr(vec,1,nchar(vec)-3),vec)
    vec=trim.trailing(vec)
    vec=ifelse(substr(vec,nchar(vec),nchar(vec))==",", substr(vec,1,nchar(vec)-1),vec)
    x[ind]=ifelse(substr(vec,nchar(vec),nchar(vec))==";", substr(vec,1,nchar(vec)-1),vec)
  }
  x      
}