Running ‘testthat.R’ [9s/11s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > if(require(testthat))test_check("atime")
  Loading required package: testthat
  Loading required package: atime
  [ FAIL 2 | WARN 3 | SKIP 0 | PASS 36 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-CRAN.R:227:3'): predict gives only kilobytes ───────────────────
  Error in ``[.data.table`(data.table(unit = names(L)), , {
      unit.value <- L[[unit]]
      if (!is.numeric(unit.value)) {
          stop("... has a non-numeric argument (", unit, "), but each argument must be numeric (unit value at which to interpolate/predict N)")
      }
      if (length(unit.value) != 1) {
          stop("... has an argument with length != 1 (", unit, 
              "), but each argument must be scalar (unit value at which to interpolate/predict N)")
      }
      if (!is.finite(unit.value)) {
          stop("... has a non-finite argument (", unit, ") but each argument must be finite (unit value at which to interpolate/predict N)")
      }
      is.unit <- object$measurements$unit == unit
      meas <- object$measurements[is.unit & 0 < empirical]
      pred.dt <- meas[, {
          uniq.dt <- .SD[, .(log10.N = max(log10(N))), by = .(log10.empirical = log10(empirical))]
          if (nrow(uniq.dt) < 2) {
              data.table()
          }
          else {
              uniq.dt[, data.table(unit.value, N = 10^approx(log10.empirical, 
                  log10.N, log10(unit.value))$y)]
          }
      }, by = expr.name]
      not.NA <- pred.dt[!is.na(N)]
      if (nrow(not.NA) == 0) {
          stop(unit, "=", unit.value, " is too large, please decrease to a value that intersects at least one of the empirical curves")
      }
      not.NA
  }, by = unit)`: kilobytes=10 is too large, please decrease to a value that intersects at least one of the empirical curves
  Backtrace:
      ▆
   1. ├─stats::predict(my.best, kilobytes = kb) at test-CRAN.R:227:3
   2. └─atime:::predict.references_best(my.best, kilobytes = kb)
   3.   ├─...[]
   4.   └─data.table:::`[.data.table`(...)
  ── Error ('test-CRAN.R:234:3'): predict gives both seconds and kilobytes ───────
  Error in ``[.data.table`(data.table(unit = names(L)), , {
      unit.value <- L[[unit]]
      if (!is.numeric(unit.value)) {
          stop("... has a non-numeric argument (", unit, "), but each argument must be numeric (unit value at which to interpolate/predict N)")
      }
      if (length(unit.value) != 1) {
          stop("... has an argument with length != 1 (", unit, 
              "), but each argument must be scalar (unit value at which to interpolate/predict N)")
      }
      if (!is.finite(unit.value)) {
          stop("... has a non-finite argument (", unit, ") but each argument must be finite (unit value at which to interpolate/predict N)")
      }
      is.unit <- object$measurements$unit == unit
      meas <- object$measurements[is.unit & 0 < empirical]
      pred.dt <- meas[, {
          uniq.dt <- .SD[, .(log10.N = max(log10(N))), by = .(log10.empirical = log10(empirical))]
          if (nrow(uniq.dt) < 2) {
              data.table()
          }
          else {
              uniq.dt[, data.table(unit.value, N = 10^approx(log10.empirical, 
                  log10.N, log10(unit.value))$y)]
          }
      }, by = expr.name]
      not.NA <- pred.dt[!is.na(N)]
      if (nrow(not.NA) == 0) {
          stop(unit, "=", unit.value, " is too large, please decrease to a value that intersects at least one of the empirical curves")
      }
      not.NA
  }, by = unit)`: kilobytes=10 is too large, please decrease to a value that intersects at least one of the empirical curves
  Backtrace:
      ▆
   1. ├─stats::predict(my.best, kilobytes = 10, seconds = my.best$seconds.limit) at test-CRAN.R:234:3
   2. └─atime:::predict.references_best(my.best, kilobytes = 10, seconds = my.best$seconds.limit)
   3.   ├─...[]
   4.   └─data.table:::`[.data.table`(...)
  
  [ FAIL 2 | WARN 3 | SKIP 0 | PASS 36 ]
  Error: Test failures
  Execution halted