R/suppressBrackets.R

In PdPDB: Pattern Discovery in PDB Structures of Metalloproteins

suppressBrackets <- function(carattere){
  
  withNoBrackets<-carattere
  
  if (identical(substr(carattere, 1, 1), "("))
    withNoBrackets<-substr(carattere, 2, 2)
  else if (identical(substr(carattere, 1, 1), "*"))
    withNoBrackets<-substr(carattere, 1, 1)
  
  withNoBrackets
  
}