R/suppressBrackets.R

Defines functions suppressBrackets

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
  
}

Try the PdPDB package in your browser

Any scripts or data that you put into this service are public.

PdPDB documentation built on Nov. 17, 2017, 5:09 a.m.