Running ‘not-cran.R’
  Running ‘t-browser.R’ [6s/16s]
  Comparing ‘t-browser.Rout’ to ‘t-browser.Rout.save’ ... OK
  Running ‘t-capture.R’ [4s/12s]
  Comparing ‘t-capture.Rout’ to ‘t-capture.Rout.save’ ... OK
  Running ‘t-change.R’
  Comparing ‘t-change.Rout’ to ‘t-change.Rout.save’ ... OK
  Running ‘t-demo.R’ [46s/112s]
  Comparing ‘t-demo.Rout’ to ‘t-demo.Rout.save’ ... OK
  Running ‘t-error.R’ [5s/12s]
  Comparing ‘t-error.Rout’ to ‘t-error.Rout.save’ ... OK
  Running ‘t-exec.R’ [5s/11s]
  Comparing ‘t-exec.Rout’ to ‘t-exec.Rout.save’ ... OK
  Running ‘t-get.R’ [7s/15s]
  Comparing ‘t-get.Rout’ to ‘t-get.Rout.save’ ... OK
  Running ‘t-global.R’
  Comparing ‘t-global.Rout’ to ‘t-global.Rout.save’ ... OK
  Running ‘t-handledruns.R’ [7s/13s]
  Comparing ‘t-handledruns.Rout’ to ‘t-handledruns.Rout.save’ ... OK
  Running ‘t-ischecks.R’
  Comparing ‘t-ischecks.Rout’ to ‘t-ischecks.Rout.save’ ... OK
  Running ‘t-item.R’ [7s/18s]
  Comparing ‘t-item.Rout’ to ‘t-item.Rout.save’ ... OK
  Running ‘t-list.R’ [5s/12s]
  Comparing ‘t-list.Rout’ to ‘t-list.Rout.save’ ... OK
  Running ‘t-misc.R’
  Running ‘t-nav.R’ [9s/23s]
  Comparing ‘t-nav.Rout’ to ‘t-nav.Rout.save’ ... OK
  Running ‘t-parse.R’ [6s/11s]
  Comparing ‘t-parse.Rout’ to ‘t-parse.Rout.save’ ... OK
  Running ‘t-prompt.R’ [4s/10s]
  Comparing ‘t-prompt.Rout’ to ‘t-prompt.Rout.save’ ... OK
  Running ‘t-random.R’ [6s/13s]
  Comparing ‘t-random.Rout’ to ‘t-random.Rout.save’ ... OK
  Running ‘t-rename.R’
  Comparing ‘t-rename.Rout’ to ‘t-rename.Rout.save’ ... OK
  Running ‘t-repairenvs.R’ [6s/13s]
  Comparing ‘t-repairenvs.Rout’ to ‘t-repairenvs.Rout.save’ ... OK
  Running ‘t-search.R’ [30s/67s]
  Comparing ‘t-search.Rout’ to ‘t-search.Rout.save’ ... OK
  Running ‘t-section.R’ [6s/13s]
  Comparing ‘t-section.Rout’ to ‘t-section.Rout.save’ ... OK
  Running ‘t-shim.R’ [27s/52s]
  Comparing ‘t-shim.Rout’ to ‘t-shim.Rout.save’ ... OK
  Running ‘t-state.R’ [5s/10s]
  Comparing ‘t-state.Rout’ to ‘t-state.Rout.save’ ... OK
  Running ‘t-text.R’
  Comparing ‘t-text.Rout’ to ‘t-text.Rout.save’ ... OK
  Running ‘t-translate.R’ [10s/20s]
  Comparing ‘t-translate.Rout’ to ‘t-translate.Rout.save’ ... OK
  Running ‘t-upgrade.R’ [13s/28s]
  Comparing ‘t-upgrade.Rout’ to ‘t-upgrade.Rout.save’ ... OK
  Running ‘t-utz1.R’ [76s/144s]
  Comparing ‘t-utz1.Rout’ to ‘t-utz1.Rout.save’ ... OK
  Running ‘t-utz2.R’ [47s/86s]
  Comparing ‘t-utz2.Rout’ to ‘t-utz2.Rout.save’ ... OK
  Running ‘zz-check.R’
