R/rpt.R

In nbarsch/tfwstring:

Defines functions rpt

Documented in rpt

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