codeJG/formattingDrugName.R

In fcarazo/drughelper: Drug Identification and Drug Name Correction with Automatic Updates

#' @title Normalization of drug names
#' @description  This function corrects and capitalizes the names of a given vector of drugs.
#' @param DrugName string with the name of the drug to be normalized
#' @export
#' @example formattingDrugName("morphine")

 formattingDrugName <- function(DrugName) {
  
  DrugName<- toupper(DrugName)
  DrugName <- gsub("[^[:alnum:]]", " ", DrugName)
  DrugName <- gsub("[[:blank:]]", "", DrugName)
  
  return(DrugName)
}