Использование tryCatch и исходного кода

Предположим, у меня есть два файла R: правильно.R и broken.R . Как лучше всего использовать tryCatch для проверки ошибок?

В настоящее время у меня есть

> x = tryCatch(source("broken.R"), error=function(e) e)
> x
 <simpleError in source("broken.R"): test.R:2:0: unexpected end of input
  1: x = {
     ^>
> y = tryCatch(source("correct.R"), error=function(e) e)
> y
 $value
 [1] 5

 $visible
 [1] FALSE

Однако способ, которым я сконструировал tryCatch , означает, что мне нужно опросить объекты x и y , чтобы определить, была ли ошибка.

Есть ли лучший способ сделать это?

Вопрос исходит из обучения. 100 студентов загружают свои сценарии R, и я запускаю их. Чтобы быть хорошим, я планирую создать простую функцию, которая определяет, правильно ли их источники функций. Нужно только вернуть TRUE или FALSE.