Running 'testthat.R' [4s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(gghighlight)
  > 
  > test_check("gghighlight")
  -- 1. Failure: gghighlight_point() without label_key works (@test-gghighlight_po
  d_built$plot$layers[[3]]$mapping$label not equal to as.name("category").
  target, current differ in having response: FALSE, FALSE
  
  -- 2. Error: gghighligt_line() with usual arguments works (@test-gghighligt_line
  no such index at level 1
  1: expect_silent(p <- gghighlight_line(d, aes(idx, value, colour = category), max(value) > 
         10)) at testthat/test-gghighligt_line.R:12
  2: quasi_capture(enquo(object), evaluate_promise)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  5: force(code)
  6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  7: withVisible(code)
  8: eval_bare(get_expr(quo), get_env(quo))
  9: gghighlight_line(d, aes(idx, value, colour = category), max(value) > 10)
  10: gghighlight(data = data, mapping = mapping, predicate_quo = rlang::enquo(predicate), 
         max_highlight = max_highlight, unhighlighted_colour = unhighlighted_colour, geom_func = ggplot2::geom_line, 
         use_group_by = use_group_by, ..., environment = environment)
  11: data_predicated[[as.character(group_key)]]
  12: `[[.tbl_df`(data_predicated, as.character(group_key))
  
  -- 3. Error: gghighligt_line() without direct labeling works (@test-gghighligt_l
  no such index at level 1
  1: expect_silent(p <- gghighlight_line(d, aes(idx, value, colour = category), max(value) > 
         10, use_direct_label = FALSE)) at testthat/test-gghighligt_line.R:35
  2: quasi_capture(enquo(object), evaluate_promise)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  5: force(code)
  6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  7: withVisible(code)
  8: eval_bare(get_expr(quo), get_env(quo))
  9: gghighlight_line(d, aes(idx, value, colour = category), max(value) > 10, use_direct_label = FALSE)
  10: gghighlight(data = data, mapping = mapping, predicate_quo = rlang::enquo(predicate), 
         max_highlight = max_highlight, unhighlighted_colour = unhighlighted_colour, geom_func = ggplot2::geom_line, 
         use_group_by = use_group_by, ..., environment = environment)
  11: data_predicated[[as.character(group_key)]]
  12: `[[.tbl_df`(data_predicated, as.character(group_key))
  
  -- 4. Error: gghighligt_line() works with facets (@test-gghighligt_line.R#76)  -
  no such index at level 1
  1: expect_silent(p <- gghighlight_line(d, aes(idx, value, colour = category), max(value) > 
         10) + facet_wrap(~category)) at testthat/test-gghighligt_line.R:76
  2: quasi_capture(enquo(object), evaluate_promise)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  5: force(code)
  6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  7: withVisible(code)
  8: eval_bare(get_expr(quo), get_env(quo))
  9: gghighlight_line(d, aes(idx, value, colour = category), max(value) > 10)
  10: gghighlight(data = data, mapping = mapping, predicate_quo = rlang::enquo(predicate), 
         max_highlight = max_highlight, unhighlighted_colour = unhighlighted_colour, geom_func = ggplot2::geom_line, 
         use_group_by = use_group_by, ..., environment = environment)
  11: data_predicated[[as.character(group_key)]]
  12: `[[.tbl_df`(data_predicated, as.character(group_key))
  
  -- 5. Error: gghighligt_line() works with numerical predicate (@test-gghighligt_
  no such index at level 1
  1: expect_silent(p <- gghighlight_line(d, aes(idx, value, colour = category), max(value), 
         max_highlight = 2L)) at testthat/test-gghighligt_line.R:107
  2: quasi_capture(enquo(object), evaluate_promise)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  5: force(code)
  6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  7: withVisible(code)
  8: eval_bare(get_expr(quo), get_env(quo))
  9: gghighlight_line(d, aes(idx, value, colour = category), max(value), max_highlight = 2L)
  10: gghighlight(data = data, mapping = mapping, predicate_quo = rlang::enquo(predicate), 
         max_highlight = max_highlight, unhighlighted_colour = unhighlighted_colour, geom_func = ggplot2::geom_line, 
         use_group_by = use_group_by, ..., environment = environment)
  11: data_predicated[[as.character(group_key)]]
  12: `[[.tbl_df`(data_predicated, as.character(group_key))
  
  == testthat results  ===========================================================
  OK: 27 SKIPPED: 0 FAILED: 5
  1. Failure: gghighlight_point() without label_key works (@test-gghighlight_point.R#38) 
  2. Error: gghighligt_line() with usual arguments works (@test-gghighligt_line.R#12) 
  3. Error: gghighligt_line() without direct labeling works (@test-gghighligt_line.R#35) 
  4. Error: gghighligt_line() works with facets (@test-gghighligt_line.R#76) 
  5. Error: gghighligt_line() works with numerical predicate (@test-gghighligt_line.R#107) 
  
  Error: testthat unit tests failed
  Execution halted