R/rpt.R

In nbarsch/pineium: pineium custom scrape package

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))))
}