Last updated on 2025-03-01 06:51:27 CET.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 1.4.21 | 18.85 | 196.63 | 215.48 | ERROR | |
| r-devel-linux-x86_64-debian-gcc | 1.4.21 | 13.02 | 137.67 | 150.69 | ERROR | |
| r-devel-linux-x86_64-fedora-clang | 1.4.21 | 297.68 | ERROR | |||
| r-devel-linux-x86_64-fedora-gcc | 1.4.21 | 437.63 | ERROR | |||
| r-devel-macos-arm64 | 1.4.21 | 137.00 | OK | |||
| r-devel-macos-x86_64 | 1.4.21 | 266.00 | OK | |||
| r-devel-windows-x86_64 | 1.4.21 | 19.00 | 221.00 | 240.00 | NOTE | |
| r-patched-linux-x86_64 | 1.4.21 | 19.40 | 185.34 | 204.74 | OK | |
| r-release-linux-x86_64 | 1.4.21 | 18.59 | 184.62 | 203.21 | OK | |
| r-release-macos-arm64 | 1.4.21 | 144.00 | OK | |||
| r-release-macos-x86_64 | 1.4.21 | 203.00 | OK | |||
| r-release-windows-x86_64 | 1.4.21 | 18.00 | 215.00 | 233.00 | OK | |
| r-oldrel-macos-arm64 | 1.4.21 | OK | ||||
| r-oldrel-macos-x86_64 | 1.4.21 | 409.00 | OK | |||
| r-oldrel-windows-x86_64 | 1.4.21 | 21.00 | 278.00 | 299.00 | OK |
Version: 1.4.21
Check: Rd cross-references
Result: NOTE
Found the following Rd file(s) with Rd \link{} targets missing package
anchors:
all_eq.Rd: diffObj
Please provide package anchors for all Rd \link{} targets not in the
package itself and the base packages.
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-devel-windows-x86_64
Version: 1.4.21
Check: tests
Result: ERROR
Running ‘not-cran.R’ [0s/0s]
Running ‘t-browser.R’ [2s/2s]
Comparing ‘t-browser.Rout’ to ‘t-browser.Rout.save’ ... OK
Running ‘t-capture.R’ [1s/2s]
Comparing ‘t-capture.Rout’ to ‘t-capture.Rout.save’ ... OK
Running ‘t-change.R’ [1s/1s]
Comparing ‘t-change.Rout’ to ‘t-change.Rout.save’ ... OK
Running ‘t-demo.R’ [16s/25s]
Comparing ‘t-demo.Rout’ to ‘t-demo.Rout.save’ ... OK
Running ‘t-error.R’ [1s/1s]
Comparing ‘t-error.Rout’ to ‘t-error.Rout.save’ ... OK
Running ‘t-exec.R’ [1s/2s]
Comparing ‘t-exec.Rout’ to ‘t-exec.Rout.save’ ... OK
Running ‘t-get.R’ [2s/3s]
Comparing ‘t-get.Rout’ to ‘t-get.Rout.save’ ... OK
Running ‘t-global.R’ [1s/1s]
Comparing ‘t-global.Rout’ to ‘t-global.Rout.save’ ... OK
Running ‘t-handledruns.R’ [3s/3s]
Comparing ‘t-handledruns.Rout’ to ‘t-handledruns.Rout.save’ ... OK
Running ‘t-ischecks.R’ [1s/1s]
Comparing ‘t-ischecks.Rout’ to ‘t-ischecks.Rout.save’ ... OK
Running ‘t-item.R’ [2s/3s]
Comparing ‘t-item.Rout’ to ‘t-item.Rout.save’ ... OK
Running ‘t-list.R’ [1s/1s]
Comparing ‘t-list.Rout’ to ‘t-list.Rout.save’ ... OK
Running ‘t-misc.R’ [1s/1s]
Running ‘t-nav.R’ [3s/5s]
Comparing ‘t-nav.Rout’ to ‘t-nav.Rout.save’ ... OK
Running ‘t-parse.R’ [1s/2s]
Comparing ‘t-parse.Rout’ to ‘t-parse.Rout.save’ ... OK
Running ‘t-prompt.R’ [1s/1s]
Comparing ‘t-prompt.Rout’ to ‘t-prompt.Rout.save’ ... OK
Running ‘t-random.R’ [2s/3s]
Comparing ‘t-random.Rout’ to ‘t-random.Rout.save’ ... OK
Running ‘t-rename.R’ [1s/1s]
Comparing ‘t-rename.Rout’ to ‘t-rename.Rout.save’ ... OK
Running ‘t-repairenvs.R’ [1s/2s]
Comparing ‘t-repairenvs.Rout’ to ‘t-repairenvs.Rout.save’ ... OK
Running ‘t-search.R’ [7s/10s]
Comparing ‘t-search.Rout’ to ‘t-search.Rout.save’ ... OK
Running ‘t-section.R’ [1s/2s]
Comparing ‘t-section.Rout’ to ‘t-section.Rout.save’ ... OK
Running ‘t-shim.R’ [6s/8s]
Comparing ‘t-shim.Rout’ to ‘t-shim.Rout.save’ ... OK
Running ‘t-state.R’ [1s/2s]
Comparing ‘t-state.Rout’ to ‘t-state.Rout.save’ ... OK
Running ‘t-text.R’ [1s/1s]
Comparing ‘t-text.Rout’ to ‘t-text.Rout.save’ ... OK
Running ‘t-translate.R’ [4s/5s]
Comparing ‘t-translate.Rout’ to ‘t-translate.Rout.save’ ... OK
Running ‘t-upgrade.R’ [5s/7s]
Comparing ‘t-upgrade.Rout’ to ‘t-upgrade.Rout.save’ ... OK
Running ‘t-utz1.R’ [33s/48s]
Comparing ‘t-utz1.Rout’ to ‘t-utz1.Rout.save’ ... OK
Running ‘t-utz2.R’ [17s/29s]
Comparing ‘t-utz2.Rout’ to ‘t-utz2.Rout.save’ ... OK
Running ‘zz-check.R’ [0s/0s]
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 Rboolean
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
Flavor: r-devel-linux-x86_64-debian-clang
Version: 1.4.21
Check: tests
Result: ERROR
Running ‘not-cran.R’ [0s/0s]
Running ‘t-browser.R’ [1s/1s]
Comparing ‘t-browser.Rout’ to ‘t-browser.Rout.save’ ... OK
Running ‘t-capture.R’ [1s/1s]
Comparing ‘t-capture.Rout’ to ‘t-capture.Rout.save’ ... OK
Running ‘t-change.R’ [1s/1s]
Comparing ‘t-change.Rout’ to ‘t-change.Rout.save’ ... OK
Running ‘t-demo.R’ [11s/16s]
Comparing ‘t-demo.Rout’ to ‘t-demo.Rout.save’ ... OK
Running ‘t-error.R’ [1s/1s]
Comparing ‘t-error.Rout’ to ‘t-error.Rout.save’ ... OK
Running ‘t-exec.R’ [1s/1s]
Comparing ‘t-exec.Rout’ to ‘t-exec.Rout.save’ ... OK
Running ‘t-get.R’ [2s/2s]
Comparing ‘t-get.Rout’ to ‘t-get.Rout.save’ ... OK
Running ‘t-global.R’ [1s/1s]
Comparing ‘t-global.Rout’ to ‘t-global.Rout.save’ ... OK
Running ‘t-handledruns.R’ [2s/2s]
Comparing ‘t-handledruns.Rout’ to ‘t-handledruns.Rout.save’ ... OK
Running ‘t-ischecks.R’ [1s/1s]
Comparing ‘t-ischecks.Rout’ to ‘t-ischecks.Rout.save’ ... OK
Running ‘t-item.R’ [2s/2s]
Comparing ‘t-item.Rout’ to ‘t-item.Rout.save’ ... OK
Running ‘t-list.R’ [1s/1s]
Comparing ‘t-list.Rout’ to ‘t-list.Rout.save’ ... OK
Running ‘t-misc.R’ [1s/1s]
Running ‘t-nav.R’ [2s/3s]
Comparing ‘t-nav.Rout’ to ‘t-nav.Rout.save’ ... OK
Running ‘t-parse.R’ [1s/1s]
Comparing ‘t-parse.Rout’ to ‘t-parse.Rout.save’ ... OK
Running ‘t-prompt.R’ [1s/1s]
Comparing ‘t-prompt.Rout’ to ‘t-prompt.Rout.save’ ... OK
Running ‘t-random.R’ [1s/2s]
Comparing ‘t-random.Rout’ to ‘t-random.Rout.save’ ... OK
Running ‘t-rename.R’ [1s/1s]
Comparing ‘t-rename.Rout’ to ‘t-rename.Rout.save’ ... OK
Running ‘t-repairenvs.R’ [1s/1s]
Comparing ‘t-repairenvs.Rout’ to ‘t-repairenvs.Rout.save’ ... OK
Running ‘t-search.R’ [6s/8s]
Comparing ‘t-search.Rout’ to ‘t-search.Rout.save’ ... OK
Running ‘t-section.R’ [1s/1s]
Comparing ‘t-section.Rout’ to ‘t-section.Rout.save’ ... OK
Running ‘t-shim.R’ [5s/7s]
Comparing ‘t-shim.Rout’ to ‘t-shim.Rout.save’ ... OK
Running ‘t-state.R’ [1s/1s]
Comparing ‘t-state.Rout’ to ‘t-state.Rout.save’ ... OK
Running ‘t-text.R’ [1s/1s]
Comparing ‘t-text.Rout’ to ‘t-text.Rout.save’ ... OK
Running ‘t-translate.R’ [3s/3s]
Comparing ‘t-translate.Rout’ to ‘t-translate.Rout.save’ ... OK
Running ‘t-upgrade.R’ [4s/4s]
Comparing ‘t-upgrade.Rout’ to ‘t-upgrade.Rout.save’ ... OK
Running ‘t-utz1.R’ [22s/29s]
Comparing ‘t-utz1.Rout’ to ‘t-utz1.Rout.save’ ... OK
Running ‘t-utz2.R’ [11s/17s]
Comparing ‘t-utz2.Rout’ to ‘t-utz2.Rout.save’ ... OK
Running ‘zz-check.R’ [0s/0s]
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 Rboolean
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
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 1.4.21
Check: tests
Result: ERROR
Running ‘not-cran.R’
Running ‘t-browser.R’
Comparing ‘t-browser.Rout’ to ‘t-browser.Rout.save’ ... OK
Running ‘t-capture.R’
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’ [24s/25s]
Comparing ‘t-demo.Rout’ to ‘t-demo.Rout.save’ ... OK
Running ‘t-error.R’
Comparing ‘t-error.Rout’ to ‘t-error.Rout.save’ ... OK
Running ‘t-exec.R’
Comparing ‘t-exec.Rout’ to ‘t-exec.Rout.save’ ... OK
Running ‘t-get.R’
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’
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’
Comparing ‘t-item.Rout’ to ‘t-item.Rout.save’ ... OK
Running ‘t-list.R’
Comparing ‘t-list.Rout’ to ‘t-list.Rout.save’ ... OK
Running ‘t-misc.R’
Running ‘t-nav.R’
Comparing ‘t-nav.Rout’ to ‘t-nav.Rout.save’ ... OK
Running ‘t-parse.R’
Comparing ‘t-parse.Rout’ to ‘t-parse.Rout.save’ ... OK
Running ‘t-prompt.R’
Comparing ‘t-prompt.Rout’ to ‘t-prompt.Rout.save’ ... OK
Running ‘t-random.R’
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’
Comparing ‘t-repairenvs.Rout’ to ‘t-repairenvs.Rout.save’ ... OK
Running ‘t-search.R’
Comparing ‘t-search.Rout’ to ‘t-search.Rout.save’ ... OK
Running ‘t-section.R’
Comparing ‘t-section.Rout’ to ‘t-section.Rout.save’ ... OK
Running ‘t-shim.R’
Comparing ‘t-shim.Rout’ to ‘t-shim.Rout.save’ ... OK
Running ‘t-state.R’
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’
Comparing ‘t-translate.Rout’ to ‘t-translate.Rout.save’ ... OK
Running ‘t-upgrade.R’
Comparing ‘t-upgrade.Rout’ to ‘t-upgrade.Rout.save’ ... OK
Running ‘t-utz1.R’ [42s/44s]
Comparing ‘t-utz1.Rout’ to ‘t-utz1.Rout.save’ ... OK
Running ‘t-utz2.R’ [19s/21s]
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 Rboolean
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
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 1.4.21
Check: tests
Result: ERROR
Running ‘not-cran.R’
Running ‘t-browser.R’
Comparing ‘t-browser.Rout’ to ‘t-browser.Rout.save’ ... OK
Running ‘t-capture.R’
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’ [41s/80s]
Comparing ‘t-demo.Rout’ to ‘t-demo.Rout.save’ ... OK
Running ‘t-error.R’
Comparing ‘t-error.Rout’ to ‘t-error.Rout.save’ ... OK
Running ‘t-exec.R’
Comparing ‘t-exec.Rout’ to ‘t-exec.Rout.save’ ... OK
Running ‘t-get.R’
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’
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’
Comparing ‘t-item.Rout’ to ‘t-item.Rout.save’ ... OK
Running ‘t-list.R’
Comparing ‘t-list.Rout’ to ‘t-list.Rout.save’ ... OK
Running ‘t-misc.R’
Running ‘t-nav.R’ [5s/11s]
Comparing ‘t-nav.Rout’ to ‘t-nav.Rout.save’ ... OK
Running ‘t-parse.R’
Comparing ‘t-parse.Rout’ to ‘t-parse.Rout.save’ ... OK
Running ‘t-prompt.R’
Comparing ‘t-prompt.Rout’ to ‘t-prompt.Rout.save’ ... OK
Running ‘t-random.R’
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’
Comparing ‘t-repairenvs.Rout’ to ‘t-repairenvs.Rout.save’ ... OK
Running ‘t-search.R’ [25s/46s]
Comparing ‘t-search.Rout’ to ‘t-search.Rout.save’ ... OK
Running ‘t-section.R’
Comparing ‘t-section.Rout’ to ‘t-section.Rout.save’ ... OK
Running ‘t-shim.R’ [23s/42s]
Comparing ‘t-shim.Rout’ to ‘t-shim.Rout.save’ ... OK
Running ‘t-state.R’
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’
Comparing ‘t-translate.Rout’ to ‘t-translate.Rout.save’ ... OK
Running ‘t-upgrade.R’ [8s/13s]
Comparing ‘t-upgrade.Rout’ to ‘t-upgrade.Rout.save’ ... OK
Running ‘t-utz1.R’ [65s/79s]
Comparing ‘t-utz1.Rout’ to ‘t-utz1.Rout.save’ ... OK
Running ‘t-utz2.R’ [43s/59s]
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 Rboolean
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
Flavor: r-devel-linux-x86_64-fedora-gcc