inst/rmarkdown/templates/clinicopathological/skeleton/R/cleanSurgPathNo.R

In sbalci/histopathR: Template and R Codes Used in Histopathologic Research

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