Running ‘testthat.R’ [55s/67s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(CHNOSZ)
  CHNOSZ version 1.3.0 (2019-02-26)
  reset: creating "thermo" object
  obigt: loading default database with 1891 aqueous, 3406 total species
  > 
  > # as fix for https://github.com/hadley/testthat/issues/129, https://github.com/hadley/testthat/issues/144
  > # (since we use makeCluster() etc via palply)
  > Sys.setenv("R_TESTS" = "") 
  > 
  > test_check("CHNOSZ")
  ── 1. Error: AkDi produces expected results (@test-eos.R#90)  ──────────────────
  replacement has 0 items, need 8
  1: subcrt(iCO2, T = T, P = P) at testthat/test-eos.R:90
  2: obigt2eos(thermo$obigt[iphases[isaq], ], "aq", fixGHS = TRUE)
  3: `[<-`(`*tmp*`, !isAkDi, 13:20, value = structure(numeric(0), .Dim = c(0L, 8L), .Dimnames = list(
         NULL, c("a1.a", "a2.b", "a3.c", "a4.d", "c1.e", "c2.f", "omega.lambda", "z.T"
         ))))
  4: `[<-.data.frame`(`*tmp*`, !isAkDi, 13:20, value = structure(numeric(0), .Dim = c(0L, 
     8L), .Dimnames = list(NULL, c("a1.a", "a2.b", "a3.c", "a4.d", "c1.e", "c2.f", "omega.lambda", 
     "z.T"))))
  5: stop(sprintf(ngettext(m, "replacement has %d item, need %d", "replacement has %d items, need %d"), 
         m, n * p), domain = NA)
  
  ── 2. Error: (unknown) (@test-equilibrate.R#7)  ────────────────────────────────
  replacement has 0 items, need 8
  1: suppressMessages(affinity()) at testthat/test-equilibrate.R:7
  2: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
  3: affinity()
  4: do.call("energy", args)
  5: energy(what = "A", vars = character(0), vals = list(NA), lims = list(c(NA, NA, 1)), 
         T = 298.15, P = "Psat", IS = 0, transect = FALSE, sout = NULL, exceed.Ttr = FALSE, 
         exceed.rhomin = FALSE)
  6: sout.fun("logK")
  7: do.call("subcrt", s.args)
  8: subcrt(species = c(1529L, 1L, 64L, 65L, 3129L, 3L, 1054L), property = "logK", T = 298.15, 
         P = "Psat", IS = 0, grid = NULL, convert = FALSE, exceed.Ttr = FALSE, exceed.rhomin = FALSE)
  9: obigt2eos(param[isAkDi, ], "aq")
  10: `[<-`(`*tmp*`, !isAkDi, 13:20, value = structure(numeric(0), .Dim = c(0L, 8L), .Dimnames = list(
         NULL, c("a1", "a2", "a3", "a4", "c1", "c2", "omega", "Z"))))
  11: `[<-.data.frame`(`*tmp*`, !isAkDi, 13:20, value = structure(numeric(0), .Dim = c(0L, 
     8L), .Dimnames = list(NULL, c("a1", "a2", "a3", "a4", "c1", "c2", "omega", "Z"))))
  12: stop(sprintf(ngettext(m, "replacement has %d item, need %d", "replacement has %d items, need %d"), 
         m, n * p), domain = NA)
  
  ── 3. Error: info() gives correct column names for species using the AkDi model 
  replacement has 0 items, need 8
  1: info(iCO2) at testthat/test-info.R:40
  2: lapply(species, info.numeric, check.it)
  3: FUN(X[[i]], ...)
  4: obigt2eos(this, this$state)
  5: `[<-`(`*tmp*`, !isAkDi, 13:20, value = structure(numeric(0), .Dim = c(0L, 8L), .Dimnames = list(
         NULL, c("a1.a", "a2.b", "a3.c", "a4.d", "c1.e", "c2.f", "omega.lambda", "z.T"
         ))))
  6: `[<-.data.frame`(`*tmp*`, !isAkDi, 13:20, value = structure(numeric(0), .Dim = c(0L, 
     8L), .Dimnames = list(NULL, c("a1.a", "a2.b", "a3.c", "a4.d", "c1.e", "c2.f", "omega.lambda", 
     "z.T"))))
  7: stop(sprintf(ngettext(m, "replacement has %d item, need %d", "replacement has %d items, need %d"), 
         m, n * p), domain = NA)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 495 SKIPPED: 0 FAILED: 3
  1. Error: AkDi produces expected results (@test-eos.R#90) 
  2. Error: (unknown) (@test-equilibrate.R#7) 
  3. Error: info() gives correct column names for species using the AkDi model (@test-info.R#40) 
  
  Error: testthat unit tests failed
  Execution halted