R/cleanSurgPathNo.R

cleanSurgPathNo <- 
    . %>% 
    trimws() %>% 
    gsub(pattern = "[a-zA-Z]",
         replacement = "",
         x = .
         ) %>% 
    gsub(pattern = "-",
         replacement = " ",
         x = .
         ) %>% 
    substr(x = .,
           start = 1,
           stop = 8
           )
modelistatistik/deneme documentation built on Nov. 4, 2019, 7:28 p.m.