Running 'test-all.R' [40s]
Running the tests in 'tests/test-all.R' failed.
Complete output:
  > library(testthat)
  > test_check("rtext")
  Loading required package: rtext
  Loading required package: stringb
  -- 1. Error: rtext tokenize_data_regex (@test_rtext.R#51)  ---------------------
  arguments must have same length
  1: expect_true({
         dings <- rtext$new("meine mudder schneidet speck - ho-narroh")
         dings$char_data_set("test", 1, 1)
         dings$char_data_set("toast", 1:dings$char_length(), "uggah")
         dings$char_data_get()
         all(is.na(dings$tokenize_data_regex("\\W+")$test))
     }) at testthat/test_rtext.R:51
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: dings$tokenize_data_regex("\\W+") at testthat/test_rtext.R:56
  5: self$tokenize_data_sequences(token = token, join = join, aggregate_function = aggregate_function, 
         ...)
  6: stats::aggregate(chardata[, -c(1:2)], by = list(token_i = token_i), FUN = "modus", 
         multimodal = NA, warn = FALSE)
  7: aggregate.data.frame(chardata[, -c(1:2)], by = list(token_i = token_i), FUN = "modus", 
         multimodal = NA, warn = FALSE)
  8: stop("arguments must have same length")
  
  -- 2. Error: rtext tokenize_data_words (@test_rtext.R#91)  ---------------------
  arguments must have same length
  1: expect_true({
         dings <- rtext$new("meine mudder schneidet speck - ho-narroh")
         dings$char_data_set("test", 1:5, 1)
         dings$char_data_set("toast", 1:dings$char_length(), "uggah")
         dings$char_data_get()
         dings$tokenize_data_words()$test[1] == 1
     }) at testthat/test_rtext.R:91
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: dings$tokenize_data_words() at testthat/test_rtext.R:96
  5: self$tokenize_data_regex(split = split, ignore.case = ignore.case, fixed = fixed, 
         perl = perl, useBytes = useBytes, non_token = non_token, join = join, aggregate_function = aggregate_function, 
         ...)
  6: self$tokenize_data_sequences(token = token, join = join, aggregate_function = aggregate_function, 
         ...)
  7: stats::aggregate(chardata[, -c(1:2)], by = list(token_i = token_i), FUN = "modus", 
         multimodal = NA, warn = FALSE)
  8: aggregate.data.frame(chardata[, -c(1:2)], by = list(token_i = token_i), FUN = "modus", 
         multimodal = NA, warn = FALSE)
  9: stop("arguments must have same length")
  
  == testthat results  ===========================================================
  OK: 277 SKIPPED: 0 FAILED: 2
  1. Error: rtext tokenize_data_regex (@test_rtext.R#51) 
  2. Error: rtext tokenize_data_words (@test_rtext.R#91) 
  
  Error: testthat unit tests failed
  Execution halted