Running ‘testthat.R’ [8s/15s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(saotd)
  > 
  > test_check("saotd")
  ── 1. Error: bigrams are computed properly (@test_bigram.R#19)  ────────────────
  'where' must be an environment
  Backtrace:
    1. testthat::expect_equal(...)
    4. saotd::bigram(DataFrame = test_bigram_df)
    3. dplyr::mutate(...)
    3. dplyr::mutate(...)
    3. dplyr::mutate(...)
    3. dplyr::mutate(., text = stringr::str_replace_all(text, "#", ""))
    3. dplyr::mutate(...)
    3. dplyr::mutate(...)
    3. tidytext::unnest_tokens(., bigram, text, token = "ngrams", n = 2)
   10. tidyr::separate(., bigram, c("word1", "word2"), sep = " ")
   13. ellipsis::check_dots_used()
   15. ellipsis:::exit_handler(action)
   16. base::bquote(...)
  
  ── 2. Error: (unknown) (@test_bigram_network.R#11)  ────────────────────────────
  'where' must be an environment
  Backtrace:
    1. saotd::bigram(DataFrame = test_text_df)
    2. dplyr::mutate(...)
    2. dplyr::mutate(...)
    2. dplyr::mutate(...)
    2. dplyr::mutate(., text = stringr::str_replace_all(text, "#", ""))
    2. dplyr::mutate(...)
    2. dplyr::mutate(...)
    2. tidytext::unnest_tokens(., bigram, text, token = "ngrams", n = 2)
    9. tidyr::separate(., bigram, c("word1", "word2"), sep = " ")
   10. ellipsis::check_dots_used()
   12. ellipsis:::exit_handler(action)
   13. base::bquote(...)
  
  fit models... done.
  calculate metrics:
    Griffiths2004... done.
    CaoJuan2009... done.
    Arun2010... done.
    Deveaud2014... done.
  ── 3. Error: Trigrams are computed properly (@test_trigram.R#21)  ──────────────
  'where' must be an environment
  Backtrace:
    1. testthat::expect_equal(...)
    4. saotd::trigram(DataFrame = test_trigram_df)
    3. dplyr::mutate(...)
    3. dplyr::mutate(...)
    3. dplyr::mutate(...)
    3. dplyr::mutate(., text = stringr::str_replace_all(text, "#", ""))
    3. dplyr::mutate(...)
    3. dplyr::mutate(...)
    3. tidytext::unnest_tokens(., trigram, text, token = "ngrams", n = 3)
   10. tidyr::separate(., trigram, c("word1", "word2", "word3"), sep = " ")
   13. ellipsis::check_dots_used()
   15. ellipsis:::exit_handler(action)
   16. base::bquote(...)
  
    Topic 1  Topic 2 Topic 3
  1  friend  amazing amazing
  2    hate     love     dog
  3    cats exchange friends
  4 amazing      job   local
  5     dog     tire  friend
  ══ testthat results  ═══════════════════════════════════════════════════════════
  [ OK: 63 | SKIPPED: 0 | WARNINGS: 5 | FAILED: 3 ]
  1. Error: bigrams are computed properly (@test_bigram.R#19) 
  2. Error: (unknown) (@test_bigram_network.R#11) 
  3. Error: Trigrams are computed properly (@test_trigram.R#21) 
  
  Error: testthat unit tests failed
  Execution halted