Running 'testthat.R' [8s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(datafsm)
  > 
  > test_check("datafsm")
  -- 1. Error: evolve_model() returns correct type of object (@test_mainfunc.R#7) 
  Function found when exporting methods from the namespace 'dimRed' which is not S4 generic: 'nrow'
  1: evolve_model(cdata, cv = FALSE) at testthat/test_mainfunc.R:7
  2: caret::nearZeroVar
  3: getExportedValue(pkg, name)
  4: asNamespace(ns)
  5: getNamespace(ns)
  6: loadNamespace(name)
  7: namespaceImportFrom(ns, loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]]), 
         i[[2L]], from = package)
  8: asNamespace(ns)
  9: loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]])
  10: namespaceImportFrom(ns, loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]]), 
         i[[2L]], from = package)
  11: asNamespace(ns)
  12: loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]])
  13: stop(sprintf(msg, sQuote(package), paste(sQuote(bad), collapse = ", ")), domain = NA, 
         call. = FALSE)
  
  -- 2. Error: evolve_model() returns warnings and errors (@test_mainfunc.R#14)  -
  Function found when exporting methods from the namespace 'dimRed' which is not S4 generic: 'nrow'
  1: expect_warning(evolve_model(cdata, cv = FALSE), "did not supply a data.frame") at testthat/test_mainfunc.R:14
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: evolve_model(cdata, cv = FALSE)
  7: caret::nearZeroVar
  8: getExportedValue(pkg, name)
  9: asNamespace(ns)
  10: getNamespace(ns)
  11: loadNamespace(name)
  12: namespaceImportFrom(ns, loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]]), 
         i[[2L]], from = package)
  13: asNamespace(ns)
  14: loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]])
  15: namespaceImportFrom(ns, loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]]), 
         i[[2L]], from = package)
  16: asNamespace(ns)
  17: loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]])
  18: stop(sprintf(msg, sQuote(package), paste(sQuote(bad), collapse = ", ")), domain = NA, 
         call. = FALSE)
  
  == testthat results  ===========================================================
  OK: 9 SKIPPED: 0 FAILED: 2
  1. Error: evolve_model() returns correct type of object (@test_mainfunc.R#7) 
  2. Error: evolve_model() returns warnings and errors (@test_mainfunc.R#14) 
  
  Error: testthat unit tests failed
  Execution halted