Why R's error handling functions not working in shinyApp?

Question

To reproduce :

library(shiny)
library(DT)

testdf<-c("car1",sample(1:1000,1),sample(1:10,1),sample(1:10,1),sample(1:10,1))
testdf<-rbind(testd