Running ‘testthat.R’ [8s/11s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(politeness)
  politeness v0.2.1 successfully loaded. See ?politeness for help.
  > 
  > test_check("politeness")
  Note: Some features cannot be computed without part-of-speech tagging. See ?spacyr::spacyr for details.── 1. Error: find polite runs with different parameter (@test-findPoliteTexts.R#
  no such index at level 2
  1: expect_that({
         suppressWarnings(findPoliteTexts(phone_offers$message, polite.data, df_covar, 
             classifier = "mnir", num_docs = 13))
     }, is_a("data.frame")) at testthat/test-findPoliteTexts.R:41
  2: condition(object)
  3: expect_is(x, class)
  4: quasi_label(enquo(object), label)
  5: eval_bare(get_expr(quo), get_env(quo))
  6: suppressWarnings(findPoliteTexts(phone_offers$message, polite.data, df_covar, classifier = "mnir", 
         num_docs = 13)) at testthat/test-findPoliteTexts.R:42
  7: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  8: findPoliteTexts(phone_offers$message, polite.data, df_covar, classifier = "mnir", 
         num_docs = 13)
  9: suppressWarnings(politenessProjection(df_polite_train = df_polite, covar = covar, 
         ...))
  10: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  11: politenessProjection(df_polite_train = df_polite, covar = covar, ...)
  12: suppressWarnings(stats::coef(mnlm_fit))
  13: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  14: stats::coef(mnlm_fit)
  15: coef.dmr(mnlm_fit)
  
  Note: Some features cannot be computed without part-of-speech tagging. See ?spacyr::spacyr for details.Note: Some features cannot be computed without part-of-speech tagging. See ?spacyr::spacyr for details.Note: Some features cannot be computed without part-of-speech tagging. See ?spacyr::spacyr for details.Note: Some features cannot be computed without part-of-speech tagging. See ?spacyr::spacyr for details.Note: Some features cannot be computed without part-of-speech tagging. See ?spacyr::spacyr for details.Note: Some features cannot be computed without part-of-speech tagging. See ?spacyr::spacyr for details.Note: Some features cannot be computed without part-of-speech tagging. See ?spacyr::spacyr for details.Note: Some features cannot be computed without part-of-speech tagging. See ?spacyr::spacyr for details.Note: Some features cannot be computed without part-of-speech tagging. See ?spacyr::spacyr for details.Note: Some features cannot be computed without part-of-speech tagging. See ?spacyr::spacyr for details.══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 26 SKIPPED: 0 FAILED: 1
  1. Error: find polite runs with different parameter (@test-findPoliteTexts.R#41) 
  
  Error: testthat unit tests failed
  Execution halted