R/tab4_function.r

In sooyongl/ESS:

Defines functions extract_num

Documented in extract_num

#' @include tab3_function.r
NULL

#' extract_num
extract_num <- function(vectorInp){
  as.numeric(str_extract(vectorInp, "[[:digit:]]"))
}