Running 'testthat.R' [3s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(ggplot2)
  > library(dplyr)
  
  Attaching package: 'dplyr'
  
  The following object is masked from 'package:testthat':
  
      matches
  
  The following objects are masked from 'package:stats':
  
      filter, lag
  
  The following objects are masked from 'package:base':
  
      intersect, setdiff, setequal, union
  
  > 
  > library(ggRtsy)
  > 
  > test_check("ggRtsy")
  [ FAIL 1 | WARN 0 | SKIP 0 | PASS 3 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-RectangleFiller.R:7:3'): Rectangle Filler works ────────────────
  <vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition>
  Error in `data[[1, 1]]`: Can't extract rows past the end.
  i Location 1 doesn't exist.
  i There are only 0 rows.
  Backtrace:
       ▆
    1. ├─ggRtsy::RectangleFiller(...) at test-RectangleFiller.R:7:3
    2. │ ├─data[[1, 1]]
    3. │ └─tibble:::`[[.tbl_df`(data, 1, 1)
    4. │   └─tibble:::vectbl_as_row_location2(i, fast_nrow(x), i_arg)
    5. │     ├─tibble:::subclass_row_index_errors(...)
    6. │     │ └─base::withCallingHandlers(...)
    7. │     └─vctrs::vec_as_location2(i, n, call = call)
    8. │       ├─vctrs:::result_get(...)
    9. │       └─vctrs:::vec_as_location2_result(...)
   10. │         ├─base::tryCatch(...)
   11. │         │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   12. │         │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   13. │         │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   14. │         └─vctrs::vec_as_location(i, n, names = names, arg = arg, call = call)
   15. └─vctrs (local) `<fn>`()
   16.   └─vctrs:::stop_subscript_oob(...)
   17.     └─vctrs:::stop_subscript(...)
   18.       └─rlang::abort(...)
  
  [ FAIL 1 | WARN 0 | SKIP 0 | PASS 3 ]
  Error: Test failures
  Execution halted