Running ‘testthat.R’ [4s/6s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(markets)
  
  Attaching package: 'markets'
  
  The following object is masked from 'package:testthat':
  
      describe
  
  > 
  > test_check("markets")
  [ FAIL 6 | WARN 0 | SKIP 2 | PASS 0 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (2)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-basic.R:20:3'): Model can be simulated ─────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. └─markets:::load_or_simulate_model("diseq_basic", parameters) at test-basic.R:20:2
    2.   └─markets:::load_or_simulate_data(model_string, parameters) at tests/testthat/helper-common.R:177:2
    3.     ├─base::do.call(...) at tests/testthat/helper-common.R:165:4
    4.     ├─markets (local) `<nnstndGF>`(...)
    5.     └─markets (local) `<nnstndGF>`(...)
    6.       └─methods::new(...)
    7.         ├─methods::initialize(value, ...)
    8.         └─markets (local) initialize(value, ...)
    9.           └─markets (local) .local(.Object, ...)
   10.             ├─markets:::simulate_quantities_and_prices(.Object)
   11.             └─markets:::simulate_quantities_and_prices(.Object)
   12.               ├─methods::callNextMethod(...)
   13.               │ └─base::eval(call, callEnv)
   14.               │   └─base::eval(call, callEnv)
   15.               └─markets (local) .nextMethod(...)
   16.                 ├─base::`[<-`(...)
   17.                 └─tibble:::`[<-.tbl_df`(...)
   18.                   └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   19.                     └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   20.                       ├─base::withCallingHandlers(...)
   21.                       └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-basic.R:25:1'): (code run outside of `test_that()`) ────────────
  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("name")
  }, generic = structure("name", package = "markets"), package = "markets", 
      group = list(), valueClass = character(0), signature = "object", 
      default = NULL, skeleton = (function (object) 
      stop(gettextf("invalid call in method dispatch to '%s' (no default method)", 
          "name"), domain = NA))(object)), <environment>)`: unable to find an inherited method for function 'name' for signature '"NULL"'
  Backtrace:
      ▆
   1. ├─testthat::test_that(...) at test-basic.R:25:0
   2. ├─base::paste0(name(mdl), " can be estimated")
   3. └─markets::name(mdl)
   4.   └─methods (local) `<fn>`(`<list>`, `<nnstndGF>`, `<env>`)
  ── Error ('test-deterministic_adjustment.R:21:3'): Model can be simulated ──────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. └─markets:::load_or_simulate_model(...) at test-deterministic_adjustment.R:21:2
    2.   └─markets:::load_or_simulate_data(model_string, parameters) at tests/testthat/helper-common.R:177:2
    3.     ├─base::do.call(...) at tests/testthat/helper-common.R:165:4
    4.     ├─markets (local) `<nnstndGF>`(...)
    5.     └─markets (local) `<nnstndGF>`(...)
    6.       └─methods::new(...)
    7.         ├─methods::initialize(value, ...)
    8.         └─markets (local) initialize(value, ...)
    9.           └─markets (local) .local(.Object, ...)
   10.             ├─methods::callNextMethod(...)
   11.             │ └─base::eval(call, callEnv)
   12.             │   └─base::eval(call, callEnv)
   13.             └─markets (local) .nextMethod(...)
   14.               └─markets (local) .local(.Object, ...)
   15.                 ├─markets:::simulate_quantities_and_prices(.Object)
   16.                 └─markets:::simulate_quantities_and_prices(.Object)
   17.                   ├─methods::callNextMethod(...)
   18.                   │ └─base::eval(call, callEnv)
   19.                   │   └─base::eval(call, callEnv)
   20.                   └─markets (local) .nextMethod(...)
   21.                     ├─base::`[<-`(...)
   22.                     └─tibble:::`[<-.tbl_df`(...)
   23.                       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   24.                         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   25.                           ├─base::withCallingHandlers(...)
   26.                           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-deterministic_adjustment.R:26:1'): (code run outside of `test_that()`) ──
  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("name")
  }, generic = structure("name", package = "markets"), package = "markets", 
      group = list(), valueClass = character(0), signature = "object", 
      default = NULL, skeleton = (function (object) 
      stop(gettextf("invalid call in method dispatch to '%s' (no default method)", 
          "name"), domain = NA))(object)), <environment>)`: unable to find an inherited method for function 'name' for signature '"NULL"'
  Backtrace:
      ▆
   1. ├─testthat::test_that(...) at test-deterministic_adjustment.R:26:0
   2. ├─base::paste0(name(mdl), " can be estimated")
   3. └─markets::name(mdl)
   4.   └─methods (local) `<fn>`(`<list>`, `<nnstndGF>`, `<env>`)
  ── Error ('test-equilibrium.R:19:3'): Model can be simulated ───────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. └─markets:::load_or_simulate_model("equilibrium_model", parameters) at test-equilibrium.R:19:2
    2.   └─markets:::load_or_simulate_data(model_string, parameters) at tests/testthat/helper-common.R:177:2
    3.     ├─base::do.call(...) at tests/testthat/helper-common.R:165:4
    4.     ├─markets (local) `<nnstndGF>`(...)
    5.     └─markets (local) `<nnstndGF>`(...)
    6.       └─methods::new(...)
    7.         ├─methods::initialize(value, ...)
    8.         └─markets (local) initialize(value, ...)
    9.           └─markets (local) .local(.Object, ...)
   10.             ├─markets:::simulate_quantities_and_prices(.Object)
   11.             └─markets:::simulate_quantities_and_prices(.Object)
   12.               ├─methods::callNextMethod(...)
   13.               │ └─base::eval(call, callEnv)
   14.               │   └─base::eval(call, callEnv)
   15.               └─markets (local) .nextMethod(...)
   16.                 ├─base::`[<-`(...)
   17.                 └─tibble:::`[<-.tbl_df`(...)
   18.                   └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   19.                     └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   20.                       ├─base::withCallingHandlers(...)
   21.                       └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-equilibrium.R:24:1'): (code run outside of `test_that()`) ──────
  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("name")
  }, generic = structure("name", package = "markets"), package = "markets", 
      group = list(), valueClass = character(0), signature = "object", 
      default = NULL, skeleton = (function (object) 
      stop(gettextf("invalid call in method dispatch to '%s' (no default method)", 
          "name"), domain = NA))(object)), <environment>)`: unable to find an inherited method for function 'name' for signature '"NULL"'
  Backtrace:
      ▆
   1. ├─testthat::test_that(...) at test-equilibrium.R:24:0
   2. ├─base::paste0(name(mdl), " can be estimated")
   3. └─markets::name(mdl)
   4.   └─methods (local) `<fn>`(`<list>`, `<nnstndGF>`, `<env>`)
  
  [ FAIL 6 | WARN 0 | SKIP 2 | PASS 0 ]
  Error: Test failures
  Execution halted