Running ‘testthat.R’ [25s/22s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library("testthat")
  > library("qdap")
  Loading required package: qdapDictionaries
  Loading required package: qdapRegex
  Loading required package: qdapTools
  Loading required package: RColorBrewer
  Registered S3 methods overwritten by 'qdap':
    method               from
    t.DocumentTermMatrix tm  
    t.TermDocumentMatrix tm  
  
  Attaching package: 'qdap'
  
  The following object is masked from 'package:testthat':
  
      %>%
  
  The following object is masked from 'package:base':
  
      Filter
  
  > 
  > 
  > test_check("qdap")
  ── 1. Error: adjacency_matrix gives desired output (@test-adjacency_matrix.R#6) 
  replacement has 1 row, data has 0
  1: with(DATA, termco(state, list(sex, adult), words)) at testthat/test-adjacency_matrix.R:6
  2: with.default(DATA, termco(state, list(sex, adult), words))
  3: eval(substitute(expr), data, enclos = parent.frame())
  4: eval(substitute(expr), data, enclos = parent.frame())
  5: termco(state, list(sex, adult), words)
  6: termco_d(text.var = text.var, grouping.var = grouping.var, match.string = ML, ignore.case = ignore.case, 
         percent = percent, apostrophe.remove = apostrophe.remove, char.keep = char.keep, 
         digit.remove = FALSE, digits = digits, zero.replace = zero.replace, ...)
  7: termco.h(text.var = strip(text.var, lower.case = FALSE, char.keep = char.keep, digit.remove = digit.remove, 
         apostrophe.remove = apostrophe.remove, ...), match.string = match.string, grouping.var = grouping.var, 
         ignore.case = ignore.case)
  8: `[<-`(`*tmp*`, is.na(X[, "Y"]), "Y", value = 0)
  9: `[<-.data.frame`(`*tmp*`, is.na(X[, "Y"]), "Y", value = 0)
  10: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, n), domain = NA)
  
  ── 2. Error: apply_as_df allows users to apply data.frame based functions to a C
  replacement has 1 row, data has 0
  1: apply_as_df(reuters, termco, match.list = matches) at testthat/test-as.tdm.R:80
  2: with(dat, qdapfun(text.var = text, grouping.var = doc_id, ...))
  3: with.default(dat, qdapfun(text.var = text, grouping.var = doc_id, ...))
  4: eval(substitute(expr), data, enclos = parent.frame())
  5: eval(substitute(expr), data, enclos = parent.frame())
  6: qdapfun(text.var = text, grouping.var = doc_id, ...)
  7: termco_d(text.var = text.var, grouping.var = grouping.var, match.string = ML, ignore.case = ignore.case, 
         percent = percent, apostrophe.remove = apostrophe.remove, char.keep = char.keep, 
         digit.remove = FALSE, digits = digits, zero.replace = zero.replace, ...)
  8: termco.h(text.var = strip(text.var, lower.case = FALSE, char.keep = char.keep, digit.remove = digit.remove, 
         apostrophe.remove = apostrophe.remove, ...), match.string = match.string, grouping.var = grouping.var, 
         ignore.case = ignore.case)
  9: `[<-`(`*tmp*`, is.na(X[, "Y"]), "Y", value = 0)
  10: `[<-.data.frame`(`*tmp*`, is.na(X[, "Y"]), "Y", value = 0)
  11: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, n), domain = NA)
  
  
    |                                                                            
    |                                                                      |   0%
    |                                                                            
    |======                                                                |   9%
    |                                                                            
    |=============                                                         |  18%
    |                                                                            
    |===================                                                   |  27%
    |                                                                            
    |=========================                                             |  36%
    |                                                                            
    |================================                                      |  45%
    |                                                                            
    |======================================                                |  55%
    |                                                                            
    |=============================================                         |  64%
    |                                                                            
    |===================================================                   |  73%
    |                                                                            
    |=========================================================             |  82%
    |                                                                            
    |================================================================      |  91%
    |                                                                            
    |======================================================================| 100%
  
    |                                                                            
    |                                                                      |   0%
    |                                                                            
    |======                                                                |   9%
    |                                                                            
    |=============                                                         |  18%
    |                                                                            
    |===================                                                   |  27%
    |                                                                            
    |=========================                                             |  36%
    |                                                                            
    |================================                                      |  45%
    |                                                                            
    |======================================                                |  55%
    |                                                                            
    |=============================================                         |  64%
    |                                                                            
    |===================================================                   |  73%
    |                                                                            
    |=========================================================             |  82%
    |                                                                            
    |================================================================      |  91%
    |                                                                            
    |======================================================================| 100%
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 205 SKIPPED: 0 FAILED: 2
  1. Error: adjacency_matrix gives desired output (@test-adjacency_matrix.R#6) 
  2. Error: apply_as_df allows users to apply data.frame based functions to a Corpus (@test-as.tdm.R#80) 
  
  Error: testthat unit tests failed
  Execution halted