Running the tests in ‘tests/t-misc.R’ failed.
Complete output:
  > source(file.path("_helper", "init.R"))
  > source(file.path("aammrtf", "ref.R")); make_ref_obj_funs("refobjs")
  > 
  > # - "Text wrapping" ------------------------------------------------------------
  > 
  > var <- "humpty dumpty sat on a truck and had a big dump"
  > # expect_true(all(nchar(unlist(unitizer:::text_wrap(var, 10))) <=
  > writeLines(unlist(unitizer:::text_wrap(var, 10)))
  humpty dum
  pty sat on
   a truck a
  nd had a b
  ig dump
  > all(nchar(unlist(unitizer:::text_wrap(var, 10))) <= 10)
  [1] TRUE
  > 
  > var2 <- rep(var, 4)
  > # expect_true(all(nchar(wrp <- unlist(unitizer:::text_wrap(var2,
  > #     c(20, 15)))) <= 20) && length(wrp) == 14)
  > writeLines(unlist(unitizer:::text_wrap(var2, c(20, 15))))
  humpty dumpty sat on
   a truck and had a b
  ig dump
  humpty dumpty s
  at on a truck a
  nd had a big du
  mp
  humpty dumpty sat on
   a truck and had a b
  ig dump
  humpty dumpty s
  at on a truck a
  nd had a big du
  mp
  > all(nchar(wrp <- unlist(unitizer:::text_wrap(var2, c(20, 15)))) <=
  +     20) && length(wrp) == 14
  [1] TRUE
  > 
  > # - "Headers" ------------------------------------------------------------------
  > 
  > # these basically require visual inspection
  > 
  > unitizer:::H1("hello world")
  +------------------------------------------------------------------------------+
  | hello world                                                                  |
  +------------------------------------------------------------------------------+
  
  > unitizer:::H2("hello world")
  = hello world ==================================================================
  
  > unitizer:::H3("hello world")
  - hello world ------------------------------------------------------------------
  
  > 
  > # cause an error
  > try(print(unitizer:::H1(rep_len("hello world", 10))))
  Error in header(x, 1L) : 
    Argument `x` must be a one length character vector
  > 
  > h.w.long <- paste0(rep_len("hello world", 10), collapse = " ")
  > unitizer:::H1(h.w.long)
  +------------------------------------------------------------------------------+
  | hello world hello world hello world hello world hello world hello world      |
  | hello world hello world hello world hello world                              |
  +------------------------------------------------------------------------------+
  
  > unitizer:::H2(h.w.long)
  = hello world hello world hello world hello world hello world hello world h... =
  
  > print(unitizer:::H2("No margin"), margin = "none") # no extra line below
  = No margin ====================================================================
  > 
  > # - "Valid Names convert names to valid" ---------------------------------------
  > 
  > # expect_equal(unitizer:::valid_names("hello"), "hello")
  > unitizer:::valid_names("hello")
  [1] "hello"
  > # expect_equal(unitizer:::valid_names(".hello"), ".hello")
  > unitizer:::valid_names(".hello")
  [1] ".hello"
  > # expect_equal(unitizer:::valid_names("1hello"), "`1hello`")
  > unitizer:::valid_names("1hello")
  [1] "`1hello`"
  > # expect_equal(unitizer:::valid_names("hello kitty"), "`hello kitty`")
  > unitizer:::valid_names("hello kitty")
  [1] "`hello kitty`"
  > # expect_equal(unitizer:::valid_names("h3llo"), "`h3llo`")
  > unitizer:::valid_names("h3llo")
  [1] "`h3llo`"
  > # expect_equal(unitizer:::valid_names("h_llo"), "h_llo")
  > unitizer:::valid_names("h_llo")
  [1] "h_llo"
  > # expect_equal(unitizer:::valid_names("$hot"), "`$hot`")
  > unitizer:::valid_names("$hot")
  [1] "`$hot`"
  > # expect_equal(unitizer:::valid_names("HELLO"), "HELLO")
  > unitizer:::valid_names("HELLO")
  [1] "HELLO"
  > 
  > # - "strtrunc" -----------------------------------------------------------------
  > 
  > # expect_equal(unitizer:::strtrunc("hollywood is for starlets",
  > #     5), "ho...")
  > unitizer:::strtrunc("hollywood is for starlets", 5)
  [1] "ho..."
  > # expect_error(unitizer:::strtrunc(5, "hollywood is for starlets"))
  > try(unitizer:::strtrunc(5, "hollywood is for starlets"))
  Error in unitizer:::strtrunc(5, "hollywood is for starlets") : 
    Argument `x` must be character
  > 
  > # - "environment name tools" ---------------------------------------------------
  > 
  > env1 <- new.env(parent = globalenv())
  > env2 <- new.env(parent = env1)
  > env3 <- new.env(parent = env2)
  > env4 <- new.env(parent = env3)
  > # expect_true(is.character(ename <- unitizer:::env_name(env3)) &&
  > #     identical(length(ename), 1L))
  > is.character(ename <- unitizer:::env_name(env3)) && identical(length(ename), 1L)
  [1] TRUE
  > # expect_true(is.character(envanc <- unitizer:::env_ancestry(env4)) &&
  > #     identical(length(envanc), 5L) && identical(envanc[[5L]],
  > #     "R_GlobalEnv"))
  > is.character(envanc <- unitizer:::env_ancestry(env4)) &&
  +   identical(length(envanc), 5L) && identical(envanc[[5L]], "R_GlobalEnv")
  [1] TRUE
  > 
  > # - "deparse peek" -------------------------------------------------------------
  > 
  > expr1 <- quote(1 + 1 + 3)
  > expr2 <- quote(for (i in 1:100) {
  +     loop.val <- sample(1:1000, 200, replace = TRUE)
  +     loop.val <- loop.val * 200/3000 * mean(runif(20000))
  + })
  > # expect_equal("1 + 1 + 3", unitizer:::deparse_peek(expr1, 20L))
  > unitizer:::deparse_peek(expr1, 20L)
  [1] "1 + 1 + 3"
  > 
  > # expect_error(unitizer:::deparse_peek(expr1, 3L))
  > try(unitizer:::deparse_peek(expr1, 3L))
  Error in unitizer:::deparse_peek(expr1, 3L) : 
    Argument `len` must be an integer greater than four
  > # expect_equal("1 ...", unitizer:::deparse_peek(expr1, 5L))
  > unitizer:::deparse_peek(expr1, 5L)
  [1] "1 ..."
  > 
  > # expect_equal("for (i in 1:100) {    loop.val <- sam...", unitizer:::deparse_peek(expr2,
  > #     40L))
  > unitizer:::deparse_peek(expr2, 40L)
  [1] "for (i in 1:100) {    loop.val <- sam..."
  > 
  > # - "deparse fun" --------------------------------------------------------------
  > 
  > # expect_identical(unitizer:::deparse_fun(quote(fun)), "fun")
  > unitizer:::deparse_fun(quote(fun))
  [1] "fun"
  > # expect_identical(unitizer:::deparse_fun(quote(function(x) NULL)),
  > #     NA_character_)
  > unitizer:::deparse_fun(quote(function(x) NULL))
  [1] NA
  > # expect_identical(unitizer:::deparse_fun("hello"), character(0L))
  > unitizer:::deparse_fun("hello")
  character(0)
  > 
  > # - "deparse_prompt" -----------------------------------------------------------
  > 
  > suppressWarnings(glob <- unitizer:::unitizerGlobal$new())
  > item <- unitizer:::exec(quote(if (TRUE) {
  +     25
  + } else {
  +     42
  + }), new.env(), glob)
  > unitizer:::deparse_prompt(item)
  [1] "> if (TRUE) {" "+     25"      "+ } else {"    "+     42"     
  [5] "+ }"          
  > 
  > # - "deparse_mixed" ------------------------------------------------------------
  > 
  > b <- setNames(1:3, letters[1:3])
  > x <- quote(1 + b)
  > x[[3]] <- b
  > # expect_equal(unitizer:::deparse_mixed(x), "quote(1 + 1:3)")
  > unitizer:::deparse_mixed(x)
  [1] "quote(1 + 1:3)"
  > y <- quote(1 + 3 + b)
  > y[[3]] <- b
  > # expect_equal(unitizer:::deparse_mixed(y), "quote(1 + 3 + 1:3)")
  > unitizer:::deparse_mixed(y)
  Error in deparse(expr, width.cutoff, backtick, .deparseOpts(control),  : 
    NA in coercion to boolean
  Execution halted
Running the tests in ‘tests/zz-check.R’ failed.
Complete output:
  > source('aammrtf/check.R')
  43: > lorem1 <- "Today, with Kiernan on the stand offering confirmation, Howard walked the jury through the enormous amount of data pulled from Ulbricht's computer. Defense lawyers haven't had a chance yet to respond to this evidence<e2><80><94>that will likely come tomorrow. The mountain they have to climb looks higher than ever, though. Last week, Ulbricht's lawyer outlined a defense in which Ulbricht walked away from the marketplace he created and was \"lured back.\" But what will explain the dozens of folders of data on this laptop, with data from the upper echelons of Silk Road management<e2><80><94>mixed with the most intimate details of Ulbricht's personal life?"
  
  
  
  
  
  
  
  
  
  
  
  
  
  Error: .Rout files missing (failed?):
  't-misc.Rout'
  In addition: Warning message:
  In eval(ei, envir) : Some outputs contain non-ASCII:
  't-text.Rout'
  Execution halted