R/tryTolower.R

In livioivil/TextWiller: Collection of functions for text mining, specially devoted to the italian language

tryTolower <-
function(testo, ifErrorReturnText=FALSE)
{
   # tryCatch error
   try_error = tryCatch(tolower(testo), error=function(e) e)
   # if not an error
   if (!inherits(try_error, "error"))
      testo = tolower(testo) else testo = NA
   testo
}