recovering from errors with lapply()

Hi all,

I am searching for a way to recover results from lapply() when one or more
values returns an error.  I have a written a function that uses tryCatch()
to recover from errors. Here is a very simple example of such a function.

divideBy2<-function(X){
  result<-tryCatch(X/2, error = function(e) "An Error Occurred")
  return(result)
}

This function appears to work as I expect both in cases where an error
occurs and where no error occurs.

divideBy2(10)
# [1] 5

divideBy2("This is not a number")
# [1] "An Error Occurred"

I would like to use this function in an lapply(), but when I do so ALL of
the results returned are the results of an error.

lapply(c(10,"This is not a number"),FUN=divideBy2)

#[[1]]
#[1] "An Error Occurred"

#[[2]]
#[1] "An Error Occurred"

Is this how lapply() is meant to work? What I want is a list that looks
like this

c(10,"This is not a number")

#[[1]]
#[1] 5
#[[2]]
#[1] "An Error Occurred"

Thanks very much for your time.

	[[alternative HTML version deleted]]