Running ‘testthat.R’ [88s/115s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(ggtikz)
  > 
  > test_check("ggtikz")
  [ FAIL 9 | WARN 0 | SKIP 0 | PASS 283 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('test-ggtikzCanvas.R:127:5'): Panel viewport names are determined correctly ──
  `vp_name` (`actual`) not equal to `expect` (`expected`).
  
  `actual`:   "panel-2-1.10-9-10-9"
  `expected`: "panel-1-2.10-9-10-9"
  Backtrace:
      ▆
   1. └─ggtikz (local) expect_vp_name_equal(p_grid1, 2, 1, "panel-1-2.10-9-10-9") at test-ggtikzCanvas.R:127:5
   2.   └─testthat::expect_equal(vp_name, expect) at test-ggtikzCanvas.R:107:5
  ── Failure ('test-ggtikzCanvas.R:128:5'): Panel viewport names are determined correctly ──
  `vp_name` (`actual`) not equal to `expect` (`expected`).
  
  `actual`:   "panel-1-2.12-7-12-7"
  `expected`: "panel-2-1.12-7-12-7"
  Backtrace:
      ▆
   1. └─ggtikz (local) expect_vp_name_equal(p_grid1, 1, 2, "panel-2-1.12-7-12-7") at test-ggtikzCanvas.R:128:5
   2.   └─testthat::expect_equal(vp_name, expect) at test-ggtikzCanvas.R:107:5
  ── Failure ('test-ggtikzCanvas.R:130:5'): Panel viewport names are determined correctly ──
  `vp_name` (`actual`) not equal to `expect` (`expected`).
  
  `actual`:   "panel-1-3.14-7-14-7"
  `expected`: "panel-3-1.14-7-14-7"
  Backtrace:
      ▆
   1. └─ggtikz (local) expect_vp_name_equal(p_grid1, 1, 3, "panel-3-1.14-7-14-7") at test-ggtikzCanvas.R:130:5
   2.   └─testthat::expect_equal(vp_name, expect) at test-ggtikzCanvas.R:107:5
  ── Failure ('test-ggtikzCanvas.R:131:5'): Panel viewport names are determined correctly ──
  `vp_name` (`actual`) not equal to `expect` (`expected`).
  
  `actual`:   "panel-2-3.14-9-14-9"
  `expected`: "panel-3-2.14-9-14-9"
  Backtrace:
      ▆
   1. └─ggtikz (local) expect_vp_name_equal(p_grid1, 2, 3, "panel-3-2.14-9-14-9") at test-ggtikzCanvas.R:131:5
   2.   └─testthat::expect_equal(vp_name, expect) at test-ggtikzCanvas.R:107:5
  ── Failure ('test-ggtikzCanvas.R:135:5'): Panel viewport names are determined correctly ──
  `vp_name` (`actual`) not equal to `expect` (`expected`).
  
  `actual`:   "panel-2-1.10-9-10-9"
  `expected`: "panel-1-2.10-9-10-9"
  Backtrace:
      ▆
   1. └─ggtikz (local) expect_vp_name_equal(p_grid1, 2, 1, "panel-1-2.10-9-10-9") at test-ggtikzCanvas.R:135:5
   2.   └─testthat::expect_equal(vp_name, expect) at test-ggtikzCanvas.R:107:5
  ── Failure ('test-ggtikzCanvas.R:136:5'): Panel viewport names are determined correctly ──
  `vp_name` (`actual`) not equal to `expect` (`expected`).
  
  `actual`:   "panel-1-2.12-7-12-7"
  `expected`: "panel-2-1.12-7-12-7"
  Backtrace:
      ▆
   1. └─ggtikz (local) expect_vp_name_equal(p_grid1, 1, 2, "panel-2-1.12-7-12-7") at test-ggtikzCanvas.R:136:5
   2.   └─testthat::expect_equal(vp_name, expect) at test-ggtikzCanvas.R:107:5
  ── Failure ('test-ggtikzCanvas.R:138:5'): Panel viewport names are determined correctly ──
  `vp_name` (`actual`) not equal to `expect` (`expected`).
  
  `actual`:   "panel-1-3.14-7-14-7"
  `expected`: "panel-3-1.14-7-14-7"
  Backtrace:
      ▆
   1. └─ggtikz (local) expect_vp_name_equal(p_grid1, 1, 3, "panel-3-1.14-7-14-7") at test-ggtikzCanvas.R:138:5
   2.   └─testthat::expect_equal(vp_name, expect) at test-ggtikzCanvas.R:107:5
  ── Failure ('test-ggtikzCanvas.R:139:5'): Panel viewport names are determined correctly ──
  `vp_name` (`actual`) not equal to `expect` (`expected`).
  
  `actual`:   "panel-2-3.14-9-14-9"
  `expected`: "panel-3-2.14-9-14-9"
  Backtrace:
      ▆
   1. └─ggtikz (local) expect_vp_name_equal(p_grid1, 2, 3, "panel-3-2.14-9-14-9") at test-ggtikzCanvas.R:139:5
   2.   └─testthat::expect_equal(vp_name, expect) at test-ggtikzCanvas.R:107:5
  ── Failure ('test-ggtikzCanvas.R:161:5'): Panel viewports can be activated ─────
  grid::current.viewport()$name (`actual`) not equal to `expect` (`expected`).
  
  `actual`:   "panel-2-3.14-9-14-9"
  `expected`: "panel-3-2.14-9-14-9"
  Backtrace:
      ▆
   1. └─ggtikz (local) check_activated_vp(p_grid1, 2, 3, "panel-3-2.14-9-14-9") at test-ggtikzCanvas.R:161:5
   2.   └─ggtikz (local) expect_cur_vp_equal(expect) at test-ggtikzCanvas.R:152:5
   3.     └─testthat::expect_equal(grid::current.viewport()$name, expect) at test-ggtikzCanvas.R:144:5
  
  [ FAIL 9 | WARN 0 | SKIP 0 | PASS 283 ]
  Error: Test failures
  Execution halted