Running 'testthat.R' [62s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(heatwaveR)
  > 
  > test_check("heatwaveR")
  -- ERROR (test-graph_functions.R:13:3): event_line() doesn't fall over ---------
  Error: cannot xtfrm 'x'
  Backtrace:
      x
   1. \-heatwaveR::event_line(...) test-graph_functions.R:13:2
   2.   +-event[order(-abs(event[colnames(event) == metric])), ]
   3.   +-base::`[.data.frame`(...)
   4.   \-base::order(-abs(event[colnames(event) == metric]))
   5.     \-base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   6.       \-base:::FUN(X[[i]], ...)
   7.         +-base::as.vector(xtfrm(x))
   8.         +-base::xtfrm(x)
   9.         \-base::xtfrm.default(x)
  
  -- ERROR (test-graph_functions.R:20:3): event_line() does not require start and 
  Error: cannot xtfrm 'x'
  Backtrace:
       x
    1. +-testthat::expect_is(event_line(data = res), "ggplot") test-graph_functions.R:20:2
    2. | \-testthat::quasi_label(enquo(object), label, arg = "object")
    3. |   \-rlang::eval_bare(expr, quo_get_env(quo))
    4. \-heatwaveR::event_line(data = res)
    5.   +-event[order(-abs(event[colnames(event) == metric])), ]
    6.   +-base::`[.data.frame`(...)
    7.   \-base::order(-abs(event[colnames(event) == metric]))
    8.     \-base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
    9.       \-base:::FUN(X[[i]], ...)
   10.         +-base::as.vector(xtfrm(x))
   11.         +-base::xtfrm(x)
   12.         \-base::xtfrm.default(x)
  
  -- ERROR (test-graph_functions.R:56:3): event_line() category argument works ---
  Error: cannot xtfrm 'x'
  Backtrace:
      x
   1. \-heatwaveR::event_line(...) test-graph_functions.R:56:2
   2.   +-event[order(-abs(event[colnames(event) == metric])), ]
   3.   +-base::`[.data.frame`(...)
   4.   \-base::order(-abs(event[colnames(event) == metric]))
   5.     \-base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   6.       \-base:::FUN(X[[i]], ...)
   7.         +-base::as.vector(xtfrm(x))
   8.         +-base::xtfrm(x)
   9.         \-base::xtfrm.default(x)
  
  -- FAILURE (test-graph_functions.R:71:3): event_line() additional options error 
  `event_line(...)` threw an error with unexpected message.
  Expected match: "Please ensure that the argument provided to 'x_axis_title' is a character string."
  Actual message: "cannot xtfrm 'x'"
  Backtrace:
       x
    1. +-testthat::expect_error(...) test-graph_functions.R:71:2
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat:::.capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. \-heatwaveR::event_line(...)
    7.   +-event[order(-abs(event[colnames(event) == metric])), ]
    8.   +-base::`[.data.frame`(...)
    9.   \-base::order(-abs(event[colnames(event) == metric]))
   10.     \-base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11.       \-base:::FUN(X[[i]], ...)
   12.         +-base::as.vector(xtfrm(x))
   13.         +-base::xtfrm(x)
   14.         \-base::xtfrm.default(x)
  
  -- FAILURE (test-graph_functions.R:73:3): event_line() additional options error 
  `event_line(...)` threw an error with unexpected message.
  Expected match: "Please ensure that the argument provided to 'y_axis_title' is a character string."
  Actual message: "cannot xtfrm 'x'"
  Backtrace:
       x
    1. +-testthat::expect_error(...) test-graph_functions.R:73:2
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat:::.capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. \-heatwaveR::event_line(...)
    7.   +-event[order(-abs(event[colnames(event) == metric])), ]
    8.   +-base::`[.data.frame`(...)
    9.   \-base::order(-abs(event[colnames(event) == metric]))
   10.     \-base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11.       \-base:::FUN(X[[i]], ...)
   12.         +-base::as.vector(xtfrm(x))
   13.         +-base::xtfrm(x)
   14.         \-base::xtfrm.default(x)
  
  -- FAILURE (test-graph_functions.R:75:3): event_line() additional options error 
  `event_line(...)` threw an error with unexpected message.
  Expected match: "Please ensure that the argument provided to 'x_axis_text_angle' is a number."
  Actual message: "cannot xtfrm 'x'"
  Backtrace:
       x
    1. +-testthat::expect_error(...) test-graph_functions.R:75:2
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat:::.capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. \-heatwaveR::event_line(...)
    7.   +-event[order(-abs(event[colnames(event) == metric])), ]
    8.   +-base::`[.data.frame`(...)
    9.   \-base::order(-abs(event[colnames(event) == metric]))
   10.     \-base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11.       \-base:::FUN(X[[i]], ...)
   12.         +-base::as.vector(xtfrm(x))
   13.         +-base::xtfrm(x)
   14.         \-base::xtfrm.default(x)
  
  -- FAILURE (test-graph_functions.R:78:3): event_line() additional options error 
  `event_line(...)` threw an error with unexpected message.
  Expected match: "Please ensure that only numeric values are provided to 'y_axis_range'."
  Actual message: "cannot xtfrm 'x'"
  Backtrace:
       x
    1. +-testthat::expect_error(...) test-graph_functions.R:78:2
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat:::.capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. \-heatwaveR::event_line(...)
    7.   +-event[order(-abs(event[colnames(event) == metric])), ]
    8.   +-base::`[.data.frame`(...)
    9.   \-base::order(-abs(event[colnames(event) == metric]))
   10.     \-base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11.       \-base:::FUN(X[[i]], ...)
   12.         +-base::as.vector(xtfrm(x))
   13.         +-base::xtfrm(x)
   14.         \-base::xtfrm.default(x)
  
  -- ERROR (test-graph_functions.R:84:3): event_line() additional options error tr
  Error: cannot xtfrm 'x'
  Backtrace:
      x
   1. \-heatwaveR::event_line(...) test-graph_functions.R:84:2
   2.   +-event[order(-abs(event[colnames(event) == metric])), ]
   3.   +-base::`[.data.frame`(...)
   4.   \-base::order(-abs(event[colnames(event) == metric]))
   5.     \-base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   6.       \-base:::FUN(X[[i]], ...)
   7.         +-base::as.vector(xtfrm(x))
   8.         +-base::xtfrm(x)
   9.         \-base::xtfrm.default(x)
  
  == testthat results  ===========================================================
  ERROR (test-graph_functions.R:13:3): event_line() doesn't fall over
  ERROR (test-graph_functions.R:20:3): event_line() does not require start and end dates to be provided
  ERROR (test-graph_functions.R:56:3): event_line() category argument works
  FAILURE (test-graph_functions.R:71:3): event_line() additional options error traping works
  FAILURE (test-graph_functions.R:73:3): event_line() additional options error traping works
  FAILURE (test-graph_functions.R:75:3): event_line() additional options error traping works
  FAILURE (test-graph_functions.R:78:3): event_line() additional options error traping works
  ERROR (test-graph_functions.R:84:3): event_line() additional options error traping works
  
  [ FAIL 8 | WARN 0 | SKIP 0 | PASS 206 ]
  Error: Test failures
  Execution halted