R语言：怎么进行异常检测

a <- try(as.Date('2017-02-30'),silent = T)

当silent为F是，错误消息还是会返回

怎么检测a是否出错呢：if('try-error' %in% class(a)){print('good job')}