Running ‘run.R’ [62s/128s]
  Running ‘scaling.R’
Running the tests in ‘tests/run.R’ failed.
Complete output:
  > # Run tests
  > 
  > library(testthat)
  > library(covr)
  > library(diffobj)
  > 
  > local({                                         # so we can use `on.exit`
  +   # options that can't be reset to NULL...
  + 
  +   no.null.opts <- c(
  +     "warnPartialMatchArgs", "warnPartialMatchAttr", "warnPartialMatchDollar"
  +   )
  +   no.null.opt.list <- Map(getOption, no.null.opts)
  +   no.null.nulls <- vapply(no.null.opt.list, is.null, logical(1L))
  +   no.null.opt.list[no.null.nulls] <- FALSE
  +   all.opts <- c(
  +     list(
  +       useFancyQuotes=FALSE,   # all.equals uses fancy quotes
  +       diffobj.format="ansi8", # force ANSI colors
  +       diffobj.color.mode="yb",# force yb
  +       diffobj.pager="off",    # run tests without pager
  +       width=80L,
  +       encoding="UTF-8"        # so Gabor's name renders properly on win...
  +     )
  +   )
  +   old.opts <- options(c(diffobj_set_def_opts(), all.opts))
  +   options(
  +     warnPartialMatchArgs=TRUE,
  +     warnPartialMatchAttr=TRUE,
  +     warnPartialMatchDollar=TRUE
  +   )
  +   old.opts <- c(old.opts, no.null.opt.list)
  + 
  +   # covr options have no effect here; just recorded so we can use them ahead
  +   # of calling package_coverage() when running tests manually
  +   if(FALSE) {
  +     options(covr.exclude_start="(?://|#)[[:space:]]*nocov[[:space:]]*start")
  +     options(covr.exclude_end="(?://|#)[[:space:]]*nocov[[:space:]]*end")
  +     options(covr.exclude_pattern="(?://|#)[[:space:]]*nocov")
  +   }
  +   on.exit(options(old.opts))
  +   test.res <- test_dir(
  +     "testthat",
  +     filter=paste0(                              # so we can run subset of files
  +       c(
  +         "atomic",
  +         "banner",
  +         "capture",
  +         "check",
  +         "context",
  +         "core",
  +         "diffChr",
  +         "diffDeparse",
  +         "diffObj",
  +         "diffPrint",
  +         "diffStr",
  +         "file",
  +         "guide",
  +         "html",
  +         "limit",
  +         "methods",
  +         "misc",
  +         "pager",
  +         "rdiff",
  +         "s4",
  +         "style",
  +         "subset",
  +         "summary",
  +         "text",
  +         "trim",
  +         "warning"
  +       ), collapse="|"
  +     )
  +   )
  +   with(
  +     as.data.frame(test.res), {
  +       fail <- sum(failed)
  +       err <- sum(error)
  +       if(fail != 0 || err) stop("Errors: ", err, " Failures: ", fail)
  +   })
  + })
  Atomic: ......................................
  banner: ...
  capture: ..
  check: ........................
  Context: ......
  core: ..................................
  diffChr: ...................
  diffDeparse: ..
  diffObj: .......
  diffPrint: .................................................
  diffStr: .............
  diffFile: .........
  Guides: ...........................
  html: .........
  limits: ..............
  methods: ....
  misc: 12...............
  pager: .......................................
  Rdiff: ..
  w/ diff: ...........
  S4: .........
  style: ........................
  subset: ...
  summary: ...............
  text: ................[32m.[39m[32m.[39m[32m.[39m[32m.[39m
  trim: ................................
  warnings: .......
  
  Failed -------------------------------------------------------------------------
  1. Failure: trim_str (@testthat.misc.R#14) -------------------------------------
  diffobj:::str_levels(str.txt, wrap = FALSE) not equal to c(...).
  2/17 mismatches (average diff: 1)
  [3] 2 - 3 == -1
  [6] 3 - 4 == -1
  
  
  2. Failure: trim_str (@testthat.misc.R#19) -------------------------------------
  diffobj:::str_levels(str.txt.w, wrap = TRUE) not equal to c(...).
  Lengths differ: 33 vs 35
  
  
  DONE ===========================================================================
  Error in eval(substitute(expr), data, enclos = parent.frame()) : 
    Errors: 0 Failures: 2
  Calls: local ... eval -> eval -> with -> with.default -> eval -> eval
  Execution halted