tests/testthat.R

In cuda.ml: R Interface for the RAPIDS cuML Suite of Libraries

library(testthat)
library(cuda.ml)

filter <- Sys.getenv("TESTTHAT_FILTER", unset = "")
if (identical(filter, "")) filter <- NULL

reporter <- MultiReporter$new(reporters = list(
  CheckReporter$new(),
  LocationReporter$new(),
  SummaryReporter$new(show_praise = FALSE)
))

test_check("cuda.ml", filter = filter, reporter = reporter)