Running 'testthat.R' [59s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > # This file is part of the standard setup for testthat.
  > # It is recommended that you do not modify it.
  > #
  > # Where should you do additional test configuration?
  > # Learn more about the roles of various files in:
  > # * https://r-pkgs.org/tests.html
  > # * https://testthat.r-lib.org/reference/test_package.html#special-files
  > 
  > library(testthat)
  > library(wpa)
  
   Thank you for using the {wpa} R package!
   
   Our analysts have taken every care to ensure that this package runs smoothly and bug-free.
   
   However, if you do happen to encounter any, please report any issues at
   https://github.com/microsoft/wpa/issues/
   
   Happy coding!
  > 
  > test_check("wpa")
  [ FAIL 2 | WARN 195 | SKIP 0 | PASS 6 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-workpatterns_classify.R:4'): workpatterns data output row matches - signals ──
  Error in ``:=`(Personas, "Unclassified")`: Check that is.data.table(DT) == TRUE. Otherwise, := and `:=`(...) are defined for use in j, once only and in particular ways. See help(":=").
  Backtrace:
      ▆
   1. └─wpa::workpatterns_classify(em_data, signals = "IM", return = "data") at test-workpatterns_classify.R:4:4
   2.   └─wpa:::workpatterns_classify_bw(...)
   3.     ├─ptn_data_personas[, `:=`(Personas, "Unclassified")]
   4.     ├─base::`[.data.frame`(ptn_data_personas, , `:=`(Personas, "Unclassified"))
   5.     └─`:=`(Personas, "Unclassified")
  ── Error ('test-workpatterns_classify.R:25'): workpatterns plots returns ggplot object ──
  Error in ``:=`(Personas, "Unclassified")`: Check that is.data.table(DT) == TRUE. Otherwise, := and `:=`(...) are defined for use in j, once only and in particular ways. See help(":=").
  Backtrace:
      ▆
   1. └─wpa::workpatterns_classify(em_data, signals = "meetings", return = "plot") at test-workpatterns_classify.R:25:2
   2.   └─wpa:::workpatterns_classify_bw(...)
   3.     ├─ptn_data_personas[, `:=`(Personas, "Unclassified")]
   4.     ├─base::`[.data.frame`(ptn_data_personas, , `:=`(Personas, "Unclassified"))
   5.     └─`:=`(Personas, "Unclassified")
  
  [ FAIL 2 | WARN 195 | SKIP 0 | PASS 6 ]
  Error: Test failures
  Execution halted