R/rtn.R

In nbarsch/tfwstring:

Defines functions rtn

Documented in rtn

#' rtn()
#'
#' remove text/number and get only punct
#'
#' @export
rtn <- function(string){
  return(trimws(gsub("[[:alpha:]]","",gsub("[[:digit:]]","",string))))
}