Running ‘testthat.R’ [2s/2s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(cleanNLP)
  > 
  > test_check("cleanNLP")
  [ FAIL 3 | WARN 0 | SKIP 3 | PASS 0 ]
  
  ══ Skipped tests (3) ═══════════════════════════════════════════════════════════
  • On CRAN (3): 'test-annotation.R:24:3', 'test-annotation.R:33:3',
    'test-annotation.R:42:3'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-annotation.R:9:3'): testing stringi ────────────────────────────
  Error in `(function (case_insensitive, comments, dotall, dot_all = dotall, 
      literal, multiline, multi_line = multiline, unix_lines, uword, 
      error_on_unknown_escapes, time_limit = 0L, stack_limit = 0L) 
  {
      opts <- list()
      if (!missing(case_insensitive)) 
          opts["case_insensitive"] <- case_insensitive
      if (!missing(comments)) 
          opts["comments"] <- comments
      if (!missing(literal)) 
          opts["literal"] <- literal
      if (!missing(unix_lines)) 
          opts["unix_lines"] <- unix_lines
      if (!missing(uword)) 
          opts["uword"] <- uword
      if (!missing(error_on_unknown_escapes)) 
          opts["error_on_unknown_escapes"] <- error_on_unknown_escapes
      if (!missing(stack_limit)) 
          opts["stack_limit"] <- stack_limit
      if (!missing(time_limit)) 
          opts["time_limit"] <- time_limit
      if (!missing(dotall)) 
          opts["dotall"] <- dotall
      else if (!missing(dot_all)) 
          opts["dotall"] <- dot_all
      if (!missing(multiline)) 
          opts["multiline"] <- multiline
      else if (!missing(multi_line)) 
          opts["multiline"] <- multi_line
      opts
  })(locale = "en_US_POSIX")`: unused argument (locale = "en_US_POSIX")
  Backtrace:
      ▆
   1. └─cleanNLP::cnlp_annotate(un, verbose = FALSE) at test-annotation.R:9:3
   2.   └─cleanNLP:::annotate_with_stringi(input, verbose)
   3.     └─base::lapply(...)
   4.       └─cleanNLP (local) FUN(X[[i]], ...)
   5.         └─stringi::stri_detect(v, regex = "\\A[\\h\\n\\t\\f]+\\Z", locale = volatiles$stringi$locale)
   6.           └─stringi::stri_detect_regex(str, regex, ...)
   7.             └─base::do.call(stri_opts_regex, as.list(c(opts_regex, ...)))
  ── Error ('test-tools.R:9:3'): testing utils_tfidf ─────────────────────────────
  Error in `(function (case_insensitive, comments, dotall, dot_all = dotall, 
      literal, multiline, multi_line = multiline, unix_lines, uword, 
      error_on_unknown_escapes, time_limit = 0L, stack_limit = 0L) 
  {
      opts <- list()
      if (!missing(case_insensitive)) 
          opts["case_insensitive"] <- case_insensitive
      if (!missing(comments)) 
          opts["comments"] <- comments
      if (!missing(literal)) 
          opts["literal"] <- literal
      if (!missing(unix_lines)) 
          opts["unix_lines"] <- unix_lines
      if (!missing(uword)) 
          opts["uword"] <- uword
      if (!missing(error_on_unknown_escapes)) 
          opts["error_on_unknown_escapes"] <- error_on_unknown_escapes
      if (!missing(stack_limit)) 
          opts["stack_limit"] <- stack_limit
      if (!missing(time_limit)) 
          opts["time_limit"] <- time_limit
      if (!missing(dotall)) 
          opts["dotall"] <- dotall
      else if (!missing(dot_all)) 
          opts["dotall"] <- dot_all
      if (!missing(multiline)) 
          opts["multiline"] <- multiline
      else if (!missing(multi_line)) 
          opts["multiline"] <- multi_line
      opts
  })(locale = "en_US_POSIX")`: unused argument (locale = "en_US_POSIX")
  Backtrace:
      ▆
   1. └─cleanNLP::cnlp_annotate(un, verbose = FALSE) at test-tools.R:9:3
   2.   └─cleanNLP:::annotate_with_stringi(input, verbose)
   3.     └─base::lapply(...)
   4.       └─cleanNLP (local) FUN(X[[i]], ...)
   5.         └─stringi::stri_detect(v, regex = "\\A[\\h\\n\\t\\f]+\\Z", locale = volatiles$stringi$locale)
   6.           └─stringi::stri_detect_regex(str, regex, ...)
   7.             └─base::do.call(stri_opts_regex, as.list(c(opts_regex, ...)))
  ── Error ('test-tools.R:20:3'): testing tidy_pca ───────────────────────────────
  Error in `(function (case_insensitive, comments, dotall, dot_all = dotall, 
      literal, multiline, multi_line = multiline, unix_lines, uword, 
      error_on_unknown_escapes, time_limit = 0L, stack_limit = 0L) 
  {
      opts <- list()
      if (!missing(case_insensitive)) 
          opts["case_insensitive"] <- case_insensitive
      if (!missing(comments)) 
          opts["comments"] <- comments
      if (!missing(literal)) 
          opts["literal"] <- literal
      if (!missing(unix_lines)) 
          opts["unix_lines"] <- unix_lines
      if (!missing(uword)) 
          opts["uword"] <- uword
      if (!missing(error_on_unknown_escapes)) 
          opts["error_on_unknown_escapes"] <- error_on_unknown_escapes
      if (!missing(stack_limit)) 
          opts["stack_limit"] <- stack_limit
      if (!missing(time_limit)) 
          opts["time_limit"] <- time_limit
      if (!missing(dotall)) 
          opts["dotall"] <- dotall
      else if (!missing(dot_all)) 
          opts["dotall"] <- dot_all
      if (!missing(multiline)) 
          opts["multiline"] <- multiline
      else if (!missing(multi_line)) 
          opts["multiline"] <- multi_line
      opts
  })(locale = "en_US_POSIX")`: unused argument (locale = "en_US_POSIX")
  Backtrace:
      ▆
   1. └─cleanNLP::cnlp_annotate(un, verbose = FALSE) at test-tools.R:20:3
   2.   └─cleanNLP:::annotate_with_stringi(input, verbose)
   3.     └─base::lapply(...)
   4.       └─cleanNLP (local) FUN(X[[i]], ...)
   5.         └─stringi::stri_detect(v, regex = "\\A[\\h\\n\\t\\f]+\\Z", locale = volatiles$stringi$locale)
   6.           └─stringi::stri_detect_regex(str, regex, ...)
   7.             └─base::do.call(stri_opts_regex, as.list(c(opts_regex, ...)))
  
  [ FAIL 3 | WARN 0 | SKIP 3 | PASS 0 ]
  Error: Test failures
  Execution halted