R/clean_names.R

Defines functions clean_names

clean_names <- function(x){
  x <- as.character(x)
  x<-toupper(x)
  x <- gsub(pattern = " ", replacement = "-",x = x, fixed = TRUE)
  x <- gsub(pattern = "--", replacement = "-",x = x, fixed = TRUE)
  return(x)
}
lfmerrick21/WhEATBreeders documentation built on Jan. 1, 2023, 7:12 a.m.