Running ‘testthat.R’ [2s/2s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(Wmisc)
  > 
  > test_check("Wmisc")
  1. Error: visualization in general works (@test-automat.R#137) -----------------
  Argument 2 filter condition does not evaluate to a logical vector
  1: A$renderGraph() at testthat/test-automat.R:137
  2: edge_present_lab(g, directs[i, 1], directs[i, 2])
  3: DiagrammeR::get_node_ids(g, conditions = cond1)
  4: filter(.data = nodes_df, rlang::UQ(conditions))
  5: filter.data.frame(.data = nodes_df, rlang::UQ(conditions))
  6: as.data.frame(filter(tbl_df(.data), ...))
  7: filter(tbl_df(.data), ...)
  8: filter.tbl_df(tbl_df(.data), ...)
  9: filter_impl(.data, quo)
  
  2. Failure: visualization of empty automat works (@test-automat.R#145) ---------
  cleanDynamicGraphData(A$renderGraph()) not equal to reference from `automat-visual-0.rds`.
  Length mismatch: comparison on first 8 components
  
  
  3. Error: visualization without set state works (@test-automat.R#153) ----------
  Argument 2 filter condition does not evaluate to a logical vector
  1: expect_equal_to_reference(cleanDynamicGraphData(A$renderGraph()), "automat-visual-nostate.rds") at testthat/test-automat.R:153
  2: compare(object, reference, ...)
  3: cleanDynamicGraphData(A$renderGraph())
  4: A$renderGraph() at testthat/test-automat.R:22
  5: edge_present_lab(g, directs[i, 1], directs[i, 2])
  6: DiagrammeR::get_node_ids(g, conditions = cond1)
  7: filter(.data = nodes_df, rlang::UQ(conditions))
  8: filter.data.frame(.data = nodes_df, rlang::UQ(conditions))
  9: as.data.frame(filter(tbl_df(.data), ...))
  10: filter(tbl_df(.data), ...)
  11: filter.tbl_df(tbl_df(.data), ...)
  12: filter_impl(.data, quo)
  
  4. Error: visualization with implicit state works (@test-automat.R#162) --------
  Argument 2 filter condition does not evaluate to a logical vector
  1: expect_equal_to_reference(cleanDynamicGraphData(A$renderGraph()), "automat-visual-implicit.rds") at testthat/test-automat.R:162
  2: compare(object, reference, ...)
  3: cleanDynamicGraphData(A$renderGraph())
  4: A$renderGraph() at testthat/test-automat.R:22
  5: edge_present_lab(g, directs[i, 1], directs[i, 2])
  6: DiagrammeR::get_node_ids(g, conditions = cond1)
  7: filter(.data = nodes_df, rlang::UQ(conditions))
  8: filter.data.frame(.data = nodes_df, rlang::UQ(conditions))
  9: as.data.frame(filter(tbl_df(.data), ...))
  10: filter(tbl_df(.data), ...)
  11: filter.tbl_df(tbl_df(.data), ...)
  12: filter_impl(.data, quo)
  
  5. Error: visualization works (@test-automat.R#176) ----------------------------
  Argument 2 filter condition does not evaluate to a logical vector
  1: expect_equal_to_reference(cleanDynamicGraphData(A$renderGraph()), "automat-visual-1.rds") at testthat/test-automat.R:176
  2: compare(object, reference, ...)
  3: cleanDynamicGraphData(A$renderGraph())
  4: A$renderGraph() at testthat/test-automat.R:22
  5: edge_present_lab(g, directs[i, 1], directs[i, 2])
  6: DiagrammeR::get_node_ids(g, conditions = cond1)
  7: filter(.data = nodes_df, rlang::UQ(conditions))
  8: filter.data.frame(.data = nodes_df, rlang::UQ(conditions))
  9: as.data.frame(filter(tbl_df(.data), ...))
  10: filter(tbl_df(.data), ...)
  11: filter.tbl_df(tbl_df(.data), ...)
  12: filter_impl(.data, quo)
  
  6. Error: edge_present_lab helper works (@test-automat.R#209) ------------------
  Argument 2 filter condition does not evaluate to a logical vector
  1: expect_false(edge_present_lab(g, "foo", "lonely")) at testthat/test-automat.R:209
  2: expect(identical(as.vector(object), FALSE), sprintf("%s isn't false.", lab), info = info)
  3: as.expectation(exp, ..., srcref = srcref)
  4: identical(as.vector(object), FALSE)
  5: as.vector(object)
  6: edge_present_lab(g, "foo", "lonely")
  7: DiagrammeR::get_node_ids(g, conditions = cond1)
  8: filter(.data = nodes_df, rlang::UQ(conditions))
  9: filter.data.frame(.data = nodes_df, rlang::UQ(conditions))
  10: as.data.frame(filter(tbl_df(.data), ...))
  11: filter(tbl_df(.data), ...)
  12: filter.tbl_df(tbl_df(.data), ...)
  13: filter_impl(.data, quo)
  
  testthat results ================================================================
  OK: 132 SKIPPED: 0 FAILED: 6
  1. Error: visualization in general works (@test-automat.R#137) 
  2. Failure: visualization of empty automat works (@test-automat.R#145) 
  3. Error: visualization without set state works (@test-automat.R#153) 
  4. Error: visualization with implicit state works (@test-automat.R#162) 
  5. Error: visualization works (@test-automat.R#176) 
  6. Error: edge_present_lab helper works (@test-automat.R#209) 
  
  Error: testthat unit tests failed
  Execution halted