des1 <- try(findFn('differential equations', 1))
if(inherits(des1, 'try-error')){
des1. <- matches(des1)
des. <- list(nrow=nrow(des1), matches=attr(des1, 'matches'))
stopifnot(
all.equal(des1., des.)
)
}
Run the code above in your browser using DataLab