codeJG/generateDB/formattingSynonymsTable.R

updateTable <- function(datosChembl){
  
  for (i in 1:nrow(datosChembl)){
    aux <- gsub("[[:blank:]]", "", datosChembl$synonyms[i])
    datosChembl$synonyms_formatted[i] <- gsub("[^[:alnum:];]", "", aux)
  }
  
  
  return(datosChembl)
  
}
fcarazo/drughelper documentation built on April 4, 2022, 1:49 p.m.