Running 'run.R' [32s]
Running the tests in 'tests/run.R' failed.
Complete output:
  > # to avoid variability on terminals with different capabilities
  > # plus generally random options being set
  > 
  > if(getRversion() < "3.2.2") {
  +   warning("Cannot run tests with R version less than 3.2.2.")
  + } else if(!suppressWarnings(require('fansi'))) {
  +   # this is to avoid accidentally running tests under valgrind without fansi
  +   # installed... (no, we've never done this...)
  +   warning("Cannot run tests without package `fansi`")
  + } else if(!suppressWarnings(require('unitizer'))) {
  +   warning("Cannot run tests without package `unitizer`")
  + } else {
  +   old.opt <- options(
  +     fansi.tabs.as.spaces=FALSE,
  +     fansi.tab.stops=8L,
  +     fansi.warn=TRUE,
  +     fansi.term.cap=c('bright', '256')
  +     # warnPartialMatchArgs = TRUE,
  +     # warnPartialMatchAttr = TRUE,
  +     # warnPartialMatchDollar = TRUE
  +   )
  +   on.exit(old.opt)
  +   pat.all <- "^[^.].*\\.[Rr]$"
  +   pattern <- pat.all
  +   # pattern <- "over"
  +   unitize_dir(
  +     'unitizer',
  +     pattern=pattern,
  +     state='suggested'
  +   )
  +   # we skip utf8 tests on solaris due to the problems with deparse (and maybe
  +   # others, don't have a solaris system handy for testing).
  +   if(
  +     !grepl("solaris|sun", Sys.info()[['sysname']], ignore.case=TRUE) &&
  +     identical(pattern, pat.all)
  +   ) {
  +     unitize('special/utf8.R', state='suggested')
  +   }
  +   # UCD 12.1 update in 4.0.4 produces correct widths for emoji
  +   if(getRversion() >= "4.0.4" && identical(pattern, pat.all))
  +     unitize('special/emo-graph.R', state='suggested')
  + }
  Loading required package: fansi
  Loading required package: unitizer
  State tracking is disabled by default to comply with CRAN policies. Add `options(unitizer.state='suggested')` to your 'Rprofile' file to enable, or `options(unitizer.state='off')` to quash this message without enabling.  Prior to enabling, be sure to read `?unitizerState`,in particular the 'CRAN non-compliance' section.
  
  
                                                                                  
  Preloads...
                                                                                  
  Loading unitizer data...
                                                                                  
  Parsing tests...
                                                                                  
  Parsing unitizer/has.R
                                                                                  
  Parsing unitizer/interactions.R
                                                                                  
  Parsing unitizer/misc.R
                                                                                  
  Parsing unitizer/nchar.R
                                                                                  
  Parsing unitizer/normalize.R
                                                                                  
  Parsing unitizer/overflow.R
                                                                                  
  Parsing unitizer/strip.R
                                                                                  
  Parsing unitizer/strsplit.R
                                                                                  
  Parsing unitizer/substr.R
                                                                                  
  Parsing unitizer/tabs.R
                                                                                  
  Parsing unitizer/tohtml.R
                                                                                  
  Parsing unitizer/trimws.R
                                                                                  
  Parsing unitizer/url.R
                                                                                  
  Parsing unitizer/wrap.R
                                                                                  
  
                                                                                  
   1/14 has.R: 
                                                                                  
   1/14 has.R: library(fansi)
                                                                                  
   1/14 has.R: has_ctl(paste0(red, "hello", end))
                                                                                  
   1/14 has.R: has_ctl(paste0("hello", end))
                                                                                  
   1/14 has.R: has_ctl(paste0("hello"))
                                                                                  
   1/14 has.R: in.middle <- c("world", paste0("hello", red), "wow")
                                                                                  
   1/14 has.R: in.end <- c("world", "wow", paste0("hello", red))
                                                                                  
   1/14 has.R: in.start <- c(paste0("hello", red), "wow", "world")
                                                                                  
   1/14 has.R: has_ctl(in.middle)
                                                                                  
   1/14 has.R: has_ctl(in.end)
                                                                                  
   1/14 has.R: has_ctl(in.start)
                                                                                  
   1/14 has.R: has_ctl(c(in.start, NA))
                                                                                  
   1/14 has.R: has_ctl("hello\nworld")
                                                                                  
   1/14 has.R: has_sgr("hello\nworld")
                                                                                  
   1/14 has.R: has_sgr(in.end)
                                                                                  
   1/14 has.R: has_ctl("hello\033p world")
                                                                                  
   1/14 has.R: has_ctl("hello\033[31#0mworld")
                                                                                  
   1/14 has.R: suppressWarnings(has_ctl("hello\033[31#0mworld"))
                                                                                  
   1/14 has.R: has_ctl("hello world", ctl = c("sgr", "sgr"))
                                                                                  
   1/14 has.R: has_ctl("hello\033[31#0")
                                                                                  
   1/14 has.R: has_ctl("hello\033[31mworld", ctl = c("sgr"))
                                                                                  
   1/14 has.R: has_ctl("hello\033[31mworld", ctl = c("csi"))
                                                                                  
   1/14 has.R: has_ctl("hello\033[31!mworld", ctl = c("sgr"))
                                                                                  
   1/14 has.R: has_ctl("hello\033[31!mworld", ctl = c("csi"))
                                                                                  
   1/14 has.R: has_ctl("hello\033[31lworld", ctl = c("csi"))
                                                                                  
   1/14 has.R: has_ctl("hello\nworld", ctl = c("all", "nl"))
                                                                                  
   1/14 has.R: has_ctl("hello\nworld", ctl = c("all", "c0"))
                                                                                  
   1/14 has.R: has_ctl("hello\tworld", ctl = c("all", "c0"))
                                                                                  
   1/14 has.R: has_ctl("hello\tworld", ctl = c("c0"))
                                                                                  
   1/14 has.R: has_ctl("hello\033pworld", ctl = c("esc"))
                                                                                  
   1/14 has.R: has_ctl("hello\033pworld", ctl = c("all", "esc"))
                                                                                  
   1/14 has.R: has_ctl("hello world", warn = NULL)
                                                                                  
   1/14 has.R: has_ctl("hello world", ctl = 1:3)
                                                                                  
   1/14 has.R: has_ctl("hello world", ctl = "bananas")
                                                                                  
   1/14 has.R: has_ctl("hello world", ctl = NA_character_)
                                                                                  
   1/14 has.R: has_ctl(c("\033[31mhello", "wo\nrld"), ctl = character())
                                                                                  
   1/14 has.R: has_ctl("hello world", which = "sgr")
                                                                                  
  
                                                                                  
   2/14 interactions.R: 
                                                                                  
   2/14 interactions.R: library(fansi)
                                                                                  
   2/14 interactions.R: str.0 <- c("\033[44mhello", "world")
                                                                                  
   2/14 interactions.R: substr_ctl(str.0, 2, 4)
                                                                                  
   2/14 interactions.R: substr_ctl(str.0, 2, 4, carry = TRUE)
                                                                                  
   2/14 interactions.R: substr_ctl(str.0, 2, 4, carry = "\033[33m")
                                                                                  
   2/14 interactions.R: substr2_ctl(str.0, 2, 4, carry = "\033[33m")
                                                                                  
   2/14 interactions.R: substr_sgr(str.0, 2, 4, carry = "\033[33m")
                                                                                  
   2/14 interactions.R: substr2_sgr(str.0, 2, 4, carry = "\033[33m")
                                                                                  
   2/14 interactions.R: str.1 <- c("hello", "\033[44mworld", "barrow")
                                                                                  
   2/14 interactions.R: substr_ctl(str.1, 2, 4)
                                                                                  
   2/14 interactions.R: substr_ctl(str.1, 2, 4, carry = TRUE)
                                                                                  
   2/14 interactions.R: substr_ctl(str.1, 2, 4, carry = "\033[33m")
                                                                                  
   2/14 interactions.R: str.2 <- c("\033[33mA\033[44mBCD", "ABCD", "\033[39mABCD")
                                                                                  
   2/14 interactions.R: substr_ctl(str.2, 2, 2)
                                                                                  
   2/14 interactions.R: substr_ctl(str.2, 2, 2, carry = TRUE)
                                                                                  
   2/14 interactions.R: substr_ctl(str.2, 2, 2, carry = TRUE, terminate = FALSE)
                                                                                  
   2/14 interactions.R: str.3 <- c("\033[35mA\033[42mB", "\033[49mCD")
                                                                                  
   2/14 interactions.R: substr_ctl(str.3, 2, 2, carry = TRUE, terminate = FALSE)
                                                                                  
   2/14 interactions.R: wrp.0 <- c("once upon \033[44ma time in a land far away ov
                                                                                  
   2/14 interactions.R: strwrap_ctl(wrp.0, 20)
                                                                                  
   2/14 interactions.R: strwrap_ctl(wrp.0, 20, carry = TRUE)
                                                                                  
   2/14 interactions.R: strwrap_ctl(wrp.0, 20, carry = "\033[33m")
                                                                                  
   2/14 interactions.R: strwrap_sgr(wrp.0, 20, carry = "\033[33m")
                                                                                  
   2/14 interactions.R: strwrap2_ctl(wrp.0, 20, carry = "\033[33m")
                                                                                  
   2/14 interactions.R: strwrap2_sgr(wrp.0, 20, carry = "\033[33m")
                                                                                  
   2/14 interactions.R: strtrim_ctl(wrp.0, 20, carry = "\033[33m")
                                                                                  
   2/14 interactions.R: strtrim_sgr(wrp.0, 20, carry = "\033[33m")
                                                                                  
   2/14 interactions.R: strtrim2_ctl(wrp.0, 20, carry = "\033[33m")
                                                                                  
   2/14 interactions.R: strtrim2_sgr(wrp.0, 20, carry = "\033[33m")
                                                                                  
   2/14 interactions.R: wrp.1 <- c("once upon \033[44ma time in a land far away ov
                                                                                  
   2/14 interactions.R: strtrim_ctl(wrp.0, 20, carry = "\033[33m")
                                                                                  
   2/14 interactions.R: wrp.2 <- c("hello \033[42mworld", "goodnight\033[49m moon"
                                                                                  
   2/14 interactions.R: strwrap_ctl(wrp.2, 10, carry = "\033[35m", simplify = FALS
                                                                                  
   2/14 interactions.R: strwrap_ctl(wrp.2, 10, carry = "\033[35m", simplify = FALS
                                                                                  
   2/14 interactions.R: str.2 <- c("\033[44mhello", "wo\033[mrld", "barrow")
                                                                                  
   2/14 interactions.R: normalize_state(str.2)
                                                                                  
   2/14 interactions.R: normalize_state(str.2, carry = TRUE)
                                                                                  
   2/14 interactions.R: normalize_state(str.2, carry = "\033[33m")
                                                                                  
   2/14 interactions.R: substr_ctl("", 2, 3, carry = "\033[33m")
                                                                                  
   2/14 interactions.R: substr_ctl("", 2, 3, carry = "\033[33m", terminate = FALSE
                                                                                  
   2/14 interactions.R: substr_ctl("\033[39m", 2, 3, carry = "\033[33m", terminate
                                                                                  
   2/14 interactions.R: substr_ctl("\033[39m", 2, 3, carry = "\033[33m", terminate
                                                                                  
   2/14 interactions.R: substr_ctl("", 0, 1, carry = "\033[33m")
                                                                                  
   2/14 interactions.R: substr_ctl("", 0, 1, carry = "\033[33m", terminate = FALSE
                                                                                  
   2/14 interactions.R: substr_ctl("\033[39m", 0, 1, carry = "\033[33m", terminate
                                                                                  
   2/14 interactions.R: substr_ctl("\033[39m", 0, 1, carry = "\033[33m", terminate
                                                                                  
   2/14 interactions.R: substr_ctl("", 0, 0, carry = "\033[33m")
                                                                                  
   2/14 interactions.R: substr_ctl("", 0, 0, carry = "\033[33m", terminate = FALSE
                                                                                  
   2/14 interactions.R: substr_ctl("\033[39m", 0, 0, carry = "\033[33m", terminate
                                                                                  
   2/14 interactions.R: substr_ctl(character(), 2, 4, carry = "\033[33m")
                                                                                  
   2/14 interactions.R: substr_ctl(NA, 2, 4, carry = "\033[33m")
                                                                                  
   2/14 interactions.R: substr_ctl(environment(), 2, 4, carry = "\033[33m")
                                                                                  
   2/14 interactions.R: substr_ctl("hello", 2, 4, carry = c("\033[33m", "\033[44m"
                                                                                  
   2/14 interactions.R: substr_ctl(str.0, 2, 4, carry = NA_character_)
                                                                                  
   2/14 interactions.R: substr_ctl(str.0, 2, 4, carry = character())
                                                                                  
   2/14 interactions.R: substr_ctl(str.0, 2, 4, carry = 1)
                                                                                  
   2/14 interactions.R: substr_ctl(str.0, 2, 4, carry = Inf)
                                                                                  
   2/14 interactions.R: sgrs <- c("A\033[31mB", "C\033[1mD", "E\033[4mF", "G\033[1
                                                                                  
   2/14 interactions.R: substr_ctl(sgrs, 2, 2, carry = TRUE)
                                                                                  
   2/14 interactions.R: normalize_state(str.2, carry = NA_character_)
                                                                                  
   2/14 interactions.R: normalize_state(str.2, carry = character())
                                                                                  
   2/14 interactions.R: normalize_state(str.2, carry = 1)
                                                                                  
   2/14 interactions.R: normalize_state(str.2, carry = Inf)
                                                                                  
   2/14 interactions.R: strwrap_ctl(wrp.0, 20, carry = NA_character_)
                                                                                  
   2/14 interactions.R: strwrap_sgr(wrp.0, 20, carry = character())
                                                                                  
   2/14 interactions.R: strwrap2_ctl(wrp.0, 20, carry = 1)
                                                                                  
   2/14 interactions.R: strwrap2_sgr(wrp.0, 20, carry = Inf)
                                                                                  
   2/14 interactions.R: strwrap_ctl(c("\033[33mA \033[4mB", "\033[44mC D"), carry 
                                                                                  
   2/14 interactions.R: str.0 <- c("hel\033[33m", "wo\033[44mrld")
                                                                                  
   2/14 interactions.R: substr_ctl(str.0, 2, 5, terminate = FALSE)
                                                                                  
   2/14 interactions.R: substr_sgr(str.0, 2, 5, terminate = FALSE)
                                                                                  
   2/14 interactions.R: substr2_ctl(str.0, 2, 5, terminate = FALSE)
                                                                                  
   2/14 interactions.R: substr2_sgr(str.0, 2, 5, terminate = FALSE)
                                                                                  
   2/14 interactions.R: strwrap_ctl(wrp.0, 20, terminate = FALSE)
                                                                                  
   2/14 interactions.R: strwrap_sgr(wrp.0, 20, terminate = FALSE)
                                                                                  
   2/14 interactions.R: strwrap2_ctl(wrp.0, 20, terminate = FALSE)
                                                                                  
   2/14 interactions.R: strwrap2_sgr(wrp.0, 20, terminate = FALSE)
                                                                                  
   2/14 interactions.R: strtrim_ctl(wrp.0, 20, terminate = FALSE)
                                                                                  
   2/14 interactions.R: strtrim_sgr(wrp.0, 20, terminate = FALSE)
                                                                                  
   2/14 interactions.R: strtrim2_ctl(wrp.0, 20, terminate = FALSE)
                                                                                  
   2/14 interactions.R: strtrim2_sgr(wrp.0, 20, terminate = FALSE)
                                                                                  
   2/14 interactions.R: strtrim2_sgr(wrp.0, 20, terminate = NA)
                                                                                  
   2/14 interactions.R: fansi:::bridge("\033[42m", "\033[31m")
                                                                                  
   2/14 interactions.R: fansi:::bridge("\033[42m", "\033[31m", normalize = TRUE)
                                                                                  
   2/14 interactions.R: fansi:::bridge("", "\033[31m")
                                                                                  
   2/14 interactions.R: fansi:::bridge("\033[42m", "")
                                                                                  
   2/14 interactions.R: fansi:::bridge("\033[42m", "\033[42m")
                                                                                  
   2/14 interactions.R: end <- c("\033[31", "\033[41m", NA_character_, "\033[44m")
                                                                                  
   2/14 interactions.R: restart <- c("", NA_character_, "\033[45m", "\033[45m")
                                                                                  
   2/14 interactions.R: fansi:::bridge(end, restart)
                                                                                  
   2/14 interactions.R: base.st <- "%s\033]8;%s;%s\033\\"
                                                                                  
   2/14 interactions.R: url <- "https://x.yz"
                                                                                  
   2/14 interactions.R: u0 <- sprintf(base.st, "", "", url)
                                                                                  
   2/14 interactions.R: fansi:::bridge(paste0("\033[42m", u0), "\033[31m")
                                                                                  
   2/14 interactions.R: fansi:::bridge("\033[31m", paste0("\033[42m", u0))
                                                                                  
   2/14 interactions.R: txt <- c("A\033[31mBC", "D\033[39mE\033[42mF")
                                                                                  
   2/14 interactions.R: `substr_ctl<-`(txt, 2, 2, value = "?", normalize = TRUE, c
                                                                                  
   2/14 interactions.R: x <- c("a\033[31mb", "c", "\033[42md")
                                                                                  
   2/14 interactions.R: state_at_end(x)
                                                                                  
   2/14 interactions.R: state_at_end(x, carry = TRUE)
                                                                                  
   2/14 interactions.R: state_at_end(x, carry = TRUE, normalize = TRUE)
                                                                                  
   2/14 interactions.R: state_at_end("a\033[pb")
                                                                                  
   2/14 interactions.R: state_at_end("a\033[pb", warn = FALSE)
                                                                                  
   2/14 interactions.R: state_at_end(c("\033[42mA", NA_character_, "\033[31mA"))
                                                                                  
   2/14 interactions.R: state_at_end(c("\033[42mA", NA_character_, "\033[31mA"), c
                                                                                  
   2/14 interactions.R: close_state(x)
                                                                                  
   2/14 interactions.R: close_state(x, normalize = TRUE)
                                                                                  
   2/14 interactions.R: close_state("a\033[pb")
                                                                                  
   2/14 interactions.R: close_state("a\033[pb", warn = FALSE)
                                                                                  
   2/14 interactions.R: state_no_arg <- function(x) {
                                                                                  
   2/14 interactions.R: x <- "ð"
                                                                                  
   2/14 interactions.R: Encoding(x) <- "UTF-8"
                                                                                  
   2/14 interactions.R: state_no_arg(x)
                                                                                  
   2/14 interactions.R: y <- "\033[45phello"
                                                                                  
   2/14 interactions.R: state_no_arg(y)
                                                                                  
  
                                                                                  
   3/14 misc.R: 
                                                                                  
   3/14 misc.R: library(unitizer)
                                                                                  
   3/14 misc.R: library(fansi)
                                                                                  
   3/14 misc.R: tct <- term_cap_test()
                                                                                  
   3/14 misc.R: tct
                                                                                  
   3/14 misc.R: fansi_lines(LETTERS, step = 6)
                                                                                  
   3/14 misc.R: local({
                                                                                  
   3/14 misc.R: fansi:::add_int(1, 1)
                                                                                  
   3/14 misc.R: fansi:::add_int(2^31 - 1, 1)
                                                                                  
   3/14 misc.R: fansi:::add_int(2^31 - 1, 0)
                                                                                  
   3/14 misc.R: fansi:::add_int(-2^31 + 1, 0)
                                                                                  
   3/14 misc.R: fansi:::add_int(-2^31 + 1, -1)
                                                                                  
   3/14 misc.R: string.0 <- c("\033[41mhello world\033[m", "foo\033[22>m", "\033[9
                                                                                  
   3/14 misc.R: unhandled_ctl(string.0)
                                                                                  
   3/14 misc.R: string.1 <- c("foo\033[22>mhello\033[9999m", "a\033[31k", "hello\0
                                                                                  
   3/14 misc.R: unhandled_ctl(string.1)
                                                                                  
   3/14 misc.R: unhandled_ctl("hello\033\033\033[45p wor\ald")
                                                                                  
   3/14 misc.R: unhandled_ctl("\033[38;5;220mworld\033[m", "bright")
                                                                                  
   3/14 misc.R: unhandled_ctl("\033[38;2;10;20;30mworld\033[m", "bright")
                                                                                  
   3/14 misc.R: unhandled_ctl("\033[38;2;10;20;30mworld\033[m", "bri")
                                                                                  
   3/14 misc.R: unhandled_ctl("\033[38;2;10;20;30mworld\033[m", NULL)
                                                                                  
   3/14 misc.R: unhandled_ctl("AB\033[34m\033]9\033\\\033[1m\033[2LCD")
                                                                                  
   3/14 misc.R: unhandled_ctl("AB\033[34m\033]9\033[1m\033[2LCD")
                                                                                  
   3/14 misc.R: unhandled_ctl("A\033[45#1pB\033[256pC\033[256mD")
                                                                                  
   3/14 misc.R: unhandled_ctl("\033[38m")
                                                                                  
   3/14 misc.R: strtrim_ctl(" hello world", 7)
                                                                                  
   3/14 misc.R: strtrim_ctl("\033[42m hello world\033[m", 7)
                                                                                  
   3/14 misc.R: strtrim_ctl(" hello\nworld", 7)
                                                                                  
   3/14 misc.R: strtrim_ctl("\033[42m hello\nworld\033[m", 7)
                                                                                  
   3/14 misc.R: strtrim_ctl("\nhello\nworld", 7)
                                                                                  
   3/14 misc.R: strtrim_ctl("\033[42m\nhello\nworld\033[m", 7)
                                                                                  
   3/14 misc.R: strtrim_ctl("\thello\rworld foobar", 12)
                                                                                  
   3/14 misc.R: strtrim_ctl("\033[42m\thello\rworld\033[m foobar", 12)
                                                                                  
   3/14 misc.R: strtrim2_ctl("\033[42m\thello world\033[m foobar", 12, tabs.as.spa
                                                                                  
   3/14 misc.R: strtrim_sgr("\033[42m\the\allo world\033[m foobar", 12, warn = FAL
                                                                                  
   3/14 misc.R: strtrim2_sgr("\033[42m\the\allo world\033[m foobar", 12, tabs.as.s
                                                                                  
   3/14 misc.R: identical(strtrim_ctl(c("AB", NA_character_, "CD"), 1), strtrim(c(
                                                                                  
   3/14 misc.R: strtrim_ctl(c("AB", NA_character_, "CD"), 1, carry = TRUE)
                                                                                  
   3/14 misc.R: hello2.0 <- "\033[42m\thello world\033[m foobar"
                                                                                  
   3/14 misc.R: strtrim_ctl(1:3, width = 10)
                                                                                  
   3/14 misc.R: strtrim_ctl(hello2.0, width = "35")
                                                                                  
   3/14 misc.R: strtrim_ctl(hello2.0, width = NA_integer_)
                                                                                  
   3/14 misc.R: strtrim_ctl(hello2.0, width = 10, warn = NULL)
                                                                                  
   3/14 misc.R: strtrim_ctl(hello2.0, width = 10, ctl = 0)
                                                                                  
   3/14 misc.R: strtrim_ctl(hello2.0, width = 10, ctl = "bananas")
                                                                                  
   3/14 misc.R: strtrim2_ctl(1:3, width = 10)
                                                                                  
   3/14 misc.R: strtrim2_ctl(hello2.0, width = "35")
                                                                                  
   3/14 misc.R: strtrim2_ctl(hello2.0, width = NA_integer_)
                                                                                  
   3/14 misc.R: strtrim2_ctl(hello2.0, width = 10, warn = NULL)
                                                                                  
   3/14 misc.R: strtrim2_ctl(hello2.0, width = 10, tabs.as.spaces = NA)
                                                                                  
   3/14 misc.R: strtrim2_ctl(hello2.0, width = 10, tabs.as.spaces = 1:3)
                                                                                  
   3/14 misc.R: strtrim2_ctl(hello2.0, width = 10, tab.stops = -(1:3))
                                                                                  
   3/14 misc.R: strtrim2_ctl(hello2.0, width = 10, tab.stops = 0)
                                                                                  
   3/14 misc.R: strtrim2_ctl(hello2.0, width = 10, ctl = 0)
                                                                                  
   3/14 misc.R: strtrim2_ctl(hello2.0, width = 10, ctl = "bananas")
                                                                                  
   3/14 misc.R: x <- y <- "He"
                                                                                  
   3/14 misc.R: Encoding(x) <- "latin1"
                                                                                  
   3/14 misc.R: fansi:::check_enc(x, 1)
                                                                                  
   3/14 misc.R: Encoding(y) <- "bytes"
                                                                                  
   3/14 misc.R: fansi:::check_enc(y, 1)
                                                                                  
   3/14 misc.R: fansi:::check_enc("hello", 1)
                                                                                  
   3/14 misc.R: fansi:::ctl_as_int(c(1, 2, 3, 4, 5))
                                                                                  
   3/14 misc.R: fansi:::ctl_as_int(c(2, 3, 4, 5))
                                                                                  
   3/14 misc.R: fansi:::ctl_as_int(c(1, 2, 3, 9))
                                                                                  
   3/14 misc.R: fansi:::ctl_as_int(c(2, 3, 9))
                                                                                  
   3/14 misc.R: html_esc(character())
                                                                                  
   3/14 misc.R: html_esc(1:10)
                                                                                  
   3/14 misc.R: html_esc(NA_character_)
                                                                                  
   3/14 misc.R: html_esc("<he&llo>")
                                                                                  
   3/14 misc.R: html_esc("ow&wo")
                                                                                  
   3/14 misc.R: html_esc(c("hello", "wor<ld>s", NA, ""))
                                                                                  
   3/14 misc.R: html_esc(c("he'l\"lo", "wor<ld>s", NA, ""))
                                                                                  
   3/14 misc.R: html_esc("<<<<")
                                                                                  
   3/14 misc.R: html_esc("<123hello>")
                                                                                  
   3/14 misc.R: txt <- c("day > night", "hello world")
                                                                                  
   3/14 misc.R: html_code_block(character())
                                                                                  
   3/14 misc.R: html_code_block(txt)
                                                                                  
   3/14 misc.R: html_code_block(1:10)
                                                                                  
   3/14 misc.R: html_code_block(txt, class = c("not-fansi", "plain"))
                                                                                  
   3/14 misc.R: html_code_block(txt, class = NULL)
                                                                                  
   3/14 misc.R: html_esc(c("h&e'l\"lo", "wor<ld>s", NA, ""), "<>")
                                                                                  
   3/14 misc.R: html_esc(c("h&e'l\"lo", "wor<ld>s", NA, ""), "><")
                                                                                  
   3/14 misc.R: html_esc(c("h&e'l\"lo", "wor<ld>s", NA, ""), "<&>")
                                                                                  
   3/14 misc.R: html_esc(c("h&e'l\"lo", "wor<ld>s", NA, ""), "'<&>")
                                                                                  
   3/14 misc.R: html_esc(c("h&e'l\"lo", "wor<ld>s", NA, ""), "'<&>\"")
                                                                                  
   3/14 misc.R: html_esc(c("h&e'l\"lo", "wor<ld>s", NA, ""), "'&>\"<")
                                                                                  
   3/14 misc.R: html_esc(c("h&e'l\"lo", "wor<ld>s", NA, ""), "")
                                                                                  
   3/14 misc.R: html_esc(c("h&e'l\"lo", "wor<ld>s", NA, ""), "'<&>\"<")
                                                                                  
   3/14 misc.R: html_esc(c("h&e'l\"lo", "wor<ld>s", NA, ""), character())
                                                                                  
   3/14 misc.R: html_esc(c("h&e'l\"lo", "wor<ld>s", NA, ""), NA_character_)
                                                                                  
   3/14 misc.R: html_esc(c("h&e'l\"lo", "wor<ld>s", NA, ""), 1:5)
                                                                                  
   3/14 misc.R: html_esc(c("h&e'l\"lo", "wor<ld>s", NA, ""), "'<&><")
                                                                                  
   3/14 misc.R: html_esc(c("h&e'l\"lo", "wor<ld>s", NA, ""), "'x><")
                                                                                  
   3/14 misc.R: h.1 <- list(set = function(...) cat("Set hooks: ", names(list(...)
                                                                                  
   3/14 misc.R: h.2 <- list(set = function(...) cat("Set hooks: ", names(list(...)
                                                                                  
   3/14 misc.R: h.3 <- list(set = function(...) cat("Set hooks: ", names(list(...)
                                                                                  
   3/14 misc.R: h.4 <- list(set = function(...) stop("error in set"), get = functi
                                                                                  
   3/14 misc.R: set_knit_hooks(list(1, 2))
                                                                                  
   3/14 misc.R: set_knit_hooks(list(function() NULL, function() NULL))
                                                                                  
   3/14 misc.R: res1 <- set_knit_hooks(h.1, .test = TRUE)
                                                                                  
   3/14 misc.R: res1[["new.hooks"]][["output"]]("hello")
                                                                                  
   3/14 misc.R: res1[["new.hooks"]][["output"]]("hello\033[31m world")
                                                                                  
   3/14 misc.R: res1a <- set_knit_hooks(h.1, split.nl = TRUE, .test = TRUE)
                                                                                  
   3/14 misc.R: res1a[["new.hooks"]][["output"]]("hello\033[31m wo\nrld")
                                                                                  
   3/14 misc.R: p.f.2 <- function(x, y) NULL
                                                                                  
   3/14 misc.R: p.f.3 <- function(x, class) sprintf("new proc fun, '%s'", class)
                                                                                  
   3/14 misc.R: p.f.4 <- function(x, class) stop("new proc fun")
                                                                                  
   3/14 misc.R: set_knit_hooks(h.1, split.nl = "banana")
                                                                                  
   3/14 misc.R: set_knit_hooks(h.1, proc.fun = p.f.2)
                                                                                  
   3/14 misc.R: set_knit_hooks(h.1, which = "hello")
                                                                                  
   3/14 misc.R: set_knit_hooks(h.1, which = NULL)
                                                                                  
   3/14 misc.R: res2 <- set_knit_hooks(h.1, which = c("output", "message"), class 
                                                                                  
   3/14 misc.R: res2[["new.hooks"]][["message"]]("hello")
                                                                                  
   3/14 misc.R: res2[["new.hooks"]][["message"]]("hello\033[31m world")
                                                                                  
   3/14 misc.R: res2[["new.hooks"]][["output"]]("hello\033[31m world")
                                                                                  
   3/14 misc.R: res3 <- set_knit_hooks(h.1, which = c("message", "warning"), 
                                                                                  
   3/14 misc.R: res3[["new.hooks"]][["warning"]]("hello")
                                                                                  
   3/14 misc.R: res3[["new.hooks"]][["warning"]]("hello\033[31mworld")
                                                                                  
   3/14 misc.R: set_knit_hooks(h.2)
                                                                                  
   3/14 misc.R: set_knit_hooks(h.3)
                                                                                  
   3/14 misc.R: set_knit_hooks(h.4)
                                                                                  
   3/14 misc.R: set_knit_hooks(h.1, style = NULL)
                                                                                  
   3/14 misc.R: set_knit_hooks(h.1, class = 1:10)
                                                                                  
   3/14 misc.R: set_knit_hooks(h.1, class = letters)
                                                                                  
   3/14 misc.R: set_knit_hooks(h.1, which = c("output", "message", "output"))
                                                                                  
   3/14 misc.R: fansi_lines(1:3)
                                                                                  
   3/14 misc.R: fansi_lines(1:3, step = "hello")
                                                                                  
   3/14 misc.R: capture.output(fwl("\033[43mhello"))
                                                                                  
   3/14 misc.R: fansi:::VAL_IN_ENV(booboo = "error")
                                                                                  
  
                                                                                  
   4/14 nchar.R: 
                                                                                  
   4/14 nchar.R: library(fansi)
                                                                                  
   4/14 nchar.R: nchar_ctl(c("hello", "world"))
                                                                                  
   4/14 nchar.R: nchar_ctl(c("hello", "world"), type = "width")
                                                                                  
   4/14 nchar.R: nchar_ctl(c("hello", "world"), type = "wi")
                                                                                  
   4/14 nchar.R: na.world <- c("hello", NA, "world", "")
                                                                                  
   4/14 nchar.R: identical(nchar_ctl(na.world), nchar(na.world))
                                                                                  
   4/14 nchar.R: identical(nchar_ctl(na.world, keepNA = FALSE), nchar(na.world, 
                                                                                  
   4/14 nchar.R: identical(nchar_ctl(na.world, keepNA = NA, type = "width"), nchar
                                                                                  
   4/14 nchar.R: identical(nchar_ctl(na.world, keepNA = TRUE, type = "width"), 
                                                                                  
   4/14 nchar.R: identical(nzchar_ctl(na.world), nzchar(na.world))
                                                                                  
   4/14 nchar.R: identical(nzchar_ctl(na.world, keepNA = TRUE), nzchar(na.world, 
                                                                                  
   4/14 nchar.R: identical(nzchar_ctl(na.world, keepNA = NA), nzchar(na.world, 
                                                                                  
   4/14 nchar.R: identical(nchar_ctl(na.world, type = "bytes"), nchar(na.world, 
                                                                                  
   4/14 nchar.R: identical(nchar_ctl(na.world, keepNA = FALSE, type = "bytes"), 
                                                                                  
   4/14 nchar.R: identical(nchar_ctl(na.world, keepNA = TRUE, type = "bytes"), 
                                                                                  
   4/14 nchar.R: w.names <- c(a = "hello", b = "world")
                                                                                  
   4/14 nchar.R: identical(nchar_ctl(w.names), nchar(w.names))
                                                                                  
   4/14 nchar.R: w.dim <- matrix(letters[1:6], 2, 3, dimnames = list(X = LETTERS[2
                                                                                  
   4/14 nchar.R: identical(nchar_ctl(w.dim), nchar(w.dim))
                                                                                  
   4/14 nchar.R: hw.sgr <- c("hello", "wo\033[42mrld", "\033[31m", "mo\non", "star
                                                                                  
   4/14 nchar.R: identical(nchar_ctl(hw.sgr), nchar(strip_ctl(hw.sgr)))
                                                                                  
   4/14 nchar.R: x <- "ð"
                                                                                  
   4/14 nchar.R: if (isTRUE(l10n_info()[["UTF-8"]])) {
                                                                                  
   4/14 nchar.R: Encoding(x) <- "UTF-8"
                                                                                  
   4/14 nchar.R: identical(nzchar_ctl(x), nzchar(x))
                                                                                  
   4/14 nchar.R: nchar_ctl(x)
                                                                                  
   4/14 nchar.R: nchar_ctl(c("", x))
                                                                                  
   4/14 nchar.R: identical(nchar_ctl(x, allowNA = TRUE), nchar(x, allowNA = TRUE))
                                                                                  
   4/14 nchar.R: esc.2 <- "\n\r\033P\033[31m\a"
                                                                                  
   4/14 nchar.R: nchar_ctl(esc.2)
                                                                                  
   4/14 nchar.R: nchar_ctl(esc.2, warn = FALSE)
                                                                                  
   4/14 nchar.R: nzchar_ctl(esc.2)
                                                                                  
   4/14 nchar.R: nzchar_ctl(esc.2, warn = FALSE)
                                                                                  
   4/14 nchar.R: nchar_ctl("\033[31#mworld", ctl = "sgr")
                                                                                  
   4/14 nchar.R: nchar_ctl("\033[31#mworld", ctl = "csi")
                                                                                  
   4/14 nchar.R: esc.3 <- "\n\t\033[31m\033[41!m\033p"
                                                                                  
   4/14 nchar.R: nzchar_ctl(esc.3, warn = FALSE)
                                                                                  
   4/14 nchar.R: nzchar_ctl(sprintf("%sa", esc.3), warn = FALSE)
                                                                                  
   4/14 nchar.R: nzchar_ctl(esc.3, ctl = c("sgr", "csi", "esc"), warn = FALSE)
                                                                                  
   4/14 nchar.R: nzchar_ctl(esc.3, ctl = c("c0", "nl"), warn = FALSE)
                                                                                  
   4/14 nchar.R: nzchar_ctl("\n\t\n", ctl = c("nl"), warn = FALSE)
                                                                                  
   4/14 nchar.R: nzchar_ctl("\t\n", ctl = c("nl"), warn = FALSE)
                                                                                  
   4/14 nchar.R: nchar_ctl("\033\200")
                                                                                  
   4/14 nchar.R: nchar_ctl("\033[31;\200m")
                                                                                  
   4/14 nchar.R: nchar_ctl("\033[31;\200p")
                                                                                  
   4/14 nchar.R: nchar_ctl("\033]8;\200;a.b\033\\")
                                                                                  
   4/14 nchar.R: nchar_ctl("\033];\200;a.b\033\\")
                                                                                  
   4/14 nchar.R: fansi:::set_rver(numeric_version("3.2.1"))
                                                                                  
   4/14 nchar.R: nzchar_ctl(c("\033[31mA", "\033[31m"))
                                                                                  
   4/14 nchar.R: nchar_ctl(c("\033[31mA", "\033[31m"))
                                                                                  
   4/14 nchar.R: fansi:::set_rver()
                                                                                  
   4/14 nchar.R: nchar_ctl(9:10, warn = 1:3)
                                                                                  
   4/14 nchar.R: nchar_ctl("hello\033[31m world", allowNA = 1:3)
                                                                                  
   4/14 nchar.R: nchar_ctl("hello\033[31m world", keepNA = 1:3)
                                                                                  
   4/14 nchar.R: nchar_ctl("hello\033[31m world", strip = 1:3)
                                                                                  
   4/14 nchar.R: nchar_ctl("hello\033[31m world", ctl = "bananas")
                                                                                  
   4/14 nchar.R: nchar_ctl("hello\033[31m world", type = NA_character_)
                                                                                  
   4/14 nchar.R: nchar_ctl("hello\033[31m world", type = 1)
                                                                                  
   4/14 nchar.R: nchar_ctl("hello\033[31m world", type = "bananas")
                                                                                  
   4/14 nchar.R: nzchar_ctl(9:10, warn = 1:3)
                                                                                  
   4/14 nchar.R: nzchar_ctl("hello\033[31m world", keepNA = 1:3)
                                                                                  
   4/14 nchar.R: nzchar_ctl("hello\033[31m world", ctl = 1)
                                                                                  
   4/14 nchar.R: nzchar_ctl("hello\033[31m world", ctl = "bananas")
                                                                                  
  
                                                                                  
   5/14 normalize.R: 
                                                                                  
   5/14 normalize.R: library(fansi)
                                                                                  
   5/14 normalize.R: normalize_state("A\033[31mB")
                                                                                  
   5/14 normalize.R: normalize_state("\033[31mAB")
                                                                                  
   5/14 normalize.R: normalize_state("AB\033[31m")
                                                                                  
   5/14 normalize.R: normalize_state(c("A\033[31mB", "AB"))
                                                                                  
   5/14 normalize.R: normalize_state(c("\033[31mAB", "AB"))
                                                                                  
   5/14 normalize.R: normalize_state(c("AB\033[31m", "AB"))
                                                                                  
   5/14 normalize.R: normalize_state(c("A\033[31;42mB", "AB"))
                                                                                  
   5/14 normalize.R: normalize_state(c("\033[31;42mAB", "AB"))
                                                                                  
   5/14 normalize.R: normalize_state(c("AB\033[31;42m", "AB"))
                                                                                  
   5/14 normalize.R: normalize_state(c("A\033[31;42mB", "A\033[39;4mB"))
                                                                                  
   5/14 normalize.R: normalize_state(c("A\033[31;42mB", "\033[39;4mAB"))
                                                                                  
   5/14 normalize.R: normalize_state(c("AB\033[31;42m", "A\033[39;4mB"))
                                                                                  
   5/14 normalize.R: normalize_state(c("AB\033[31;42m", "A\033[0;4mB"))
                                                                                  
   5/14 normalize.R: normalize_state(c("AB\033[31;42m", "AB\033[0;4m"))
                                                                                  
   5/14 normalize.R: normalize_state(c("AB\033[31;42m", "\033[0;4mAB"))
                                                                                  
   5/14 normalize.R: normalize_state(c("AB\033[31;42m", NA, "\033[0;4mAB"))
                                                                                  
   5/14 normalize.R: normalize_state(c("AB\033[31;42m", NA, "\033[0;4mAB"), carry 
                                                                                  
   5/14 normalize.R: normalize_state(c("A\033[31;44;38;5;226;36mBC\033[mD"))
                                                                                  
   5/14 normalize.R: normalize_state(c("A\033[31;44;38;5;226;36m\033[0mBCD"))
                                                                                  
   5/14 normalize.R: normalize_state(c("A\033[33;44mB\033[1;3;4mCD\033[mE"))
                                                                                  
   5/14 normalize.R: normalize_state("A\033[33;44mB\033[1;2;3;4;5;6;7;8;9;11;21;26
                                                                                  
   5/14 normalize.R: unhandled_ctl(normalize_state("A\033[33;44mB\033[1;2;3;4;5;6;
                                                                                  
   5/14 normalize.R: normalize_state("A\033[33;44mB\033[1;2;3;4;5;6;7;8;9;11;21;26
                                                                                  
   5/14 normalize.R: normalize_state("A\033[33;44mB\033[1;2;3;4;5;6;7;8;9;11;21;26
                                                                                  
   5/14 normalize.R: normalize_state(list(1, 2, 3))
                                                                                  
   5/14 normalize.R: x <- c("A\033[38;2;100;150;3;36mBC\033[mD")
                                                                                  
   5/14 normalize.R: normalize_state(x, term.cap = c("old"))
                                                                                  
   5/14 normalize.R: normalize_state(x, term.cap = c("bright", "old"))
                                                                                  
   5/14 normalize.R: normalize_state(x, term.cap = character())
                                                                                  
   5/14 normalize.R: normalize_state(x, term.cap = c("bright"))
                                                                                  
   5/14 normalize.R: normalize_state(x, term.cap = c("bright", "256", "truecolor")
                                                                                  
   5/14 normalize.R: substr_ctl(x, 1, 2, normalize = "yeah baby")
                                                                                  
   5/14 normalize.R: substr_ctl(x, 1, 2, normalize = NA)
                                                                                  
   5/14 normalize.R: string1 <- "hello \033[33;44mblue world"
                                                                                  
   5/14 normalize.R: string2 <- "\033[4;1mgoodbye\033[7m white \033[mmoon"
                                                                                  
   5/14 normalize.R: string3 <- c(string1, string2)
                                                                                  
   5/14 normalize.R: strwrap_ctl(string1, 11, normalize = TRUE)
                                                                                  
   5/14 normalize.R: strwrap_ctl(string2, 11, normalize = TRUE)
                                                                                  
   5/14 normalize.R: strwrap_ctl(string3, 11, normalize = TRUE)
                                                                                  
   5/14 normalize.R: strwrap_ctl(string3, 11, normalize = TRUE, simplify = FALSE)
                                                                                  
   5/14 normalize.R: strwrap2_ctl(string3, 11, normalize = TRUE, pad.end = " ")
                                                                                  
   5/14 normalize.R: strwrap_sgr(string3, 11, normalize = TRUE)
                                                                                  
   5/14 normalize.R: strwrap2_sgr(string3, 11, normalize = TRUE, pad.end = " ")
                                                                                  
   5/14 normalize.R: strtrim_sgr(string3, 8, normalize = TRUE)
                                                                                  
   5/14 normalize.R: strtrim_sgr(string3, 8, normalize = TRUE)
                                                                                  
   5/14 normalize.R: substr_ctl("\033[33;44mhello\033[m world", 3, 8, normalize = 
                                                                                  
   5/14 normalize.R: substr2_ctl("\033[33;44mhello\033[m world", 3, 8, normalize =
                                                                                  
   5/14 normalize.R: substr_sgr("\033[33;44mhello\033[m world", 3, 8, normalize = 
                                                                                  
   5/14 normalize.R: substr2_sgr("\033[33;44mhello\033[m world", 3, 8, normalize =
                                                                                  
   5/14 normalize.R: substr_ctl(string3, c(3, 3), c(8, 15), normalize = TRUE)
                                                                                  
   5/14 normalize.R: strsplit_ctl(string3, " ", normalize = TRUE)
                                                                                  
  
                                                                                  
   6/14 overflow.R: 
                                                                                  
   6/14 overflow.R: library(fansi)
                                                                                  
   6/14 overflow.R: old_max <- fansi:::set_int_max(15)
                                                                                  
   6/14 overflow.R: tabs_as_spaces("\t1234567")
                                                                                  
   6/14 overflow.R: tryCatch(tabs_as_spaces("\t12345678"), error = conditionMessag
                                                                                  
   6/14 overflow.R: invisible(fansi:::set_int_max(12))
                                                                                  
   6/14 overflow.R: tabs_as_spaces(c("\t", "\t123"))
                                                                                  
   6/14 overflow.R: invisible(fansi:::set_int_max(15))
                                                                                  
   6/14 overflow.R: string <- "0123456789"
                                                                                  
   6/14 overflow.R: strwrap_ctl(string, 16)
                                                                                  
   6/14 overflow.R: strwrap2_ctl(string, 16, pad.end = " ")
                                                                                  
   6/14 overflow.R: tce(strwrap2_ctl(string, 17, pad.end = " "))
                                                                                  
   6/14 overflow.R: strwrap_ctl(string, 16, prefix = "-----")
                                                                                  
   6/14 overflow.R: tce(strwrap_ctl(string, 16, prefix = "------"))
                                                                                  
   6/14 overflow.R: strwrap_ctl(string, 16, indent = 5)
                                                                                  
   6/14 overflow.R: tce(strwrap_ctl(string, 16, indent = 6))
                                                                                  
   6/14 overflow.R: strwrap_ctl(string, 16, indent = 2, prefix = "---")
                                                                                  
   6/14 overflow.R: tce(strwrap_ctl(string, 16, indent = 3, prefix = "---"))
                                                                                  
   6/14 overflow.R: string2 <- "012345678901234"
                                                                                  
   6/14 overflow.R: string3 <- "0123456789012345"
                                                                                  
   6/14 overflow.R: strwrap_ctl(string2, 16)
                                                                                  
   6/14 overflow.R: tce(strwrap_ctl(string3, 16))
                                                                                  
   6/14 overflow.R: string4 <- "\033[31m0123456789"
                                                                                  
   6/14 overflow.R: tce(strwrap_ctl(string4, 16))
                                                                                  
   6/14 overflow.R: invisible(fansi:::set_int_max(9))
                                                                                  
   6/14 overflow.R: tce(strwrap_ctl("A\033[31m a", 5))
                                                                                  
   6/14 overflow.R: invisible(fansi:::set_int_max(38))
                                                                                  
   6/14 overflow.R: sgr_to_html("\033[31ma")
                                                                                  
   6/14 overflow.R: tce(sgr_to_html("\033[31mab"))
                                                                                  
   6/14 overflow.R: tce(sgr_to_html("\033[31m\033[42mhello"))
                                                                                  
   6/14 overflow.R: invisible(fansi:::set_int_max(57))
                                                                                  
   6/14 overflow.R: tce(sgr_to_html("\033[31m\033[42mhello", classes = TRUE))
                                                                                  
   6/14 overflow.R: invisible(fansi:::set_int_max(58))
                                                                                  
   6/14 overflow.R: (x <- sgr_to_html("\033[31m\033[42mhello", classes = TRUE))
                                                                                  
   6/14 overflow.R: nchar(x)
                                                                                  
   6/14 overflow.R: invisible(fansi:::set_int_max(4))
                                                                                  
   6/14 overflow.R: tce(sgr_to_html("hello"))
                                                                                  
   6/14 overflow.R: tce(html_esc("hello"))
                                                                                  
   6/14 overflow.R: tce(html_esc("<"))
                                                                                  
   6/14 overflow.R: tce(html_esc("<!"))
                                                                                  
   6/14 overflow.R: tce(html_esc("&"))
                                                                                  
   6/14 overflow.R: tce(html_esc("'"))
                                                                                  
   6/14 overflow.R: invisible(fansi:::set_int_max(10))
                                                                                  
   6/14 overflow.R: string <- paste0(rep("\a", 10), collapse = "")
                                                                                  
   6/14 overflow.R: unhandled_ctl(string)
                                                                                  
   6/14 overflow.R: tcw(unhandled_ctl(c("\a", string)))
                                                                                  
   6/14 overflow.R: suppressWarnings(unhandled_ctl(c("\a", string)))
                                                                                  
   6/14 overflow.R: invisible(fansi:::set_int_max(old_max))
                                                                                  
   6/14 overflow.R: fansi:::size_buff(c(0L, 127L, 128L, 64L, 200L, 1024L))
                                                                                  
   6/14 overflow.R: fansi:::size_buff(c(0L, 127L, -128L))
                                                                                  
   6/14 overflow.R: invisible(fansi:::set_int_max(130))
                                                                                  
   6/14 overflow.R: fansi:::size_buff(c(0L, 127L, 128L, 64L, 200L, 1024L))
                                                                                  
   6/14 overflow.R: invisible(fansi:::set_int_max(64))
                                                                                  
   6/14 overflow.R: fansi:::size_buff(c(0L, 32L, 63L, 64L))
                                                                                  
   6/14 overflow.R: fansi:::size_buff(c(0L, 32L, 63L, 65L))
                                                                                  
   6/14 overflow.R: invisible(fansi:::set_int_max(old_max))
                                                                                  
   6/14 overflow.R: dat <- fansi:::size_buff_prot_test()
                                                                                  
   6/14 overflow.R: dat["first", "self"] == dat["smaller 1.0", "self"]
                                                                                  
   6/14 overflow.R: dat["new buff", "prev"] == dat["grow 1.0", "self"]
                                                                                  
   6/14 overflow.R: dat["new buff", "prev"] != dat["new buff", "self"]
                                                                                  
   6/14 overflow.R: dat["smaller 1.1", "self"] == dat["grow 1.0", "self"]
                                                                                  
   6/14 overflow.R: dat["smaller 2.0", "self"] == dat["new buff", "self"]
                                                                                  
   6/14 overflow.R: dat["smaller 2.0", "prev"] == dat["new buff", "prev"]
                                                                                  
   6/14 overflow.R: dat["smaller 2.0", "prev"] == dat["grow 2.0", "prev"]
                                                                                  
   6/14 overflow.R: dat["grow 1.1", "prev"] == dat["grow 2.0", "self"]
                                                                                  
   6/14 overflow.R: dat["grow 2.1", "prev"] == dat["grow 1.1", "self"]
                                                                                  
   6/14 overflow.R: invisible(fansi:::set_int_max(5))
                                                                                  
   6/14 overflow.R: substr_ctl("\033[43mA B", 5, 5)
                                                                                  
   6/14 overflow.R: substr_ctl("12345", 1, 5)
                                                                                  
   6/14 overflow.R: substr_ctl("123456", 1, 6)
                                                                                  
   6/14 overflow.R: fansi:::reset_limits()
                                                                                  
   6/14 overflow.R: old_rlent <- fansi:::set_rlent_max(5)
                                                                                  
   6/14 overflow.R: tabs_as_spaces("A\tB")
                                                                                  
   6/14 overflow.R: new_rlent <- fansi:::set_rlent_max(old_rlent)
                                                                                  
   6/14 overflow.R: fansi:::reset_limits()
                                                                                  
   6/14 overflow.R: tce(.Call(fansi:::FANSI_buff_test_reset))
                                                                                  
   6/14 overflow.R: tce(.Call(fansi:::FANSI_buff_test_copy_overflow))
                                                                                  
   6/14 overflow.R: tce(.Call(fansi:::FANSI_buff_test_mcopy_overflow))
                                                                                  
   6/14 overflow.R: tce(.Call(fansi:::FANSI_buff_test_fill_overflow))
                                                                                  
  
                                                                                  
   7/14 strip.R: 
                                                                                  
   7/14 strip.R: library(fansi)
                                                                                  
   7/14 strip.R: strip_ctl(sprintf("hello %sworld%s", red, end))
                                                                                  
   7/14 strip.R: strip_ctl(sprintf("he%sllo %sworld", red, end))
                                                                                  
   7/14 strip.R: strip_ctl(sprintf("%shello %sworld%s", grn.bg, red, end))
                                                                                  
   7/14 strip.R: strip_ctl(sprintf("%s%shello %sworld%s", grn.bg, inv, red, end))
                                                                                  
   7/14 strip.R: string <- paste("string", format(1:10))
                                                                                  
   7/14 strip.R: string[c(2, 4, 6)] <- paste0(red, string[c(2, 4, 6)], end)
                                                                                  
   7/14 strip.R: strip_ctl(string)
                                                                                  
   7/14 strip.R: strip_sgr(string)
                                                                                  
   7/14 strip.R: strip_sgr(1:3)
                                                                                  
   7/14 strip.R: strip_ctl("hello\033")
                                                                                  
   7/14 strip.R: strip_ctl("hello\033", ctl = c("nl", "c0"))
                                                                                  
   7/14 strip.R: strip_ctl("hello\033[")
                                                                                  
   7/14 strip.R: strip_ctl("hello\033[42")
                                                                                  
   7/14 strip.R: strip_ctl("hello\033[42", ctl = c("all", "csi", "sgr"))
                                                                                  
   7/14 strip.R: strip_ctl("hello\033[31##3m illegal")
                                                                                  
   7/14 strip.R: strip_ctl("hello\033[31##m legal")
                                                                                  
   7/14 strip.R: strip_ctl(1:3)
                                                                                  
   7/14 strip.R: fansi:::process("hello     world")
                                                                                  
   7/14 strip.R: fansi:::process("hello.    world")
                                                                                  
   7/14 strip.R: fansi:::process(c("hello     world", "hello.    world"))
                                                                                  
   7/14 strip.R: fansi:::process("hello.   world?   moon!   wow.")
                                                                                  
   7/14 strip.R: fansi:::process("  hello")
                                                                                  
   7/14 strip.R: fansi:::process("  hello\n  world")
                                                                                  
   7/14 strip.R: fansi:::process("  hello  \n  world")
                                                                                  
   7/14 strip.R: fansi:::process("  hello world\n  ")
                                                                                  
   7/14 strip.R: fansi:::process("hello.   ")
                                                                                  
   7/14 strip.R: fansi:::process("hello!  ")
                                                                                  
   7/14 strip.R: fansi:::process("hello? ")
                                                                                  
   7/14 strip.R: fansi:::process("hello? ")
                                                                                  
   7/14 strip.R: fansi:::process(" \t hello")
                                                                                  
   7/14 strip.R: fansi:::process(" \t\a\r hello")
                                                                                  
   7/14 strip.R: fansi:::process(" \t\a\r hello", ctl = c("all", "c0"))
                                                                                  
   7/14 strip.R: fansi:::process("hello.  \r world.")
                                                                                  
   7/14 strip.R: fansi:::process("hello.  \033[31m world.\033[0m")
                                                                                  
   7/14 strip.R: str1 <- c("hello ", " world")
                                                                                  
   7/14 strip.R: fansi:::process(str1)
                                                                                  
   7/14 strip.R: str1
                                                                                  
   7/14 strip.R: fansi:::process("hello.\n\nworld")
                                                                                  
   7/14 strip.R: fansi:::process("hello.\n\n\nworld")
                                                                                  
   7/14 strip.R: fansi:::process("hello.\n\n\n\nworld")
                                                                                  
   7/14 strip.R: fansi:::process("hello.\n  \nworld")
                                                                                  
   7/14 strip.R: fansi:::process("hello.\n\t\nworld")
                                                                                  
   7/14 strip.R: fansi:::process("hello.\n\t\n\tworld")
                                                                                  
   7/14 strip.R: fansi:::process("hello.\n \t \n \t world")
                                                                                  
   7/14 strip.R: fansi:::process("hello.\n\nworld\n\n")
                                                                                  
   7/14 strip.R: fansi:::process("hello.\n\nworld\n\n  ")
                                                                                  
   7/14 strip.R: fansi:::process("\n\nhello.\n\t\n\tworld\n\t\n woohoo\n ")
                                                                                  
   7/14 strip.R: fansi:::process("\n \t\nhello.\n\t\n\tworld\n\t\n woohoo\n ")
                                                                                  
   7/14 strip.R: fansi:::process("hello.\n\033[44m\nworld")
                                                                                  
   7/14 strip.R: fansi:::process("hello.\n\033[44m\n \t\nworld")
                                                                                  
   7/14 strip.R: fansi:::process("hello.\033[44m\n\n \t\nworld")
                                                                                  
   7/14 strip.R: fansi:::process("hello.\n\n \t\n\033[44mworld")
                                                                                  
   7/14 strip.R: fansi:::process("hello.\n\n\033[44m \t\nworld")
                                                                                  
   7/14 strip.R: fansi:::process("hello \033[44m world")
                                                                                  
   7/14 strip.R: fansi:::process("hello. \033[44m world")
                                                                                  
   7/14 strip.R: fansi:::process("hello\033[44m\033[31m world")
                                                                                  
   7/14 strip.R: fansi:::process("hello\033[44m\033[31m\n\nworld")
                                                                                  
   7/14 strip.R: fansi:::process("hello\n\033[44m\033[31m\nworld")
                                                                                  
   7/14 strip.R: fansi:::process("hello\n\n\033[44m\033[31mworld")
                                                                                  
   7/14 strip.R: fansi:::process("hello\033[44m\033[31d world")
                                                                                  
   7/14 strip.R: fansi:::process("hello \033[44m\033[31d world")
                                                                                  
   7/14 strip.R: fansi:::process("hello \033[44m \033[31d world")
                                                                                  
   7/14 strip.R: fansi:::process("hello\033[44m\033[31d world", ctl = c("all", 
                                                                                  
   7/14 strip.R: fansi:::process("hello \033[44m\033[31d world", ctl = c("all", 
                                                                                  
   7/14 strip.R: fansi:::process("hello \033[44m \033[31d world", ctl = c("all", 
                                                                                  
   7/14 strip.R: fansi:::process("hello\033[44m\a world", ctl = c("all"))
                                                                                  
   7/14 strip.R: fansi:::process("hello\033[44m\a world", ctl = c("all", "c0"))
                                                                                  
   7/14 strip.R: fansi:::process("hello.  \033[44m\a world", ctl = c("all"))
                                                                                  
   7/14 strip.R: fansi:::process("hello.  \033[44m\a world", ctl = c("all", "c0"))
                                                                                  
   7/14 strip.R: fansi:::process("hello. \033[44m \a world", ctl = c("all"))
                                                                                  
   7/14 strip.R: fansi:::process("hello. \033[44m \a world", ctl = c("all", "c0"))
                                                                                  
   7/14 strip.R: fansi:::process("hello.\n\033[44m \a world", ctl = c("all"))
                                                                                  
   7/14 strip.R: fansi:::process("hello.\n\033[44m \a world", ctl = c("all", "c0")
                                                                                  
   7/14 strip.R: fansi:::process("hello.\n\033[44m\n\a world", ctl = c("all"))
                                                                                  
   7/14 strip.R: fansi:::process("hello.\n\033[44m\n\a world", ctl = c("all", 
                                                                                  
   7/14 strip.R: fansi:::process("hello.\n\033[44m\a\n world", ctl = c("all"))
                                                                                  
   7/14 strip.R: fansi:::process("hello.\n\033[44m\a\n world", ctl = c("all", 
                                                                                  
   7/14 strip.R: string.0 <- "hello\033k\033[45p world\n\033[31mgoodbye\a moon"
                                                                                  
   7/14 strip.R: strip_ctl(string.0)
                                                                                  
   7/14 strip.R: strip_ctl(string.0, "sgr")
                                                                                  
   7/14 strip.R: strip_ctl(string.0, c("nl", "c0", "sgr", "csi", "esc"))
                                                                                  
   7/14 strip.R: strip_ctl(string.0, "all")
                                                                                  
   7/14 strip.R: strip_ctl(string.0, c("c0", "esc"))
                                                                                  
   7/14 strip.R: strip_ctl(string.0, c("nl"))
                                                                                  
   7/14 strip.R: strip_ctl(string.0, character())
                                                                                  
   7/14 strip.R: strip_ctl(string.0, c("all", "c0", "esc"))
                                                                                  
   7/14 strip.R: strip_ctl(string.0, c("all", "sgr"))
                                                                                  
   7/14 strip.R: string.1 <- "hello\033\033[45p world\n\033[31#3mgoodbye\a moon"
                                                                                  
   7/14 strip.R: strip_ctl(string.1, c("nl", "sgr", "esc"))
                                                                                  
   7/14 strip.R: strip_ctl(string.1, c("csi"))
                                                                                  
   7/14 strip.R: strip_ctl(string.1, "all")
                                                                                  
   7/14 strip.R: strip_ctl(string.1, c("c0", "nl"))
                                                                                  
   7/14 strip.R: strip_ctl(string.1, c("all", "sgr"))
                                                                                  
   7/14 strip.R: strip_sgr(string.1)
                                                                                  
   7/14 strip.R: strip_ctl(c(string.0, string.1, "hello"), warn = FALSE)
                                                                                  
   7/14 strip.R: string.2 <- "\033k\033[45p\a\n\033[31mgoodbye moon"
                                                                                  
   7/14 strip.R: strip_ctl(string.2)
                                                                                  
   7/14 strip.R: strip_ctl(string.2, "sgr")
                                                                                  
   7/14 strip.R: string.3 <- "hello world\033k\033[45p\a\n\033[31m"
                                                                                  
   7/14 strip.R: strip_ctl(string.3)
                                                                                  
   7/14 strip.R: strip_ctl(string.3, "sgr")
                                                                                  
   7/14 strip.R: strip_ctl("hello\033[41mworld", warn = 1:3)
                                                                                  
   7/14 strip.R: strip_ctl("hello\033[41mworld", ctl = 1:3)
                                                                                  
   7/14 strip.R: strip_ctl("hello\033[41mworld", ctl = "bananas")
                                                                                  
   7/14 strip.R: strip_ctl("hello\033[41mworld", strip = "sgr")
                                                                                  
   7/14 strip.R: strip_sgr("hello\033[41mworld", warn = 1:3)
                                                                                  
  
                                                                                  
   8/14 strsplit.R: 
                                                                                  
   8/14 strsplit.R: library(fansi)
                                                                                  
   8/14 strsplit.R: str.0 <- c("hello world", "goodbye moon")
                                                                                  
   8/14 strsplit.R: identical(strsplit(str.0[1], " "), strsplit_ctl(str.0[1], " ")
                                                                                  
   8/14 strsplit.R: identical(strsplit(str.0, "h"), strsplit_ctl(str.0, "h"))
                                                                                  
   8/14 strsplit.R: identical(strsplit(str.0, "m"), strsplit_ctl(str.0, "m"))
                                                                                  
   8/14 strsplit.R: identical(strsplit(str.0, "g"), strsplit_ctl(str.0, "g"))
                                                                                  
   8/14 strsplit.R: str.1 <- "hello\033[31m world"
                                                                                  
   8/14 strsplit.R: str.2 <- "\033[42m hello\033[m world, Goodbye Moon"
                                                                                  
   8/14 strsplit.R: strsplit_ctl(str.1, " ")
                                                                                  
   8/14 strsplit.R: strsplit_ctl(str.1, "hello")
                                                                                  
   8/14 strsplit.R: strsplit_ctl(str.2, ", ")
                                                                                  
   8/14 strsplit.R: strsplit_ctl(c(str.1, "hello world", str.2), "hello")
                                                                                  
   8/14 strsplit.R: strsplit_ctl("hello\033[31m world", "")
                                                                                  
   8/14 strsplit.R: strsplit_ctl("hello\033[31m world", "[", fixed = TRUE)
                                                                                  
   8/14 strsplit.R: strsplit_ctl("hello\033[31m world", NA_character_)
                                                                                  
   8/14 strsplit.R: strsplit_ctl("hello\033[31m world", character())
                                                                                  
   8/14 strsplit.R: strsplit_ctl("hello\033[31m world", letters)
                                                                                  
   8/14 strsplit.R: splits <- c("h", "e", "o", "llo", "x", "hello")
                                                                                  
   8/14 strsplit.R: str.spl1 <- strsplit_ctl(rep("hello", 6), splits)
                                                                                  
   8/14 strsplit.R: str.spl2 <- strsplit(rep("hello", 6), splits)
                                                                                  
   8/14 strsplit.R: identical(str.spl1, str.spl2)
                                                                                  
   8/14 strsplit.R: str.spl3 <- strsplit_ctl(rep("\033[31mhello\033[39m", 6), spli
                                                                                  
   8/14 strsplit.R: str.spl3
                                                                                  
   8/14 strsplit.R: identical(lapply(str.spl3, strip_ctl), str.spl2)
                                                                                  
   8/14 strsplit.R: strsplit_ctl("", " ")
                                                                                  
   8/14 strsplit.R: strsplit_ctl("", "")
                                                                                  
   8/14 strsplit.R: strsplit_ctl(c("\033[31mab\033[0m", ""), "")
                                                                                  
   8/14 strsplit.R: strsplit_ctl("hello", NULL)
                                                                                  
   8/14 strsplit.R: str.sp14 <- c("\033[31mhello\nworld", "\ngoodbye\nmoon")
                                                                                  
   8/14 strsplit.R: strsplit_ctl(str.sp14, "\n")
                                                                                  
   8/14 strsplit.R: strsplit_sgr(str.sp14, "\n")
                                                                                  
   8/14 strsplit.R: strsplit_ctl(str.sp14, "\n", ctl = c("all", "nl"))
                                                                                  
   8/14 strsplit.R: str.bytes <- "Þ"
                                                                                  
   8/14 strsplit.R: Encoding(str.bytes) <- "bytes"
                                                                                  
   8/14 strsplit.R: strsplit_ctl(str.bytes, "")
                                                                                  
   8/14 strsplit.R: strsplit_ctl(str.2, NA)
                                                                                  
   8/14 strsplit.R: strsplit_ctl(str.2, "", warn = NULL)
                                                                                  
   8/14 strsplit.R: strsplit_ctl(str.2, "", fixed = NA_integer_)
                                                                                  
   8/14 strsplit.R: strsplit_ctl(str.2, "", perl = NA_integer_)
                                                                                  
   8/14 strsplit.R: strsplit_ctl(str.2, "", useBytes = NA_integer_)
                                                                                  
   8/14 strsplit.R: strsplit_ctl(str.2, "", term.cap = 1:3)
                                                                                  
   8/14 strsplit.R: strsplit_ctl(str.2, "", term.cap = "bananas")
                                                                                  
   8/14 strsplit.R: strsplit_ctl(str.2, "", ctl = 1:3)
                                                                                  
   8/14 strsplit.R: strsplit_ctl(str.2, "", ctl = "bananas")
                                                                                  
   8/14 strsplit.R: strsplit_ctl("a b", str.bytes)
                                                                                  
   8/14 strsplit.R: strsplit_ctl("hello\nworld", "\n")
                                                                                  
   8/14 strsplit.R: strsplit_sgr("hello\033[31mworld", "\033[31m", fixed = TRUE)
                                                                                  
   8/14 strsplit.R: strsplit_ctl("a\nb", "\n", ctl = c("all", "nl"))
                                                                                  
   8/14 strsplit.R: strsplit_sgr("hello\nworld", "\n")
                                                                                  
  
                                                                                  
   9/14 substr.R: 
                                                                                  
   9/14 substr.R: library(fansi)
                                                                                  
   9/14 substr.R: str01 <- sprintf("hello %sworld%s how", red, inv)
                                                                                  
   9/14 substr.R: substr_ctl(str01, 1, 7)
                                                                                  
   9/14 substr.R: substr_ctl(str01, 7, 11)
                                                                                  
   9/14 substr.R: substr_ctl(str01, 8, 10)
                                                                                  
   9/14 substr.R: substr_ctl(str01, 8, 14)
                                                                                  
   9/14 substr.R: str02 <- sprintf("%shello world %sit's a %scrazy world%s out the
                                                                                  
   9/14 substr.R: term.cap <- c("bright", "256", "truecolor")
                                                                                  
   9/14 substr.R: substr_ctl(str02, 1, 7)
                                                                                  
   9/14 substr.R: substr_ctl(str02, 10, 20)
                                                                                  
   9/14 substr.R: substr_ctl(str02, 15, 40, term.cap = term.cap)
                                                                                  
   9/14 substr.R: substr_ctl(str02, 35, 60, term.cap = term.cap)
                                                                                  
   9/14 substr.R: str03 <- sprintf("hello %sworld", rgb.und)
                                                                                  
   9/14 substr.R: substr_ctl(str03, 1, 12, term.cap = term.cap)
                                                                                  
   9/14 substr.R: str04 <- sprintf("hello%s%s world%s%s yowza", red, inv, grn.bg, 
                                                                                  
   9/14 substr.R: substr_ctl(str04, 5, 7, term.cap = term.cap)
                                                                                  
   9/14 substr.R: substr_ctl(str04, 5, 13, term.cap = term.cap)
                                                                                  
   9/14 substr.R: str.m.0 <- paste0("\033[44m", c("hello world", rep("goodbye \033
                                                                                  
   9/14 substr.R: substr_ctl(str.m.0, (1:4) * 2, (3:8) * 2)
                                                                                  
   9/14 substr.R: substr2_ctl("yo\tworld", 1, 8, tabs.as.spaces = TRUE)
                                                                                  
   9/14 substr.R: substr_ctl("hello", 0, -1)
                                                                                  
   9/14 substr.R: substr_ctl("hello", 0, 0)
                                                                                  
   9/14 substr.R: substr_ctl(rep("hello", 2), c(1, 0), c(1, 1))
                                                                                  
   9/14 substr.R: substr_ctl(character(), 1, 1)
                                                                                  
   9/14 substr.R: substr_ctl(list("hello", list("goodbye", "there")), 1, 2)
                                                                                  
   9/14 substr.R: substr_ctl(structure(list(list("goodbye", "there")), class = "fo
                                                                                  
   9/14 substr.R: str.0 <- "\033[31mred\033[m"
                                                                                  
   9/14 substr.R: str.1 <- "\033[31mred\033[42m"
                                                                                  
   9/14 substr.R: str.2 <- c(str.0, str.1)
                                                                                  
   9/14 substr.R: substr_ctl(str.2, 0, 0)
                                                                                  
   9/14 substr.R: substr_ctl(str.2, 1, 1)
                                                                                  
   9/14 substr.R: substr_ctl(str.2, 3, 3)
                                                                                  
   9/14 substr.R: substr_ctl(str.2, 4, 4)
                                                                                  
   9/14 substr.R: substr_ctl(str.2, 3, 4)
                                                                                  
   9/14 substr.R: substr_ctl(str.2, 3, 5)
                                                                                  
   9/14 substr.R: substr_ctl(str.2, 3, 4, terminate = FALSE)
                                                                                  
   9/14 substr.R: substr_ctl(str.2, 3, 5, terminate = FALSE)
                                                                                  
   9/14 substr.R: substr_ctl(str.2, -1, 2)
                                                                                  
   9/14 substr.R: substr_ctl(str.2, -2, -1)
                                                                                  
   9/14 substr.R: substr_ctl(str.2, 4, 1)
                                                                                  
   9/14 substr.R: substr_ctl(str.2, 4, 1, terminate = FALSE)
                                                                                  
   9/14 substr.R: substr_ctl(str.2, 4, 1, carry = "\033[44m")
                                                                                  
   9/14 substr.R: substr_ctl(str.2, 4, 1, carry = "\033[44m", terminate = FALSE)
                                                                                  
   9/14 substr.R: substr_ctl("hello", 5, 5)
                                                                                  
   9/14 substr.R: substr_ctl("hello", 6, 6)
                                                                                  
   9/14 substr.R: substr_ctl("hello", 7, 6)
                                                                                  
   9/14 substr.R: substr_ctl("hello", 6, 7)
                                                                                  
   9/14 substr.R: substr_ctl("hello", 7, 5)
                                                                                  
   9/14 substr.R: substr_ctl("hello", 0, 6)
                                                                                  
   9/14 substr.R: substr_ctl("hello", 0, 5)
                                                                                  
   9/14 substr.R: substr_ctl("hello", 1, 6)
                                                                                  
   9/14 substr.R: substr_ctl("hello", "1", 1)
                                                                                  
   9/14 substr.R: substr_ctl("hello", 1, "1")
                                                                                  
   9/14 substr.R: substr_ctl("hello", "a", "b")
                                                                                  
   9/14 substr.R: substr_ctl("hello", 1, NA_integer_)
                                                                                  
   9/14 substr.R: substr_ctl("hello", NA_integer_, 1)
                                                                                  
   9/14 substr.R: substr_ctl(rep("\033[31mhello\033[m", 3), c(3, 2, 1), c(3, 4, 
                                                                                  
   9/14 substr.R: str.3 <- structure("fu\033[42mba\033[0mr", class = "foo", at = "
                                                                                  
   9/14 substr.R: substr_ctl(str.3, 2, 3)
                                                                                  
   9/14 substr.R: substr_ctl(str.2, 2, 6, ctl = c("all", "sgr"))
                                                                                  
   9/14 substr.R: substr_ctl(str.2, 8, 10, ctl = c("all", "sgr"))
                                                                                  
   9/14 substr.R: substr2_ctl(rep("o\033[31m ", 2), 1:2, 1:2)
                                                                                  
   9/14 substr.R: substr_ctl("hello\033[41b", 1, 5)
                                                                                  
   9/14 substr.R: substr_ctl("hello\033[41b", 1, 6)
                                                                                  
   9/14 substr.R: substr_ctl("\033[1p\033[31mA", 1, 1)
                                                                                  
   9/14 substr.R: substr_ctl("\033[1p\033[31mA", 0, 1)
                                                                                  
   9/14 substr.R: substr_ctl("\033[1p\033[31mA", -1, 1)
                                                                                  
   9/14 substr.R: substr_ctl("\033[31m\033[1pA", 1, 1)
                                                                                  
   9/14 substr.R: substr_ctl("\033[31m\033[1pA", 0, 1)
                                                                                  
   9/14 substr.R: substr_ctl("\033[31m\033[1pA", -1, 1)
                                                                                  
   9/14 substr.R: substr_ctl("\033[41m\033[1mA", 1, 1)
                                                                                  
   9/14 substr.R: substr_ctl("\033[41m\033[1mA", 0, 1)
                                                                                  
   9/14 substr.R: substr_ctl("\033[41m\033[1mA", -1, 1)
                                                                                  
   9/14 substr.R: str.4 <- c("A\033[45mB", "A")
                                                                                  
   9/14 substr.R: substr_ctl(str.4, 1, 1, carry = TRUE, terminate = FALSE)
                                                                                  
   9/14 substr.R: substr_ctl("a\033[42", 1, 1)
                                                                                  
   9/14 substr.R: substr_ctl("a\033[42", 1, 2)
                                                                                  
   9/14 substr.R: substr_ctl("a\033[42", 1, 2, terminate = FALSE)
                                                                                  
   9/14 substr.R: substr_ctl("a\033]8;;END", 1, 1)
                                                                                  
   9/14 substr.R: substr_ctl("a\033]8;;END", 1, 2)
                                                                                  
   9/14 substr.R: substr_ctl("a\033]8;;END", 1, 2, terminate = FALSE)
                                                                                  
   9/14 substr.R: substr_ctl("a\033];;END", 1, 1)
                                                                                  
   9/14 substr.R: substr_ctl("a\033];;END", 1, 2)
                                                                                  
   9/14 substr.R: substr_ctl("a\033[38;5mb", 1, 2, term.cap = "all")
                                                                                  
   9/14 substr.R: substr_ctl("a\033[38;2mb", 1, 2, term.cap = "all")
                                                                                  
   9/14 substr.R: substr_ctl("a\033[38;2;255mb", 1, 2, term.cap = "all")
                                                                                  
   9/14 substr.R: substr_ctl("a\033[38;2;255;255mb", 1, 2, term.cap = "all")
                                                                                  
   9/14 substr.R: substr_ctl("\033[45pA", 1, 1, warn = FALSE)
                                                                                  
   9/14 substr.R: substr_ctl("\033[45pA", 0, 1, warn = FALSE)
                                                                                  
   9/14 substr.R: substr_ctl(c("AB", NA, "CD"), 1, 2)
                                                                                  
   9/14 substr.R: substr_ctl(c("AB", NA, "CD"), 1, 2, carry = TRUE)
                                                                                  
   9/14 substr.R: substr_ctl(c("AB", "CD"), c(NA, 1), 2)
                                                                                  
   9/14 substr.R: substr_ctl(c("AB", "CD"), c(NA, 1), 2, carry = TRUE)
                                                                                  
   9/14 substr.R: substr_ctl("\033[38;5;4mA", 1, 1, term.cap = "bright")
                                                                                  
   9/14 substr.R: substr_ctl("\033[38;5;4mA", 1, 1, term.cap = c("bright", "old"))
                                                                                  
   9/14 substr.R: substr_ctl("\033[38;5;4mA", 1, 1, term.cap = c("all", "256"))
                                                                                  
   9/14 substr.R: substr_ctl("\033[38;5;4mA", 1, 1, term.cap = c("all", "256", 
                                                                                  
   9/14 substr.R: substr_ctl("\033[38;5;4mA", 1, 1, term.cap = c("256"))
                                                                                  
   9/14 substr.R: substr_ctl("\033[38;5;4mA", 1, 1, term.cap = c("256", "old"))
                                                                                  
   9/14 substr.R: substr_ctl("\033[38;2;1;1;1mA", 1, 1, term.cap = "bright")
                                                                                  
   9/14 substr.R: substr_ctl("\033[38;2;1;1;1mA", 1, 1, term.cap = c("bright", 
                                                                                  
   9/14 substr.R: substr_ctl("\033[38;2;1;1;1mA", 1, 1, term.cap = c("all", "truec
                                                                                  
   9/14 substr.R: substr_ctl("\033[38;2;1;1;1mA", 1, 1, term.cap = c("all", "truec
                                                                                  
   9/14 substr.R: substr_ctl("\033[38;2;1;1;1mA", 1, 1, term.cap = c("truecolor"))
                                                                                  
   9/14 substr.R: substr_ctl("\033[38;2;1;1;1mA", 1, 1, term.cap = c("truecolor", 
                                                                                  
   9/14 substr.R: substr_ctl("\033[107mA", 1, 1, term.cap = "256")
                                                                                  
   9/14 substr.R: substr_ctl("\033[107mA", 1, 1, term.cap = c("256", "old"))
                                                                                  
   9/14 substr.R: substr_ctl("\033[107mA", 1, 1, term.cap = c("all", "bright"))
                                                                                  
   9/14 substr.R: substr_ctl("\033[107mA", 1, 1, term.cap = c("all", "bright", 
                                                                                  
   9/14 substr.R: substr_ctl("\033[107mA", 1, 1, term.cap = c("bright"))
                                                                                  
   9/14 substr.R: substr_ctl("\033[107mA", 1, 1, term.cap = c("bright", "old"))
                                                                                  
   9/14 substr.R: str.5 <- c("\033[48;2;100;100;100mAB", "\033[48;2;100;100;100mCD
                                                                                  
   9/14 substr.R: substr_ctl(str.5, 2, 2, terminate = FALSE, carry = TRUE, term.ca
                                                                                  
   9/14 substr.R: str.5a <- c("\033[48;2;100;100;100mAB", "\033[48;2;100;100;101mC
                                                                                  
   9/14 substr.R: substr_ctl(str.5a, 2, 2, terminate = FALSE, carry = TRUE, term.c
                                                                                  
   9/14 substr.R: tryCatch(substr_ctl("\033[38;6;31mworld\033[m", 2, 3), warning =
                                                                                  
   9/14 substr.R: suppressWarnings(substr_ctl("\033[38;6;31mworld\033[m", 2, 3))
                                                                                  
   9/14 substr.R: tryCatch(substr_ctl("\033[31mhello\033[38;5;256m world\033[m", 
                                                                                  
   9/14 substr.R: suppressWarnings(substr_ctl("\033[31mhello\033[38;5;256m world\0
                                                                                  
   9/14 substr.R: substr_ctl("\033[20mworld\033[m", 2, 3)
                                                                                  
   9/14 substr.R: substr_ctl("\033[21mworld\033[m", 2, 3)
                                                                                  
   9/14 substr.R: substr_ctl(rep("\033[26mhello \033[50mworld\033[m", 2), c(2, 
                                                                                  
   9/14 substr.R: substr_ctl(rep("\033[61mwor\033[65mld\033[m", 2), c(2, 4), c(3, 
                                                                                  
   9/14 substr.R: tryCatch(substr_ctl("\033[56mworld\033[m", 2, 3), warning = cond
                                                                                  
   9/14 substr.R: suppressWarnings(substr_ctl("\033[56mworld\033[m", 2, 3))
                                                                                  
   9/14 substr.R: tryCatch(substr_ctl("\033[66mworld\033[m", 2, 3), warning = cond
                                                                                  
   9/14 substr.R: tryCatch(substr_ctl("\033[200mworld\033[m", 2, 3), warning = con
                                                                                  
   9/14 substr.R: substr_ctl(rep("\033[91mwor\033[101mld\033[m", 2), c(2, 4), c(3,
                                                                                  
   9/14 substr.R: hello2.0 <- "\033[42m\thello world\033[m foobar"
                                                                                  
   9/14 substr.R: substr2_ctl(hello2.0, 1, 2, warn = NULL)
                                                                                  
   9/14 substr.R: substr2_ctl(hello2.0, 1, 2, tabs.as.spaces = 1)
                                                                                  
   9/14 substr.R: substr2_ctl(hello2.0, 1, 2, tabs.as.spaces = NA)
                                                                                  
   9/14 substr.R: substr2_ctl(hello2.0, 1, 2, tab.stops = -(1:3))
                                                                                  
   9/14 substr.R: substr2_ctl(hello2.0, 1, 2, tab.stops = 0)
                                                                                  
   9/14 substr.R: substr2_ctl(hello2.0, 1, 2, round = "bananas")
                                                                                  
   9/14 substr.R: substr2_ctl(hello2.0, 1, 2, term.cap = 0)
                                                                                  
   9/14 substr.R: substr2_ctl(hello2.0, 1, 2, term.cap = "bananas")
                                                                                  
   9/14 substr.R: substr2_ctl(hello2.0, 1, 2, type = "bananas")
                                                                                  
   9/14 substr.R: substr2_ctl(hello2.0, 1, 2, ctl = "bananas")
                                                                                  
   9/14 substr.R: substr2_ctl(hello2.0, 1, 2, ctl = 0)
                                                                                  
   9/14 substr.R: substr_sgr("\033[31;42mhello world", 2, 4)
                                                                                  
   9/14 substr.R: substr_sgr("\033[31m\033[42mhello world", 2, 4)
                                                                                  
   9/14 substr.R: tryCatch(substr_sgr("\033[31;42!mhello world", 2, 4), warning = 
                                                                                  
   9/14 substr.R: substr_sgr("\033[55;38l\033[31mhello world", 2, 4, warn = FALSE)
                                                                                  
   9/14 substr.R: substr_sgr("\033[31m\033[55;38lhello world", 2, 4, warn = FALSE)
                                                                                  
   9/14 substr.R: substr_sgr("hello \033[31m\033[55;38lworld", 7, 9, warn = FALSE)
                                                                                  
   9/14 substr.R: substr_ctl("\033[55;38l\033[31mhello world", 2, 4, warn = FALSE)
                                                                                  
   9/14 substr.R: substr_ctl("\033[31m\033[55;38lhello world", 2, 4, warn = FALSE)
                                                                                  
   9/14 substr.R: substr_ctl("hello \033[31m\033[55;38lworld", 7, 9, warn = FALSE)
                                                                                  
   9/14 substr.R: substr_ctl("hello\033[55;38l \033[31mworld", 4, 7, warn = FALSE)
                                                                                  
   9/14 substr.R: substr_sgr("ab\n\tcd\n", 3, 6, warn = FALSE)
                                                                                  
   9/14 substr.R: substr_sgr("ab\n\033[31m\tcd\n", 3, 6, warn = FALSE)
                                                                                  
   9/14 substr.R: substr_ctl("ab\n\033[31m\tcd\n", 3, 6, warn = FALSE, ctl = c("al
                                                                                  
   9/14 substr.R: substr_ctl("ab\n\033[31m\tcd\n", 3, 6, warn = FALSE, ctl = c("al
                                                                                  
   9/14 substr.R: substr_sgr(c("\a", "b", "c"), 1, 1)
                                                                                  
   9/14 substr.R: substr_sgr(c("a", "\b", "c"), 1, 1)
                                                                                  
   9/14 substr.R: substr_sgr(c("a", "b", "\ac"), 1, 1)
                                                                                  
   9/14 substr.R: txt0 <- "ABCD"
                                                                                  
   9/14 substr.R: identical(`substr_ctl<-`(txt0, 2, 2, value = "#"), `substr<-`(tx
                                                                                  
   9/14 substr.R: identical(`substr_ctl<-`(txt0, 2, 2, value = "#?"), `substr<-`(t
                                                                                  
   9/14 substr.R: identical(`substr_ctl<-`(txt0, 2, 3, value = "#?-"), `substr<-`(
                                                                                  
   9/14 substr.R: identical(`substr_ctl<-`(txt0, 0, 0, value = "#"), `substr<-`(tx
                                                                                  
   9/14 substr.R: identical(`substr_ctl<-`(txt0, 2, 1, value = "#"), `substr<-`(tx
                                                                                  
   9/14 substr.R: identical(`substr_ctl<-`(txt0, 10, 12, value = "#"), `substr<-`(
                                                                                  
   9/14 substr.R: identical(`substr_ctl<-`(txt0, 2, 3, value = "#"), `substr<-`(tx
                                                                                  
   9/14 substr.R: identical(`substr_ctl<-`(txt0, 1, 5, value = "#"), `substr<-`(tx
                                                                                  
   9/14 substr.R: identical(`substr_ctl<-`(txt0, 0, 5, value = "#"), `substr<-`(tx
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt0, 0, -1, value = "#")
                                                                                  
   9/14 substr.R: rep1 <- c("_", "_.")
                                                                                  
   9/14 substr.R: rep2 <- c("_", "_.", "...")
                                                                                  
   9/14 substr.R: identical(`substr_ctl<-`(txt0, 2, 3, value = rep1), `substr<-`(t
                                                                                  
   9/14 substr.R: identical(`substr_ctl<-`(txt0, 2, 3, value = rep2), `substr<-`(t
                                                                                  
   9/14 substr.R: txt1 <- c("AB", "CDE")
                                                                                  
   9/14 substr.R: identical(`substr_ctl<-`(txt1, 2, 3, value = "_"), `substr<-`(tx
                                                                                  
   9/14 substr.R: identical(`substr_ctl<-`(txt1, 2, 3, value = rep1), `substr<-`(t
                                                                                  
   9/14 substr.R: identical(`substr_ctl<-`(txt1, 2, 3, value = rep2), `substr<-`(t
                                                                                  
   9/14 substr.R: txt2 <- c("AB", "CDE", "EFGH")
                                                                                  
   9/14 substr.R: identical(`substr_ctl<-`(txt2, 2, 3, value = "_"), `substr<-`(tx
                                                                                  
   9/14 substr.R: identical(`substr_ctl<-`(txt2, 2, 3, value = rep1), `substr<-`(t
                                                                                  
   9/14 substr.R: identical(`substr_ctl<-`(txt2, 2, 3, value = rep2), `substr<-`(t
                                                                                  
   9/14 substr.R: txt3a <- txt3b <- c("ABC", "ABC")
                                                                                  
   9/14 substr.R: substr(txt3a[2], 2, 2) <- "_"
                                                                                  
   9/14 substr.R: substr_ctl(txt3b[2], 2, 2) <- "_"
                                                                                  
   9/14 substr.R: identical(txt3a, txt3b)
                                                                                  
   9/14 substr.R: identical(`substr_ctl<-`(txt0, 2, 3, value = NA_character_), 
                                                                                  
   9/14 substr.R: txt.na <- NA_character_
                                                                                  
   9/14 substr.R: identical(`substr_ctl<-`(txt.na, 1, 2, value = "AB"), `substr<-`
                                                                                  
   9/14 substr.R: txt1 <- "\033[33mABCD"
                                                                                  
   9/14 substr.R: txt2 <- "\033[33mA\033[44mBCD"
                                                                                  
   9/14 substr.R: txt3 <- "\033[33mA\033[44mBC\033[1mD"
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt1, 2, 2, value = "#")
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt1, 2, 3, value = "#?-")
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt1, 2, 3, value = "#\033[32m?-")
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt1, 2, 3, value = "#\033[32m?-\033[0m")
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt1, 2, 3, value = "#\033[0m?-")
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt2, 2, 3, value = "#\033[32m?-")
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt2, 2, 3, value = "#\033[32m?-\033[0m")
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt2, 2, 3, value = "#\033[0m?-")
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt3, 2, 3, value = "#\033[32m?-")
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt3, 2, 3, value = "#\033[32m?-\033[0m")
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt3, 2, 3, value = "#\033[0m?-")
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt2, 2, 2, terminate = FALSE, value = "#")
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt2, 2, 3, terminate = FALSE, value = "#\033[32m
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt2, 2, 3, terminate = FALSE, value = "#\033[32m
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt2, 2, 3, terminate = FALSE, value = "#\033[0m?
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt1, 2, 3, terminate = FALSE, value = "#\033[0m?
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt1, 2, 3, terminate = FALSE, value = "#\033[0m\
                                                                                  
   9/14 substr.R: txt4 <- c(txt2, txt0, "\033[39mABCD")
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt4, 2, 3, value = "#")
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt4, 2, 3, value = c("#", "?"))
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt4, 2, 3, value = c("#", "?", "$"))
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt4, 2, 2, carry = TRUE, value = "#")
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt4, 2, 3, carry = TRUE, value = "#\033[32m?-")
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt4, 2, 3, carry = TRUE, value = "#\033[42m?-\03
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt4, 2, 3, carry = TRUE, value = "#\033[0m?-")
                                                                                  
   9/14 substr.R: rep4 <- c("\033[32m_\033[45m", ".-", "\033[39m__")
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt4, 2, 3, carry = TRUE, value = rep4)
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt4, 2, 2, terminate = FALSE, carry = TRUE, valu
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt4, 2, 3, terminate = FALSE, carry = TRUE, valu
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt4, 2, 3, terminate = FALSE, carry = TRUE, valu
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt4, 2, 3, terminate = FALSE, carry = TRUE, valu
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt4, 2, 3, terminate = FALSE, carry = TRUE, valu
                                                                                  
   9/14 substr.R: txt5 <- c("ABD", "DFG")
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt5, 2, 2, value = ".\033[45m", carry = TRUE, 
                                                                                  
   9/14 substr.R: txt6 <- "A123456789B"
                                                                                  
   9/14 substr.R: `substr2_ctl<-`(txt6, 2, 9, value = "\t", tabs.as.spaces = TRUE)
                                                                                  
   9/14 substr.R: `substr2_ctl<-`(txt6, 2, 3, value = "\t", tabs.as.spaces = TRUE)
                                                                                  
   9/14 substr.R: `substr2_ctl<-`(txt6, 2, 10, value = "\t", tabs.as.spaces = TRUE
                                                                                  
   9/14 substr.R: txt7a <- "os"
                                                                                  
   9/14 substr.R: txt7b <- "sos"
                                                                                  
   9/14 substr.R: txt7c <- "so"
                                                                                  
   9/14 substr.R: Encoding(`substr_ctl<-`(txt7a, 1, 1, value = ""))
                                                                                  
   9/14 substr.R: Encoding(`substr_ctl<-`(txt7a, 1, 1, value = "s"))
                                                                                  
   9/14 substr.R: Encoding(`substr_ctl<-`(txt7a, 2, 2, value = ""))
                                                                                  
   9/14 substr.R: Encoding(`substr_ctl<-`(txt7a, 2, 2, value = "s"))
                                                                                  
   9/14 substr.R: Encoding(`substr_ctl<-`(txt7b, 2, 2, value = ""))
                                                                                  
   9/14 substr.R: Encoding(`substr_ctl<-`(txt7b, 2, 2, value = "s"))
                                                                                  
   9/14 substr.R: Encoding(`substr_ctl<-`(txt7c, 3, 3, value = ""))
                                                                                  
   9/14 substr.R: Encoding(`substr_ctl<-`(txt7c, 3, 3, value = "s"))
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt2, 1, 3, terminate = FALSE, value = "#\033[32m
                                                                                  
   9/14 substr.R: txt8 <- "\033[32mAB\033[45m"
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt8, 1, 2, value = "12")
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt8, 1, 2, value = "12", terminate = FALSE)
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt8, 1, 3, value = "12")
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt8, 1, 3, value = "1")
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt8, 1, 3, value = "")
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt8, 1, 3, value = "123")
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt8, 0, 2, value = "12")
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt8, 0, 3, value = "12")
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt8, 1, 3, value = "\033[1m", terminate = FALSE)
                                                                                  
   9/14 substr.R: tce(`substr_ctl<-`(txt8, 1, 3, value = "A", carry = "\033[41m"))
                                                                                  
   9/14 substr.R: lat <- "façile"
                                                                                  
   9/14 substr.R: Encoding(lat) <- "latin1"
                                                                                  
   9/14 substr.R: tce(`substr_ctl<-`(lat, 1, 3, value = "ABC"))
                                                                                  
   9/14 substr.R: txt.na2 <- c("AB", NA, "BC")
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt.na2, 1, 1, value = "#")
                                                                                  
   9/14 substr.R: txt.nona <- c("AB", "BC", "CD")
                                                                                  
   9/14 substr.R: `substr_ctl<-`(txt.nona, 1, 1, value = c("#", NA), carry = TRUE)
                                                                                  
  
                                                                                  
  10/14 tabs.R: 
                                                                                  
  10/14 tabs.R: library(unitizer)
                                                                                  
  10/14 tabs.R: library(fansi)
                                                                                  
  10/14 tabs.R: string <- "1\t12\t123\t1234\t12345678"
                                                                                  
  10/14 tabs.R: tabs_as_spaces(string)
                                                                                  
  10/14 tabs.R: tabs_as_spaces(string, c(2, 3, 4, 5, 8))
                                                                                  
  10/14 tabs.R: tabs_as_spaces(string, c(2, 8))
                                                                                  
  10/14 tabs.R: tabs_as_spaces(1:3)
                                                                                  
  10/14 tabs.R: string.n <- paste0("1\t12\t123\t1234\t12345678\n", "1\t12\t123\t12
                                                                                  
  10/14 tabs.R: tabs_as_spaces(string.n)
                                                                                  
  10/14 tabs.R: tabs_as_spaces(string.n, c(2, 3, 4, 8))
                                                                                  
  10/14 tabs.R: tabs_as_spaces(string.n, c(2, 8))
                                                                                  
  10/14 tabs.R: tabs_as_spaces("")
                                                                                  
  10/14 tabs.R: tabs_as_spaces("\t")
                                                                                  
  10/14 tabs.R: tabs_as_spaces("\n")
                                                                                  
  10/14 tabs.R: tabs_as_spaces(c(string, string, string))
                                                                                  
  10/14 tabs.R: tabs_as_spaces("\t\t")
                                                                                  
  10/14 tabs.R: tabs_as_spaces(string, warn = 1:3)
                                                                                  
  10/14 tabs.R: tabs_as_spaces(string, tab.stops = "hello")
                                                                                  
  10/14 tabs.R: tabs_as_spaces(string, ctl = "hello")
                                                                                  
  10/14 tabs.R: tabs_as_spaces(string, ctl = 0)
                                                                                  
  
                                                                                  
  11/14 tohtml.R: 
                                                                                  
  11/14 tohtml.R: library(unitizer)
                                                                                  
  11/14 tohtml.R: library(fansi)
                                                                                  
  11/14 tohtml.R: style <- "width: 16px; height: 16px; display: inline-block;"
                                                                                  
  11/14 tohtml.R: span <- "<span style=\"background-color: %s; %s\"></span>"
                                                                                  
  11/14 tohtml.R: colors.8 <- fansi:::esc_color_code_to_html(rbind(c(0:7), 0L, 
                                                                                  
  11/14 tohtml.R: colors.8
                                                                                  
  11/14 tohtml.R: fansi:::esc_color_code_to_html(matrix(c(9L, 0L, 0L, 0L, 0L)))
                                                                                  
  11/14 tohtml.R: colors.255 <- fansi:::esc_color_code_to_html(rbind(8L, 5L, 0:255
                                                                                  
  11/14 tohtml.R: colors.255
                                                                                  
  11/14 tohtml.R: vals <- c(0L, 127L, 255L)
                                                                                  
  11/14 tohtml.R: colors.tru <- fansi:::esc_color_code_to_html(do.call(rbind, c(li
                                                                                  
  11/14 tohtml.R: colors.tru
                                                                                  
  11/14 tohtml.R: as_html_page <- function(x) {
                                                                                  
  11/14 tohtml.R: sgr_to_html("hello \033[31;42;1mworld\033[0m")
                                                                                  
  11/14 tohtml.R: sgr_to_html("hello \033[31;48;5;23;1mworld\033[m")
                                                                                  
  11/14 tohtml.R: sgr_to_html("\033[1mbold\033[22m \033[2mfaint\033[22m \033[mital
                                                                                  
  11/14 tohtml.R: csi_string <- c("\033[1mbold\033[22m \033[2mfaint\033[22m \033[3
                                                                                  
  11/14 tohtml.R: html_string <- sgr_to_html(csi_string)
                                                                                  
  11/14 tohtml.R: html_string
                                                                                  
  11/14 tohtml.R: sgr_to_html("hello\033[94;101m world\033[39m yow\033[49mza")
                                                                                  
  11/14 tohtml.R: sgr_to_html("hello\033[98;101m world\033[39m yow\033[49mza")
                                                                                  
  11/14 tohtml.R: sgr_to_html("hello\033[0m")
                                                                                  
  11/14 tohtml.R: sgr_to_html("hello\033[31m")
                                                                                  
  11/14 tohtml.R: sgrs <- paste0(rep("\033[31m", 20), collapse = "")
                                                                                  
  11/14 tohtml.R: sgr_to_html(sprintf("%shello world\033[m", sgrs))
                                                                                  
  11/14 tohtml.R: sgr_to_html(1:3)
                                                                                  
  11/14 tohtml.R: sgr_to_html("\033[31mhello\033[m\033[42m world\033[m")
                                                                                  
  11/14 tohtml.R: sgr_to_html("\033[33mhello")
                                                                                  
  11/14 tohtml.R: sgr_to_html("he\033[33mllo")
                                                                                  
  11/14 tohtml.R: sgr_to_html("hello\033[33m")
                                                                                  
  11/14 tohtml.R: sgr_to_html(c("\033[33mhello", "world"))
                                                                                  
  11/14 tohtml.R: sgr_to_html(c("\033[33mhello", "\033[44mworld"))
                                                                                  
  11/14 tohtml.R: sgr_to_html(c("\033[33mhello", "wor\033[44mld"))
                                                                                  
  11/14 tohtml.R: sgr_to_html(c("\033[33mhello", "world\033[44m"))
                                                                                  
  11/14 tohtml.R: sgr_to_html(c("he\033[33mllo", "world"))
                                                                                  
  11/14 tohtml.R: sgr_to_html(c("he\033[33mllo", "\033[44mworld"))
                                                                                  
  11/14 tohtml.R: sgr_to_html(c("he\033[33mllo", "wor\033[44mld"))
                                                                                  
  11/14 tohtml.R: sgr_to_html(c("he\033[33mllo", "world\033[44m"))
                                                                                  
  11/14 tohtml.R: sgr_to_html(c("hello\033[33m", "world"))
                                                                                  
  11/14 tohtml.R: sgr_to_html(c("hello\033[33m", "\033[44mworld"))
                                                                                  
  11/14 tohtml.R: sgr_to_html(c("hello\033[33m", "wor\033[44mld"))
                                                                                  
  11/14 tohtml.R: sgr_to_html(c("hello\033[33m", "world\033[44m"))
                                                                                  
  11/14 tohtml.R: fansi:::esc_color_code_to_html(matrix(1:12, 4))
                                                                                  
  11/14 tohtml.R: sgr_to_html(1:3)
                                                                                  
  11/14 tohtml.R: sgr_to_html("a", warn = 1:3)
                                                                                  
  11/14 tohtml.R: sgr_to_html("a", term.cap = 1:3)
                                                                                  
  11/14 tohtml.R: sgr_to_html("a", term.cap = "hello")
                                                                                  
  11/14 tohtml.R: string <- c("\033[31m", "\033[39m")
                                                                                  
  11/14 tohtml.R: fansi::sgr_to_html(string)
                                                                                  
  11/14 tohtml.R: string1 <- c("\033[31mhello", "world\033[39m moon")
                                                                                  
  11/14 tohtml.R: fansi::sgr_to_html(string1)
                                                                                  
  11/14 tohtml.R: string2 <- c("\033[3mhello\033[24m", "world\033[23m moon")
                                                                                  
  11/14 tohtml.R: fansi::sgr_to_html(string2)
                                                                                  
  11/14 tohtml.R: sgr_to_html("\033[94mhello\033[31;42;1mworld\033[m", classes = T
                                                                                  
  11/14 tohtml.R: class.8 <- do.call(paste, c(expand.grid(c("fg", "bg"), 0:7), 
                                                                                  
  11/14 tohtml.R: class.16 <- do.call(paste, c(expand.grid(c("fg", "bg"), 0:15), 
                                                                                  
  11/14 tohtml.R: class.256 <- do.call(paste, c(expand.grid(c("fg", "bg"), 0:255),
                                                                                  
  11/14 tohtml.R: x <- c("\033[94mhe\033[107mllo\033[31;42;1mworld\033[m", "\033[4
                                                                                  
  11/14 tohtml.R: term.cap <- c("bright", "256", "truecolor")
                                                                                  
  11/14 tohtml.R: sgr_to_html(x, classes = class.8, term.cap = term.cap)
                                                                                  
  11/14 tohtml.R: sgr_to_html(x, classes = class.16, term.cap = term.cap)
                                                                                  
  11/14 tohtml.R: sgr_to_html(x, classes = class.256, term.cap = term.cap)
                                                                                  
  11/14 tohtml.R: make_styles(class.8)
                                                                                  
  11/14 tohtml.R: make_styles(class.8, matrix(c(0, 1, 0, 0, 0, 1, 1, 0, 0), 3))
                                                                                  
  11/14 tohtml.R: sgr_to_html(sgr_256())
                                                                                  
  11/14 tohtml.R: sgr_to_html(sgr_256(), classes = class.256)
                                                                                  
  11/14 tohtml.R: sgr_to_html("\033[31mhello\033[31m", classes = NULL)
                                                                                  
  11/14 tohtml.R: sgr_to_html("\033[31mhello\033[31m", classes = character(7L))
                                                                                  
  11/14 tohtml.R: sgr_to_html("\033[31mhello\033[31m", classes = rep(NA_character_
                                                                                  
  11/14 tohtml.R: sgr_to_html("\033[31mhello\033[31m", classes = rep("bad class", 
                                                                                  
  11/14 tohtml.R: make_styles(class.8, c(1, 1, 0, 0, 0, 1, 1, 0, 0))
                                                                                  
  11/14 tohtml.R: make_styles(class.8, matrix(c(0, 1, 0, 0, 0, 1, 1, 0, NA), 3))
                                                                                  
  11/14 tohtml.R: make_styles(class.8, "hello")
                                                                                  
  11/14 tohtml.R: make_styles(letters, matrix(c(0, 1, 0, 0, 0, 1, 1, 0, 0), 3))
                                                                                  
  11/14 tohtml.R: make_styles(NULL)
                                                                                  
  11/14 tohtml.R: str.esc <- c("A\033[45m<B", "A\033[44m>B", "A\033[43m&B")
                                                                                  
  11/14 tohtml.R: to_html(str.esc)
                                                                                  
  11/14 tohtml.R: sgr_to_html(str.esc)
                                                                                  
  11/14 tohtml.R: to_html(str.esc, warn = FALSE)
                                                                                  
  11/14 tohtml.R: to_html(html_esc(str.esc))
                                                                                  
  11/14 tohtml.R: str.esc2 <- c("A\033[45m<B", "A\033[200m>B", "A\033[201mB")
                                                                                  
  11/14 tohtml.R: to_html(str.esc2)
                                                                                  
  11/14 tohtml.R: to_html(str.esc2, warn = FALSE)
                                                                                  
  11/14 tohtml.R: html <- sgr_to_html("\033[42mHello")
                                                                                  
  11/14 tohtml.R: f <- in_html(html, css = "span {background-color: #CCC;}", displ
                                                                                  
  11/14 tohtml.R: readLines(f)
                                                                                  
  11/14 tohtml.R: unlink(f)
                                                                                  
  11/14 tohtml.R: in_html(html, css = "span {background-color: #CCC;}", display = 
                                                                                  
  11/14 tohtml.R: string.2 <- c("A\033[44m", "B\033[49m", "C", "\033[39mD")
                                                                                  
  11/14 tohtml.R: to_html(string.2)
                                                                                  
  11/14 tohtml.R: to_html(string.2, carry = FALSE)
                                                                                  
  11/14 tohtml.R: to_html(string.2, carry = "\033[33m")
                                                                                  
  11/14 tohtml.R: to_html(string.2, carry = "\033[33m\033]8;;https://w.z\033\\")
                                                                                  
  11/14 tohtml.R: string.3 <- c("A\033[44m", "\033[31mC", NA, "\033[39mD")
                                                                                  
  11/14 tohtml.R: to_html(string.3)
                                                                                  
  11/14 tohtml.R: to_html(string.3, carry = FALSE)
                                                                                  
  
                                                                                  
  12/14 trimws.R: 
                                                                                  
  12/14 trimws.R: library(fansi)
                                                                                  
  12/14 trimws.R: txt1 <- c("", "hello", " \t \n\r he\nl\tl\r o \r\t\n", "he\nl\tl
                                                                                  
  12/14 trimws.R: identical(trimws(txt1), trimws_ctl(txt1))
                                                                                  
  12/14 trimws.R: identical(trimws(txt1, which = "left"), trimws_ctl(txt1, which =
                                                                                  
  12/14 trimws.R: identical(trimws(txt1, which = "right"), trimws_ctl(txt1, which 
                                                                                  
  12/14 trimws.R: txt2 <- c("\033[31m he\033[42;1m llo \033[49m\n\t ", " \033]8;;h
                                                                                  
  12/14 trimws.R: trimws_ctl(txt2)
                                                                                  
  12/14 trimws.R: trimws_ctl(txt2, which = "left")
                                                                                  
  12/14 trimws.R: trimws_ctl(txt2, which = "right")
                                                                                  
  12/14 trimws.R: trimws_ctl(txt2, ctl = c("all", "url", "osc"))
                                                                                  
  12/14 trimws.R: trimws_ctl(txt2, ctl = c("all", "sgr", "csi"))
                                                                                  
  12/14 trimws.R: trimws_ctl(" \r\a A \a\t ", ctl = c("all", "c0"))
                                                                                  
  12/14 trimws.R: trimws_ctl(character())
                                                                                  
  12/14 trimws.R: trimws_ctl("hello", which = "top")
                                                                                  
  12/14 trimws.R: trimws_ctl("hello", whitespace = " ")
                                                                                  
  
                                                                                  
  13/14 url.R: 
                                                                                  
  13/14 url.R: library(fansi)
                                                                                  
  13/14 url.R: txt <- "This is a link"
                                                                                  
  13/14 url.R: base.st <- "%s\033]8;%s;%s\033\\%s\033]8;;\033\\%s"
                                                                                  
  13/14 url.R: base.a <- "%s\033]8;%s;%s\a%s\033]8;;\a%s"
                                                                                  
  13/14 url.R: url <- "https://x.yz"
                                                                                  
  13/14 url.R: u0 <- sprintf(base.st, "", "", url, txt, "")
                                                                                  
  13/14 url.R: u1 <- sprintf(base.a, "", "", url, txt, "")
                                                                                  
  13/14 url.R: strtrim_ctl(u0, 5)
                                                                                  
  13/14 url.R: strwrap_ctl(u0, 5)
                                                                                  
  13/14 url.R: strwrap_ctl(u0, 8)
                                                                                  
  13/14 url.R: strwrap_ctl(u1, 5)
                                                                                  
  13/14 url.R: u2 <- sprintf(base.st, "", "id=one", url, txt, "")
                                                                                  
  13/14 url.R: u2a <- sprintf(base.st, "", "id=", url, txt, "")
                                                                                  
  13/14 url.R: u2b <- sprintf(base.st, "", "id", url, txt, "")
                                                                                  
  13/14 url.R: u3 <- sprintf(base.st, "", "title=ab:id=one", url, txt, "")
                                                                                  
  13/14 url.R: u4 <- sprintf(base.st, "", "id=one:title=ba", url, txt, "")
                                                                                  
  13/14 url.R: u6 <- sprintf(base.st, "", "id=one~title=ba", url, txt, "")
                                                                                  
  13/14 url.R: strwrap_ctl(u2, 5)
                                                                                  
  13/14 url.R: strwrap_ctl(u3, 5)
                                                                                  
  13/14 url.R: strwrap_ctl(u4, 5)
                                                                                  
  13/14 url.R: strwrap_ctl(u6, 5)
                                                                                  
  13/14 url.R: u7 <- sprintf(base.st, "AB", "id=one", url, txt, "CD")
                                                                                  
  13/14 url.R: strwrap_ctl(u7, 8)
                                                                                  
  13/14 url.R: txt2 <- "This\033[34m is a link\033[49m"
                                                                                  
  13/14 url.R: u8 <- sprintf(base.st, "A\033[43mB", "", url, txt2, "CD")
                                                                                  
  13/14 url.R: strwrap_ctl(u8, 7)
                                                                                  
  13/14 url.R: url2 <- ";wow;https://x.yz"
                                                                                  
  13/14 url.R: u9 <- sprintf(base.st, "", "", url2, txt, "")
                                                                                  
  13/14 url.R: strwrap_ctl(u9, 5)
                                                                                  
  13/14 url.R: u10 <- sprintf(base.st, "", "\a", url, txt, "")
                                                                                  
  13/14 url.R: u11 <- sprintf(base.st, "", "\016", url, txt, "")
                                                                                  
  13/14 url.R: Encoding(u10) <- "UTF-8"
                                                                                  
  13/14 url.R: Encoding(u11) <- "UTF-8"
                                                                                  
  13/14 url.R: u11a <- sprintf(base.st, "", "hello", url, txt, "")
                                                                                  
  13/14 url.R: strwrap_ctl(u10, 5)
                                                                                  
  13/14 url.R: strwrap_ctl(u11, 5)
                                                                                  
  13/14 url.R: strwrap_ctl(u11a, 5)
                                                                                  
  13/14 url.R: nchar_ctl(c(u10, u11, u11a))
                                                                                  
  13/14 url.R: u12 <- sprintf(base.st, "", "", "\b", txt, "")
                                                                                  
  13/14 url.R: u12a <- sprintf(base.st, "", "", "\200", txt, "")
                                                                                  
  13/14 url.R: Encoding(u12) <- "UTF-8"
                                                                                  
  13/14 url.R: Encoding(u12a) <- "UTF-8"
                                                                                  
  13/14 url.R: strwrap_ctl(u12, 5)
                                                                                  
  13/14 url.R: strwrap_ctl(u12a, 5)
                                                                                  
  13/14 url.R: nchar_ctl(c(u12, u12a))
                                                                                  
  13/14 url.R: nchar_ctl(c(u12, u12a), allowNA = TRUE)
                                                                                  
  13/14 url.R: u13 <- "a\033]8;;THE END"
                                                                                  
  13/14 url.R: u13a <- "a\033];;THE END"
                                                                                  
  13/14 url.R: u14 <- "a\033]8;;THE END\033]8;;NO?"
                                                                                  
  13/14 url.R: u15 <- "a\033]8;;THE END\033]8;;\033["
                                                                                  
  13/14 url.R: strwrap_ctl(u13, 5)
                                                                                  
  13/14 url.R: strwrap_ctl(u13, 5, terminate = FALSE)
                                                                                  
  13/14 url.R: strwrap_ctl(u13a, 5)
                                                                                  
  13/14 url.R: strwrap_ctl(u14, 5)
                                                                                  
  13/14 url.R: strwrap_ctl(u15, 5)
                                                                                  
  13/14 url.R: nchar_ctl(c(u13, u13a, u14, u15))
                                                                                  
  13/14 url.R: u16 <- sprintf(base.st, "", "", "", txt, "")
                                                                                  
  13/14 url.R: u17 <- sprintf(base.st, "", "", "", "", "")
                                                                                  
  13/14 url.R: strwrap_ctl(u16, 5)
                                                                                  
  13/14 url.R: strwrap_ctl(u17, 5)
                                                                                  
  13/14 url.R: strwrap_ctl(u0, 5, terminate = FALSE)
                                                                                  
  13/14 url.R: open <- "\033]8;;ab.c\033\\"
                                                                                  
  13/14 url.R: u21 <- c("he\033[44mllo \033]8;;de.f\033\\world", "night moon")
                                                                                  
  13/14 url.R: strwrap_ctl(u21, 5, carry = "\033[33m")
                                                                                  
  13/14 url.R: strwrap_ctl(u21, 5, carry = paste0(open, "\033[33m"))
                                                                                  
  13/14 url.R: u18 <- "A\033]8;id=a;x.yz\033\\B\033]8;id=a;x.yz\033\\C\033]8;;\033
                                                                                  
  13/14 url.R: normalize_state(u18)
                                                                                  
  13/14 url.R: u18a <- "A\033]8;id=a;x.yz\033\\B\033]8;;\033\\\033]8;id=a;x.yz\033
                                                                                  
  13/14 url.R: normalize_state(u18a)
                                                                                  
  13/14 url.R: u18b <- "A\033]8;id=a;x.yz\033\\\033]8;id=b;x.yz\033\\C\033]8;;\033
                                                                                  
  13/14 url.R: normalize_state(u18b)
                                                                                  
  13/14 url.R: u19 <- "A\033]8;id=a;x.yz\033\\B\033]8;id=b;x.yz\033\\C\033]8;;\033
                                                                                  
  13/14 url.R: u20 <- "A\033]8;id=a;x.yz\033\\B\033]8;id=a;w.yz\033\\C\033]8;;\033
                                                                                  
  13/14 url.R: normalize_state(u19)
                                                                                  
  13/14 url.R: normalize_state(u20)
                                                                                  
  13/14 url.R: substr_ctl(u0, 6, 9)
                                                                                  
  13/14 url.R: substr_ctl(u0, 6, 9, terminate = FALSE)
                                                                                  
  13/14 url.R: substr_ctl("hello world", 3, 8, carry = "\033]8;;a.b\033\\")
                                                                                  
  13/14 url.R: substr_ctl("A\033]8;a=\r:id=c;x.y\033\\B", 2, 2)
                                                                                  
  13/14 url.R: substr_ctl("A\033]8;a=c:id=\r;x.y\033\\B", 2, 2)
                                                                                  
  13/14 url.R: substr_ctl("A\033]8;a=c:id=d;x.\r\033\\B", 2, 2)
                                                                                  
  13/14 url.R: substr_ctl("A\033]8;a=c:id=d;x.\200\033\\B", 2, 2)
                                                                                  
  13/14 url.R: to_html(u0)
                                                                                  
  13/14 url.R: to_html("A\033[44mB\033]8;;x.y\033\\C\033[33m\033]8;;\033\\D")
                                                                                  
  13/14 url.R: to_html("A\033[44mB\033]8;;x.y\033\\C\033[33m\033]8;;w.z\033\\D")
                                                                                  
  13/14 url.R: u23 <- c("A \033[44mB \033]8;;x.y\033\\C \033[33m\033]8;;w.z\033\\D
                                                                                  
  13/14 url.R: to_html(u23)
                                                                                  
  13/14 url.R: to_html(strwrap_ctl(u23, 4))
                                                                                  
  13/14 url.R: nchar_ctl("\033]hello \aworld")
                                                                                  
  13/14 url.R: nchar_ctl("\033]hello \033\\world")
                                                                                  
  13/14 url.R: nchar_ctl("\033]hello \033\\world", ctl = c("all", "osc"))
                                                                                  
  13/14 url.R: x <- "\033]hello\200\033\\world"
                                                                                  
  13/14 url.R: Encoding(x) <- "UTF-8"
                                                                                  
  13/14 url.R: nchar_ctl(x)
                                                                                  
  13/14 url.R: nchar_ctl("\033]hello world")
                                                                                  
  
                                                                                  
  14/14 wrap.R: 
                                                                                  
  14/14 wrap.R: library(unitizer)
                                                                                  
  14/14 wrap.R: library(fansi)
                                                                                  
  14/14 wrap.R: hello.0 <- "hello world this is a lovely day"
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello.0, width = 10)
                                                                                  
  14/14 wrap.R: hello.1 <- "hello  world  this  is.  a lovely day."
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello.1, width = 10)
                                                                                  
  14/14 wrap.R: hello.2 <- "hello\rworld\rthis  is.  a lovely day."
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello.2, width = 10)
                                                                                  
  14/14 wrap.R: hello.3 <- "hello\rworld\nthis  is.  a lovely\n day."
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello.3, width = 10)
                                                                                  
  14/14 wrap.R: hello.4 <- "  hello  world  this  is  a lovely day."
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello.4, width = 10)
                                                                                  
  14/14 wrap.R: hello.5 <- "hello.\n\n\nworld"
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello.5, width = 10)
                                                                                  
  14/14 wrap.R: hello.5a <- "hello.\n \n \nworld"
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello.5a, width = 10)
                                                                                  
  14/14 wrap.R: hello.6a <- "hello.\"  there"
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello.6a, width = 40)
                                                                                  
  14/14 wrap.R: hello.6b <- "hello.'  there"
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello.6b, width = 40)
                                                                                  
  14/14 wrap.R: hello.6c <- "hello.)  there"
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello.6c, width = 40)
                                                                                  
  14/14 wrap.R: hello2.0 <- paste0("hello ", red, "world ", grn.bg, " this is a  l
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello2.0, 10)
                                                                                  
  14/14 wrap.R: strwrap_ctl(strip_ctl(hello2.0, "sgr"), 10)
                                                                                  
  14/14 wrap.R: hello2.1 <- paste0("hello \033[41mworld\033[m how are you today")
                                                                                  
  14/14 wrap.R: hello2.2 <- paste0("hello \033[41mworld\033[0m how are you today")
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello2.1, 15)
                                                                                  
  14/14 wrap.R: hello.bold.faint <- paste0("hello \033[1mbolded once upon a time\0
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello.bold.faint, 10)
                                                                                  
  14/14 wrap.R: hello.blinky <- paste0("hello \033[5mbliking slowly oh my\033[25m 
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello.blinky, 10)
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello.blinky, 10, terminate = FALSE)
                                                                                  
  14/14 wrap.R: hello2.3 <- c(hello2.1, hello2.2)
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello2.3, 10, simplify = FALSE)
                                                                                  
  14/14 wrap.R: strwrap2_ctl(hello2.3, 10, simplify = FALSE)
                                                                                  
  14/14 wrap.R: strwrap_ctl("aliquip \033[31mex ea commodo consequat\033[0m\n", 
                                                                                  
  14/14 wrap.R: wrap.csi <- strwrap_ctl(lorem.r.thanks, 40)
                                                                                  
  14/14 wrap.R: nchar(strip_ctl(wrap.csi, "sgr"))
                                                                                  
  14/14 wrap.R: nchar(wrap.csi)
                                                                                  
  14/14 wrap.R: strwrap_ctl("hello \033kworld yohoo", 12)
                                                                                  
  14/14 wrap.R: strwrap_ctl("hello \033\nworld yohoo", 12)
                                                                                  
  14/14 wrap.R: strwrap_ctl("hello\037\037\037\037\037\037 world yohoo", 12)
                                                                                  
  14/14 wrap.R: strwrap_ctl("hello \033[999mworld", 6)
                                                                                  
  14/14 wrap.R: strwrap_ctl("hello \033[31#31mworld", 6)
                                                                                  
  14/14 wrap.R: strwrap_ctl("hello \033[999nworld", 6)
                                                                                  
  14/14 wrap.R: strwrap_ctl("hello \033[999mworld", 6, warn = FALSE)
                                                                                  
  14/14 wrap.R: strwrap_ctl("hello \033[31#31mworld", 6, warn = FALSE)
                                                                                  
  14/14 wrap.R: strwrap_ctl("hello \033[999nworld", 6, warn = FALSE)
                                                                                  
  14/14 wrap.R: lorem.sentence <- unlist(strsplit_ctl(lorem, "[.]\\K ", perl = TRU
                                                                                  
  14/14 wrap.R: lorem.sentence <- gsub(",", ",\n", lorem.sentence, fixed = TRUE)
                                                                                  
  14/14 wrap.R: lorem.para <- c(paste0(lorem.sentence[1:2], collapse = "\n\n"), 
                                                                                  
  14/14 wrap.R: strwrap_ctl(lorem.para, indent = 2)
                                                                                  
  14/14 wrap.R: strwrap_ctl(lorem.para, exdent = 2)
                                                                                  
  14/14 wrap.R: strwrap_ctl(lorem.para, indent = 4, exdent = 2)
                                                                                  
  14/14 wrap.R: pre <- "\033[32m+ \033[0m"
                                                                                  
  14/14 wrap.R: ini <- "\033[33m> \033[0m"
                                                                                  
  14/14 wrap.R: hello.8a <- "hello world yohoo"
                                                                                  
  14/14 wrap.R: wrap.csi.2 <- strwrap_ctl(hello.8a, 14, prefix = pre, initial = in
                                                                                  
  14/14 wrap.R: wrap.csi.2
                                                                                  
  14/14 wrap.R: hello.8b <- c(hello.8a, "oh my this has 2 elements")
                                                                                  
  14/14 wrap.R: wrap.csi.3 <- strwrap_ctl(hello.8b, 14, prefix = pre, initial = in
                                                                                  
  14/14 wrap.R: wrap.csi.3
                                                                                  
  14/14 wrap.R: hello.9a <- "hello\t\033[41mred\033[49m\tworld"
                                                                                  
  14/14 wrap.R: strwrap2_ctl(hello.9a, 12)
                                                                                  
  14/14 wrap.R: strwrap2_ctl(hello.9a, 12, tabs.as.spaces = TRUE)
                                                                                  
  14/14 wrap.R: strwrap2_ctl(hello.9a, 13, tabs.as.spaces = TRUE)
                                                                                  
  14/14 wrap.R: strwrap2_ctl(hello.9a, 12, tabs.as.spaces = TRUE, tab.stops = c(6,
                                                                                  
  14/14 wrap.R: r.thanks <- lorem.r.thanks.2
                                                                                  
  14/14 wrap.R: bg <- ceiling(seq_along(r.thanks)/length(r.thanks) * 215) + 16
                                                                                  
  14/14 wrap.R: fg <- ifelse((((bg - 16)%/%18)%%2), 30, 37)
                                                                                  
  14/14 wrap.R: tpl <- "\033[%d;48;5;%dm%s\033[49m"
                                                                                  
  14/14 wrap.R: nz <- nzchar(r.thanks)
                                                                                  
  14/14 wrap.R: r.thanks[nz] <- sprintf(tpl, fg[nz], bg[nz], r.thanks[nz])
                                                                                  
  14/14 wrap.R: r.col <- paste0(r.thanks, collapse = "\n")
                                                                                  
  14/14 wrap.R: r.wrap <- strwrap2_ctl(r.col, 35, pad.end = " ", wrap.always = TRU
                                                                                  
  14/14 wrap.R: r.wrap
                                                                                  
  14/14 wrap.R: hello.9b <- "\033[41mhello\n\nworld."
                                                                                  
  14/14 wrap.R: strwrap2_ctl(hello.9b, 8, pad.end = " ")
                                                                                  
  14/14 wrap.R: strwrap2_ctl(hello.9b, 8, pad.end = 0)
                                                                                  
  14/14 wrap.R: hello.9b <- "  \033[41mhello world."
                                                                                  
  14/14 wrap.R: strwrap2_ctl(hello.9b, 8, strip.spaces = FALSE)
                                                                                  
  14/14 wrap.R: hello.9c <- "\033[41m  hello world."
                                                                                  
  14/14 wrap.R: ws.0 <- "hello   worldza"
                                                                                  
  14/14 wrap.R: ws.1 <- "hello \t worldza"
                                                                                  
  14/14 wrap.R: ws.2 <- "hello \n worldza"
                                                                                  
  14/14 wrap.R: strwrap2_sgr(ws.0, 7, strip.spaces = FALSE)
                                                                                  
  14/14 wrap.R: strwrap2_sgr(ws.0, 7, strip.spaces = FALSE, wrap.always = TRUE)
                                                                                  
  14/14 wrap.R: strwrap2_sgr(ws.0, 6, strip.spaces = FALSE)
                                                                                  
  14/14 wrap.R: strwrap2_sgr(ws.0, 6, strip.spaces = FALSE, wrap.always = TRUE)
                                                                                  
  14/14 wrap.R: strwrap2_sgr(ws.1, 7, strip.spaces = FALSE)
                                                                                  
  14/14 wrap.R: strwrap2_sgr(ws.1, 7, strip.spaces = FALSE, wrap.always = TRUE)
                                                                                  
  14/14 wrap.R: strwrap2_sgr(ws.1, 6, strip.spaces = FALSE)
                                                                                  
  14/14 wrap.R: strwrap2_sgr(ws.1, 6, strip.spaces = FALSE, wrap.always = TRUE)
                                                                                  
  14/14 wrap.R: strwrap2_sgr(" hello world ", 7, strip.spaces = FALSE)
                                                                                  
  14/14 wrap.R: strwrap2_sgr("\thello\tworld\t", 7, strip.spaces = FALSE)
                                                                                  
  14/14 wrap.R: strwrap2_sgr("\nhello\nworld\n", 7, strip.spaces = FALSE)
                                                                                  
  14/14 wrap.R: hello.9e <- c("hello\t\033[91mworld\033[m\t\033[38;2;31;42;4mworld
                                                                                  
  14/14 wrap.R: strwrap_sgr(hello.9e, 12, term.cap = "256")
                                                                                  
  14/14 wrap.R: hello.9f <- "hello \033[91mworld boohaythereyowza"
                                                                                  
  14/14 wrap.R: strwrap2_sgr(hello.9f, 12, prefix = "++", initial = ">>", wrap.alw
                                                                                  
  14/14 wrap.R: strwrap2_sgr(hello.9e, 12, tabs.as.spaces = TRUE, tab.stops = c(6,
                                                                                  
  14/14 wrap.R: strwrap_sgr(hello.9e, 12, warn = FALSE, indent = 2, exdent = 1, 
                                                                                  
  14/14 wrap.R: strwrap_sgr(hello.9e, 12, indent = 2, exdent = 1, prefix = "++", 
                                                                                  
  14/14 wrap.R: hello.long <- "\033[31mhelloworld\033[mlongword"
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello.long, 8)
                                                                                  
  14/14 wrap.R: strwrap2_ctl(hello.long, 8, wrap.always = TRUE)
                                                                                  
  14/14 wrap.R: hello.border <- c("hello \033[51mworld woohoo\033[54m woohoo", 
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello.border, 12)
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello.border, 12, terminate = FALSE)
                                                                                  
  14/14 wrap.R: hello.ideogram <- c("hello \033[60mworld woohoo\033[65m woohoo", 
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello.ideogram, 12, terminate = FALSE)
                                                                                  
  14/14 wrap.R: hello.font <- c("hello \033[10mworld woohoo\033[10m woohoo", 
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello.font, 12, terminate = FALSE)
                                                                                  
  14/14 wrap.R: getOption("fansi.term.cap", dflt_term_cap())
                                                                                  
  14/14 wrap.R: hello.bright <- "\033[42mhello \033[103mworld wowza\033[49m"
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello.bright, 13)
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello.bright, 13, term.cap = character())
                                                                                  
  14/14 wrap.R: hello.255 <- "\033[42mhello \033[48;5;47mworld wowza\033[49m"
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello.255, 13)
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello.255, 13, term.cap = character())
                                                                                  
  14/14 wrap.R: hello.tru <- "\033[42mhello \033[48;2;7;41;4mworld wowza\033[m"
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello.tru, 13, term.cap = "truecolor")
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello.tru, 13)
                                                                                  
  14/14 wrap.R: strwrap_ctl("a", -1)
                                                                                  
  14/14 wrap.R: strwrap2_ctl("a", -1)
                                                                                  
  14/14 wrap.R: strwrap2_ctl("a", Inf)
                                                                                  
  14/14 wrap.R: strwrap2_ctl("a", NA_real_)
                                                                                  
  14/14 wrap.R: strwrap2_ctl("a", NA_integer_)
                                                                                  
  14/14 wrap.R: strwrap2_ctl("a", -1, wrap.always = TRUE)
                                                                                  
  14/14 wrap.R: strwrap2_ctl("a", 0, wrap.always = TRUE)
                                                                                  
  14/14 wrap.R: strwrap2_ctl("a", 1, wrap.always = TRUE)
                                                                                  
  14/14 wrap.R: tryCatch(strwrap_ctl("hello world", 6, prefix = "\033p"), warning 
                                                                                  
  14/14 wrap.R: suppressWarnings(strwrap_ctl("hello world", 6, prefix = "\033p"))
                                                                                  
  14/14 wrap.R: tryCatch(strwrap2_ctl("hello world", 8, pad.end = "\t"), error = c
                                                                                  
  14/14 wrap.R: tryCatch(strwrap2_ctl("hello world", 8, pad.end = "  "), error = c
                                                                                  
  14/14 wrap.R: strwrap2_ctl("goodbye moon", 8, indent = 5, prefix = "> hello >")
                                                                                  
  14/14 wrap.R: strwrap2_ctl("goodbye moon", 16, indent = 5, prefix = "> hello >",
                                                                                  
  14/14 wrap.R: tryCatch(strwrap2_ctl("goodbye moon", 15, indent = 5, prefix = "> 
                                                                                  
  14/14 wrap.R: strwrap_ctl("hello world\033[31m\033A", 12)
                                                                                  
  14/14 wrap.R: strwrap_ctl("hello world\033A\033[31m", 12)
                                                                                  
  14/14 wrap.R: strwrap_ctl("hello \033[44m world", 5)
                                                                                  
  14/14 wrap.R: strwrap_ctl("hello \033[44m world", 6)
                                                                                  
  14/14 wrap.R: strwrap_ctl("hello \033[44m world", 5, terminate = FALSE)
                                                                                  
  14/14 wrap.R: strwrap_ctl("hello \033[44m world", 6, terminate = FALSE)
                                                                                  
  14/14 wrap.R: strwrap_ctl("hello\n\033[44m\nworld", 5)
                                                                                  
  14/14 wrap.R: strwrap_ctl("hello \n\033[44m\n world", 5)
                                                                                  
  14/14 wrap.R: strwrap_ctl("hello \n \033[44m\n world", 5)
                                                                                  
  14/14 wrap.R: strwrap_ctl("hello \n \n\033[44mworld", 5)
                                                                                  
  14/14 wrap.R: strwrap_ctl("hello \n \n\033[44m world", 5)
                                                                                  
  14/14 wrap.R: strwrap_ctl("hello \n \n\033[44m\nworld", 5)
                                                                                  
  14/14 wrap.R: strwrap_ctl("hello \033[44m\n\n world", 5)
                                                                                  
  14/14 wrap.R: strwrap("hello \n\n world", 5)
                                                                                  
  14/14 wrap.R: strwrap_ctl("\033[33mAB\033[44m CD", 3)
                                                                                  
  14/14 wrap.R: strwrap2_ctl("AB\033[44m\n\nCD", 3, wrap.always = TRUE)
                                                                                  
  14/14 wrap.R: strwrap2_ctl("AB\033[44m\n\nCD", 3, wrap.always = TRUE, pad.end = 
                                                                                  
  14/14 wrap.R: strwrap2_ctl("AB\033[44m\n\nCD", 3, wrap.always = TRUE, terminate 
                                                                                  
  14/14 wrap.R: strwrap2_ctl("AB\033[44m CD", 4, pad.end = "#")
                                                                                  
  14/14 wrap.R: strwrap2_ctl("AB\033[44m CD", 3, pad.end = "#")
                                                                                  
  14/14 wrap.R: strwrap2_sgr("\033[43mAB \033[34mCD", strip.spaces = FALSE, 4)
                                                                                  
  14/14 wrap.R: strwrap_ctl("\033[31m\033[43m", 5)
                                                                                  
  14/14 wrap.R: strwrap2_ctl("a\033[31mb", 2, wrap.always = TRUE)
                                                                                  
  14/14 wrap.R: strwrap_ctl("A \033[31mB\033[39m", 3)
                                                                                  
  14/14 wrap.R: strwrap2_ctl("\033[35phello \033[35p world", 5, strip.spaces = FAL
                                                                                  
  14/14 wrap.R: identical(strwrap(c(NA, "a b"), 4, prefix = ">"), strwrap_ctl(c(NA
                                                                                  
  14/14 wrap.R: identical(strwrap("a b", 4, prefix = NA), strwrap_ctl("a b", 
                                                                                  
  14/14 wrap.R: strwrap_ctl(1:3)
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello2.0, width = "35")
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello2.0, width = NA_integer_)
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello2.0, indent = NA_integer_)
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello2.0, indent = -3)
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello2.0, exdent = -3)
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello2.0, exdent = 1:3)
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello2.0, prefix = 1:3)
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello2.0, initial = 1:3)
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello2.0, warn = NULL)
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello2.0, term.cap = 1:3)
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello2.0, term.cap = "bananas")
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello2.0, ctl = 1:3)
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello2.0, ctl = "bananas")
                                                                                  
  14/14 wrap.R: strwrap2_ctl(hello2.0, wrap.always = 1:3)
                                                                                  
  14/14 wrap.R: strwrap2_ctl(hello2.0, wrap.always = NA)
                                                                                  
  14/14 wrap.R: strwrap2_ctl(hello2.0, tabs.as.spaces = NA)
                                                                                  
  14/14 wrap.R: strwrap2_ctl(hello2.0, tabs.as.spaces = 1)
                                                                                  
  14/14 wrap.R: strwrap2_ctl(hello2.0, tab.stops = -(1:3))
                                                                                  
  14/14 wrap.R: strwrap2_ctl(hello2.0, tab.stops = 0)
                                                                                  
  14/14 wrap.R: strwrap2_ctl(hello2.0, strip.spaces = 1:3)
                                                                                  
  14/14 wrap.R: strwrap2_ctl(hello2.0, tabs.as.spaces = TRUE, strip.spaces = TRUE)
                                                                                  
  14/14 wrap.R: strwrap2_ctl(hello2.0, pad.end = letters)
                                                                                  
  14/14 wrap.R: bytes <- "ðã"
                                                                                  
  14/14 wrap.R: Encoding(bytes) <- "bytes"
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello2.0, prefix = bytes)
                                                                                  
  14/14 wrap.R: strwrap_ctl(hello2.0, initial = bytes)
                                                                                  
  14/14 wrap.R: strwrap2_ctl(hello2.0, pad.end = bytes)
                                                                                  
  14/14 wrap.R: strwrap_ctl(c(hello2.0, bytes))
                                                                                  
  | 
  | The following unitizers will be upgraded to version '1.4.17':
  | 
  | - unitizer/nchar.unitizer (at '1.4.14')
  | - unitizer/url.unitizer (at '1.4.14')
  
  Error in unitize_core(test.files = test.files, store.ids = store.ids,  : 
    Cannot proceed in non-interactive mode.
  Calls: unitize_dir -> unitize_core
  Execution halted