Running ‘testthat.R’ [2s/322s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > Sys.setenv("R_TESTS" = "")
  > 
  > library(testthat)
  > library(classyfireR)
  Loading required package: magrittr
  
  Attaching package: 'magrittr'
  
  The following objects are masked from 'package:testthat':
  
      equals, is_less_than, not
  
  > 
  > test_check('classyfireR')
  [ FAIL 3 | WARN 0 | SKIP 0 | PASS 1 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-classification.R:6:3): inchikey in/out db ───────────────────────
  Error in `eval_bare(expr, quo_get_env(quo))`: trying to get slot "meta" from an object of a basic class ("NULL") with no slots
  Backtrace:
      ▆
   1. └─testthat::expect_equal(no_db@meta[["inchikey"]], "InChIKey=MDHYEMXUFSJLGV-UHFFFAOYSA-N") at test-classification.R:6:2
   2.   └─testthat::quasi_label(enquo(object), label, arg = "object")
   3.     └─rlang::eval_bare(expr, quo_get_env(quo))
  ── Failure (test-classification.R:27:3): entity-classification ─────────────────
  isS4(cl1) is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Error (test-classification.R:28:3): entity-classification ───────────────────
  Error in `(function (classes, fdef, mtable) 
  {
      methods <- .findInheritedMethods(classes, fdef, mtable)
      if (length(methods) == 1L) 
          return(methods[[1L]])
      else if (length(methods) == 0L) {
          cnames <- paste0("\"", vapply(classes, as.character, 
              ""), "\"", collapse = ", ")
          stop(gettextf("unable to find an inherited method for function %s for signature %s", 
              sQuote(fdef@generic), sQuote(cnames)), domain = NA)
      }
      else stop("Internal error in finding inherited methods; didn't return a unique method", 
          domain = NA)
  })(list("NULL"), new("nonstandardGenericFunction", .Data = function (object) 
  {
      standardGeneric("meta")
  }, generic = structure("meta", package = "classyfireR"), package = "classyfireR", 
      group = list(), valueClass = character(0), signature = "object", 
      default = NULL, skeleton = (function (object) 
      stop(gettextf("invalid call in method dispatch to '%s' (no default method)", 
          "meta"), domain = NA))(object)), <environment>)`: unable to find an inherited method for function 'meta' for signature '"NULL"'
  Backtrace:
      ▆
   1. ├─testthat::expect_true(is.list(meta(cl1))) at test-classification.R:28:2
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─classyfireR::meta(cl1)
   5.   └─methods `<fn>`(`<list>`, `<nnstndGF>`, `<env>`)
  
  [ FAIL 3 | WARN 0 | SKIP 0 | PASS 1 ]
  Error: Test failures
  Execution halted