R/cleanSurgPathNo.R

In sbalci/histopathology-template: Template of R Codes Used in Histopathology Research.

cleanSurgPathNo <- 
    . %>% 
    trimws() %>% 
    gsub(pattern = "[a-zA-Z]",
         replacement = "",
         x = .
         ) %>% 
    gsub(pattern = "-",
         replacement = " ",
         x = .
         ) %>% 
    substr(x = .,
           start = 1,
           stop = 8
           )