sdk/R/run_test.R

   1 # Copyright (C) The Arvados Authors. All rights reserved.
   2 #
   3 # SPDX-License-Identifier: Apache-2.0
   4
   5 devtools::check()
   6
   7 results <- devtools::test()
   8 any_error <- any(as.data.frame(results)$error)
   9 if (any_error) {
  10   q("no", 1)
  11 } else {
  12   q("no", 0)
  13 }