sdk/R/run_test.R

   1 results <- devtools::test()
   2 any_error <- any(as.data.frame(results)$error)
   3 if (any_error) {
   4   q("no", 1)
   5 } else {
   6   q("no", 0)
   7 }