Running ‘test-all.R’ [33s/48s]
Running the tests in ‘tests/test-all.R’ failed.
Complete output:
  > ## Test `gratia` using the `testthat` package
  > 
  > ## Setup
  > library("testthat")
  > 
  > ## Runs the tests in tests/testthat
  > test_check("gratia")
  Loading required package: gratia
  ── 1. Error: draw() works with continuous by (@test-by-variables.R#17)  ────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: vdiffr::expect_doppelganger("continuous by-variable smmoth", draw(mod)) at testthat/test-by-variables.R:17
  2: writer(fig, testcase, title)
  3: print_plot(plot, title)
  4: draw(mod)
  5: draw.gam(mod)
  6: plot_grid(plotlist = g, align = align, axis = axis, ...)
  7: align_plots(plotlist = plots, align = align, axis = axis)
  8: do.call(grid::unit.pmax, lapply(grobs, function(x) {
         x$widths
     }))
  9: (function (...) 
     {
         pSummary(..., op = "max")
     })(structure(list(5.5, list(0, NULL, 1L), list(1, structure(list(widths = structure(list(
         0, list(1, structure(list(list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), just = "centre", 
             hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, name = "GRID.text.50", 
             gp = structure(list(fontsize = 11, col = "black", fontfamily = "", lineheight = 0.9, 
                 font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
         "grob", "gDesc")), 21L), list(0.0366666666666667, NULL, 2L)), class = "unit"), 
             201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
     "unit")), name = "axis.title.y.left..titleGrob.52", gp = NULL, vp = structure(list(
         parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
             justification = "centre", gp = structure(list(fontsize = 11, col = "black", 
                 fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
             clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                 nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                     list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                     )), just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                       name = "GRID.text.50", gp = structure(list(fontsize = 11, col = "black", 
                         fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                       vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                       NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                 "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                 0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 0.5)), class = "layout"), 
             layout.pos.row = NULL, layout.pos.col = NULL, valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
             valid.pos.col = NULL, name = "GRID.VP.9"), class = "viewport"), children = structure(list(
             structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
             )), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
             "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit"
             )), justification = "centre", gp = structure(list(), class = "gpar"), clip = FALSE, 
                 xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = NULL, 
                 layout.pos.col = c(2L, 2L), valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
                 valid.pos.col = c(2L, 2L), name = "GRID.VP.10"), class = "viewport")), class = c("vpList", 
         "viewport"))), class = c("vpTree", "viewport")), children = structure(list(GRID.text.50 = structure(list(
         label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", "unit")), 
         y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), just = "centre", 
         hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, name = "GRID.text.50", 
         gp = structure(list(fontsize = 11, col = "black", fontfamily = "", lineheight = 0.9, 
             font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", "grob", 
     "gDesc"))), class = "gList"), childrenOrder = "GRID.text.50"), class = c("titleGrob", 
     "gTree", "grob", "gDesc")), 21L), list(1, structure(list(list(1, structure(list(widths = structure(list(
         0, list(1, structure(list(list(1, structure(list(label = c("-2", "0", "2", "4"
         ), x = structure(c(1, 1, 1, 1), unit = 0L, class = c("simpleUnit", "unit")), 
             y = structure(c(0.00278370882794329, 0.281657727731519, 0.560531746635095, 
             0.839405765538671), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", 
             hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.40", 
             gp = structure(list(fontsize = 8.8, col = "grey30", fontfamily = "", lineheight = 0.9, 
                 font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
         "grob", "gDesc")), 21L), list(0, NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), 
         heights = structure(1, unit = 5L, class = c("simpleUnit", "unit")), name = "axis.text.y.left..titleGrob.42", 
         gp = NULL, vp = structure(list(parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
             justification = "centre", gp = structure(list(fontsize = 8.8, col = "grey30", 
                 fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
             clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                 nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                     list(1, structure(list(label = c("-2", "0", "2", "4"), x = structure(c(1, 
                     1, 1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.00278370882794329, 
                     0.281657727731519, 0.560531746635095, 0.839405765538671), unit = 4L, class = c("simpleUnit", 
                     "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                       name = "GRID.text.40", gp = structure(list(fontsize = 8.8, col = "grey30", 
                         fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                       vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0, 
                       NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                 "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                 0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 0.5)), class = "layout"), 
             layout.pos.row = NULL, layout.pos.col = NULL, valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
             valid.pos.col = NULL, name = "GRID.VP.4"), class = "viewport"), children = structure(list(
             structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
             )), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
             "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit"
             )), justification = "centre", gp = structure(list(), class = "gpar"), clip = FALSE, 
                 xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = NULL, 
                 layout.pos.col = c(2L, 2L), valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
                 valid.pos.col = c(2L, 2L), name = "GRID.VP.5"), class = "viewport")), class = c("vpList", 
         "viewport"))), class = c("vpTree", "viewport")), children = structure(list(GRID.text.40 = structure(list(
             label = c("-2", "0", "2", "4"), x = structure(c(1, 1, 1, 1), unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(c(0.00278370882794329, 0.281657727731519, 0.560531746635095, 
             0.839405765538671), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", 
             hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.40", 
             gp = structure(list(fontsize = 8.8, col = "grey30", fontfamily = "", lineheight = 0.9, 
                 font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
         "grob", "gDesc"))), class = "gList"), childrenOrder = "GRID.text.40"), class = c("titleGrob", 
     "gTree", "grob", "gDesc")), 21L), list(2.75, NULL, 8L)), class = "unit"), 201L), 
         list(1, NULL, 5L), list(0, NULL, 1L), list(0, NULL, 1L), list(0, NULL, 8L), 5.5), class = "unit"))
  10: pSummary(..., op = "max")
  
  ── 2. Error: draw() works with continuous by and fixed scales (@test-by-variable
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: draw(mod, scales = "fixed") at testthat/test-by-variables.R:21
  2: draw.gam(mod, scales = "fixed")
  3: plot_grid(plotlist = g, align = align, axis = axis, ...)
  4: align_plots(plotlist = plots, align = align, axis = axis)
  5: do.call(grid::unit.pmax, lapply(grobs, function(x) {
         x$widths
     }))
  6: (function (...) 
     {
         pSummary(..., op = "max")
     })(structure(list(5.5, list(0, NULL, 1L), list(1, structure(list(widths = structure(list(
         0, list(1, structure(list(list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), just = "centre", 
             hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, name = "GRID.text.100", 
             gp = structure(list(fontsize = 11, col = "black", fontfamily = "", lineheight = 0.9, 
                 font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
         "grob", "gDesc")), 21L), list(0.0366666666666667, NULL, 2L)), class = "unit"), 
             201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
     "unit")), name = "axis.title.y.left..titleGrob.102", gp = NULL, vp = structure(list(
         parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
             justification = "centre", gp = structure(list(fontsize = 11, col = "black", 
                 fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
             clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                 nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                     list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                     )), just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                       name = "GRID.text.100", gp = structure(list(fontsize = 11, col = "black", 
                         fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                       vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                       NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                 "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                 0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 0.5)), class = "layout"), 
             layout.pos.row = NULL, layout.pos.col = NULL, valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
             valid.pos.col = NULL, name = "GRID.VP.21"), class = "viewport"), children = structure(list(
             structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
             )), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
             "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit"
             )), justification = "centre", gp = structure(list(), class = "gpar"), clip = FALSE, 
                 xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = NULL, 
                 layout.pos.col = c(2L, 2L), valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
                 valid.pos.col = c(2L, 2L), name = "GRID.VP.22"), class = "viewport")), class = c("vpList", 
         "viewport"))), class = c("vpTree", "viewport")), children = structure(list(GRID.text.100 = structure(list(
         label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", "unit")), 
         y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), just = "centre", 
         hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, name = "GRID.text.100", 
         gp = structure(list(fontsize = 11, col = "black", fontfamily = "", lineheight = 0.9, 
             font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", "grob", 
     "gDesc"))), class = "gList"), childrenOrder = "GRID.text.100"), class = c("titleGrob", 
     "gTree", "grob", "gDesc")), 21L), list(1, structure(list(list(1, structure(list(widths = structure(list(
         0, list(1, structure(list(list(1, structure(list(label = c("-2", "0", "2", "4"
         ), x = structure(c(1, 1, 1, 1), unit = 0L, class = c("simpleUnit", "unit")), 
             y = structure(c(0.00278370882794329, 0.281657727731519, 0.560531746635095, 
             0.839405765538671), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", 
             hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.90", 
             gp = structure(list(fontsize = 8.8, col = "grey30", fontfamily = "", lineheight = 0.9, 
                 font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
         "grob", "gDesc")), 21L), list(0, NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), 
         heights = structure(1, unit = 5L, class = c("simpleUnit", "unit")), name = "axis.text.y.left..titleGrob.92", 
         gp = NULL, vp = structure(list(parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
             justification = "centre", gp = structure(list(fontsize = 8.8, col = "grey30", 
                 fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
             clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                 nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                     list(1, structure(list(label = c("-2", "0", "2", "4"), x = structure(c(1, 
                     1, 1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.00278370882794329, 
                     0.281657727731519, 0.560531746635095, 0.839405765538671), unit = 4L, class = c("simpleUnit", 
                     "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                       name = "GRID.text.90", gp = structure(list(fontsize = 8.8, col = "grey30", 
                         fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                       vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0, 
                       NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                 "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                 0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 0.5)), class = "layout"), 
             layout.pos.row = NULL, layout.pos.col = NULL, valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
             valid.pos.col = NULL, name = "GRID.VP.16"), class = "viewport"), children = structure(list(
             structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
             )), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
             "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit"
             )), justification = "centre", gp = structure(list(), class = "gpar"), clip = FALSE, 
                 xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = NULL, 
                 layout.pos.col = c(2L, 2L), valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
                 valid.pos.col = c(2L, 2L), name = "GRID.VP.17"), class = "viewport")), class = c("vpList", 
         "viewport"))), class = c("vpTree", "viewport")), children = structure(list(GRID.text.90 = structure(list(
             label = c("-2", "0", "2", "4"), x = structure(c(1, 1, 1, 1), unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(c(0.00278370882794329, 0.281657727731519, 0.560531746635095, 
             0.839405765538671), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", 
             hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.90", 
             gp = structure(list(fontsize = 8.8, col = "grey30", fontfamily = "", lineheight = 0.9, 
                 font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
         "grob", "gDesc"))), class = "gList"), childrenOrder = "GRID.text.90"), class = c("titleGrob", 
     "gTree", "grob", "gDesc")), 21L), list(2.75, NULL, 8L)), class = "unit"), 201L), 
         list(1, NULL, 5L), list(0, NULL, 1L), list(0, NULL, 1L), list(0, NULL, 8L), 5.5), class = "unit"))
  7: pSummary(..., op = "max")
  
  list()
  ── 3. Error: appraise() works (@test-diagnostic-plots.R#18)  ───────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: appraise(mod) at testthat/test-diagnostic-plots.R:18
  2: plot_grid(plt1, plt2, plt3, plt4, ncol = ncol, align = "hv", axis = "lrtb", ...)
  3: align_plots(plotlist = plots, align = align, axis = axis)
  4: do.call(grid::unit.pmax, lapply(grobs, function(x) {
         x$widths
     }))
  5: (function (...) 
     {
         pSummary(..., op = "max")
     })(structure(list(5.5, list(0, NULL, 1L), list(1, structure(list(widths = structure(list(
         0, list(1, structure(list(list(1, structure(list(label = "Deviance residuals", 
             x = structure(0, unit = 0L, class = c("simpleUnit", "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", 
             "unit")), just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
             name = "GRID.text.146", gp = structure(list(fontsize = 11, col = "black", 
                 fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
             vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
             NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
     "unit")), name = "axis.title.y.left..titleGrob.148", gp = NULL, vp = structure(list(
         parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
             justification = "centre", gp = structure(list(fontsize = 11, col = "black", 
                 fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
             clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                 nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                     list(1, structure(list(label = "Deviance residuals", x = structure(0, unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                     )), just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                       name = "GRID.text.146", gp = structure(list(fontsize = 11, col = "black", 
                         fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                       vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                       NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                 "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                 0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 0.5)), class = "layout"), 
             layout.pos.row = NULL, layout.pos.col = NULL, valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
             valid.pos.col = NULL, name = "GRID.VP.33"), class = "viewport"), children = structure(list(
             structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
             )), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
             "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit"
             )), justification = "centre", gp = structure(list(), class = "gpar"), clip = FALSE, 
                 xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = NULL, 
                 layout.pos.col = c(2L, 2L), valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
                 valid.pos.col = c(2L, 2L), name = "GRID.VP.34"), class = "viewport")), class = c("vpList", 
         "viewport"))), class = c("vpTree", "viewport")), children = structure(list(GRID.text.146 = structure(list(
         label = "Deviance residuals", x = structure(0, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), just = "centre", 
         hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, name = "GRID.text.146", 
         gp = structure(list(fontsize = 11, col = "black", fontfamily = "", lineheight = 0.9, 
             font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", "grob", 
     "gDesc"))), class = "gList"), childrenOrder = "GRID.text.146"), class = c("titleGrob", 
     "gTree", "grob", "gDesc")), 21L), list(1, structure(list(list(1, structure(list(widths = structure(list(
         0, list(1, structure(list(list(1, structure(list(label = c("-8", "-4", "0", "4"
         ), x = structure(c(1, 1, 1, 1), unit = 0L, class = c("simpleUnit", "unit")), 
             y = structure(c(0.0257813142416636, 0.288654124641197, 0.551526935040731, 
             0.814399745440264), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", 
             hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.136", 
             gp = structure(list(fontsize = 8.8, col = "grey30", fontfamily = "", lineheight = 0.9, 
                 font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
         "grob", "gDesc")), 21L), list(0, NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), 
         heights = structure(1, unit = 5L, class = c("simpleUnit", "unit")), name = "axis.text.y.left..titleGrob.138", 
         gp = NULL, vp = structure(list(parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
             justification = "centre", gp = structure(list(fontsize = 8.8, col = "grey30", 
                 fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
             clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                 nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                     list(1, structure(list(label = c("-8", "-4", "0", "4"), x = structure(c(1, 
                     1, 1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.0257813142416636, 
                     0.288654124641197, 0.551526935040731, 0.814399745440264), unit = 4L, class = c("simpleUnit", 
                     "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                       name = "GRID.text.136", gp = structure(list(fontsize = 8.8, col = "grey30", 
                         fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                       vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0, 
                       NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                 "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                 0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 0.5)), class = "layout"), 
             layout.pos.row = NULL, layout.pos.col = NULL, valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
             valid.pos.col = NULL, name = "GRID.VP.28"), class = "viewport"), children = structure(list(
             structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
             )), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
             "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit"
             )), justification = "centre", gp = structure(list(), class = "gpar"), clip = FALSE, 
                 xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = NULL, 
                 layout.pos.col = c(2L, 2L), valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
                 valid.pos.col = c(2L, 2L), name = "GRID.VP.29"), class = "viewport")), class = c("vpList", 
         "viewport"))), class = c("vpTree", "viewport")), children = structure(list(GRID.text.136 = structure(list(
             label = c("-8", "-4", "0", "4"), x = structure(c(1, 1, 1, 1), unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(c(0.0257813142416636, 0.288654124641197, 0.551526935040731, 
             0.814399745440264), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", 
             hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.136", 
             gp = structure(list(fontsize = 8.8, col = "grey30", fontfamily = "", lineheight = 0.9, 
                 font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
         "grob", "gDesc"))), class = "gList"), childrenOrder = "GRID.text.136"), class = c("titleGrob", 
     "gTree", "grob", "gDesc")), 21L), list(2.75, NULL, 8L)), class = "unit"), 201L), 
         list(1, NULL, 5L), list(0, NULL, 1L), list(0, NULL, 1L), list(0, NULL, 8L), 5.5), class = "unit"), 
         structure(list(5.5, list(0, NULL, 1L), list(1, structure(list(widths = structure(list(
             0, list(1, structure(list(list(1, structure(list(label = "Deviance residuals", 
                 x = structure(0, unit = 0L, class = c("simpleUnit", "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                 name = "GRID.text.194", gp = structure(list(fontsize = 11, col = "black", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                 NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
         "unit")), name = "axis.title.y.left..titleGrob.196", gp = NULL, vp = structure(list(
             parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", 
                 "unit")), justification = "centre", gp = structure(list(fontsize = 11, 
                     col = "black", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                     nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                       list(1, structure(list(label = "Deviance residuals", x = structure(0, unit = 0L, class = c("simpleUnit", 
                       "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", 
                       "unit")), just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                         name = "GRID.text.194", gp = structure(list(fontsize = 11, col = "black", 
                           fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                         vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                         NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                     "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                     0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 
                     0.5)), class = "layout"), layout.pos.row = NULL, layout.pos.col = NULL, 
                 valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, 
                 name = "GRID.VP.47"), class = "viewport"), children = structure(list(
                 structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     justification = "centre", gp = structure(list(), class = "gpar"), 
                     clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, 
                     layout.pos.row = NULL, layout.pos.col = c(2L, 2L), valid.just = c(0.5, 
                     0.5), valid.pos.row = NULL, valid.pos.col = c(2L, 2L), name = "GRID.VP.48"), class = "viewport")), class = c("vpList", 
             "viewport"))), class = c("vpTree", "viewport")), children = structure(list(
             GRID.text.194 = structure(list(label = "Deviance residuals", x = structure(0, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                 name = "GRID.text.194", gp = structure(list(fontsize = 11, col = "black", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), childrenOrder = "GRID.text.194"), class = c("titleGrob", 
         "gTree", "grob", "gDesc")), 21L), list(1, structure(list(list(1, structure(list(
             widths = structure(list(0, list(1, structure(list(list(1, structure(list(
                 label = c("-8", "-4", "0", "4"), x = structure(c(1, 1, 1, 1), unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(c(0.0257813142416636, 0.288654124641197, 0.551526935040731, 
                 0.814399745440264), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", 
                 hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.184", 
                 gp = structure(list(fontsize = 8.8, col = "grey30", fontfamily = "", 
                     lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
             "grob", "gDesc")), 21L), list(0, NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), 
             heights = structure(1, unit = 5L, class = c("simpleUnit", "unit")), name = "axis.text.y.left..titleGrob.186", 
             gp = NULL, vp = structure(list(parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", 
                 "unit")), justification = "centre", gp = structure(list(fontsize = 8.8, 
                     col = "grey30", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                     nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                       list(1, structure(list(label = c("-8", "-4", "0", "4"), x = structure(c(1, 
                       1, 1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.0257813142416636, 
                       0.288654124641197, 0.551526935040731, 0.814399745440264), unit = 4L, class = c("simpleUnit", 
                       "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                         name = "GRID.text.184", gp = structure(list(fontsize = 8.8, col = "grey30", 
                           fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                         vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0, 
                         NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                     "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                     0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 
                     0.5)), class = "layout"), layout.pos.row = NULL, layout.pos.col = NULL, 
                 valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, 
                 name = "GRID.VP.42"), class = "viewport"), children = structure(list(
                 structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     justification = "centre", gp = structure(list(), class = "gpar"), 
                     clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, 
                     layout.pos.row = NULL, layout.pos.col = c(2L, 2L), valid.just = c(0.5, 
                     0.5), valid.pos.row = NULL, valid.pos.col = c(2L, 2L), name = "GRID.VP.43"), class = "viewport")), class = c("vpList", 
             "viewport"))), class = c("vpTree", "viewport")), children = structure(list(
                 GRID.text.184 = structure(list(label = c("-8", "-4", "0", "4"), x = structure(c(1, 
                 1, 1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.0257813142416636, 
                 0.288654124641197, 0.551526935040731, 0.814399745440264), unit = 4L, class = c("simpleUnit", 
                 "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                     name = "GRID.text.184", gp = structure(list(fontsize = 8.8, col = "grey30", 
                       fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                     vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), 
             childrenOrder = "GRID.text.184"), class = c("titleGrob", "gTree", "grob", 
         "gDesc")), 21L), list(2.75, NULL, 8L)), class = "unit"), 201L), list(1, NULL, 
             5L), list(0, NULL, 1L), list(0, NULL, 1L), list(0, NULL, 8L), 5.5), class = "unit"), 
         structure(list(5.5, list(0, NULL, 1L), list(1, structure(list(widths = structure(list(
             0, list(1, structure(list(list(1, structure(list(label = "Frequency", x = structure(0, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                 name = "GRID.text.241", gp = structure(list(fontsize = 11, col = "black", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                 NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
         "unit")), name = "axis.title.y.left..titleGrob.243", gp = NULL, vp = structure(list(
             parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", 
                 "unit")), justification = "centre", gp = structure(list(fontsize = 11, 
                     col = "black", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                     nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                       list(1, structure(list(label = "Frequency", x = structure(0, unit = 0L, class = c("simpleUnit", 
                       "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", 
                       "unit")), just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                         name = "GRID.text.241", gp = structure(list(fontsize = 11, col = "black", 
                           fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                         vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                         NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                     "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                     0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 
                     0.5)), class = "layout"), layout.pos.row = NULL, layout.pos.col = NULL, 
                 valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, 
                 name = "GRID.VP.61"), class = "viewport"), children = structure(list(
                 structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     justification = "centre", gp = structure(list(), class = "gpar"), 
                     clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, 
                     layout.pos.row = NULL, layout.pos.col = c(2L, 2L), valid.just = c(0.5, 
                     0.5), valid.pos.row = NULL, valid.pos.col = c(2L, 2L), name = "GRID.VP.62"), class = "viewport")), class = c("vpList", 
             "viewport"))), class = c("vpTree", "viewport")), children = structure(list(
             GRID.text.241 = structure(list(label = "Frequency", x = structure(0, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                 name = "GRID.text.241", gp = structure(list(fontsize = 11, col = "black", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), childrenOrder = "GRID.text.241"), class = c("titleGrob", 
         "gTree", "grob", "gDesc")), 21L), list(1, structure(list(list(1, structure(list(
             widths = structure(list(0, list(1, structure(list(list(1, structure(list(
                 label = c("0", "25", "50", "75", "100"), x = structure(c(1, 1, 1, 1, 
                 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.0454545454545455, 
                 0.28219696969697, 0.518939393939394, 0.755681818181818, 0.992424242424242
                 ), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", hjust = 1, 
                 vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.231", 
                 gp = structure(list(fontsize = 8.8, col = "grey30", fontfamily = "", 
                     lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
             "grob", "gDesc")), 21L), list(0, NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), 
             heights = structure(1, unit = 5L, class = c("simpleUnit", "unit")), name = "axis.text.y.left..titleGrob.233", 
             gp = NULL, vp = structure(list(parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", 
                 "unit")), justification = "centre", gp = structure(list(fontsize = 8.8, 
                     col = "grey30", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                     nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                       list(1, structure(list(label = c("0", "25", "50", "75", "100"), 
                         x = structure(c(1, 1, 1, 1, 1), unit = 0L, class = c("simpleUnit", 
                         "unit")), y = structure(c(0.0454545454545455, 0.28219696969697, 
                         0.518939393939394, 0.755681818181818, 0.992424242424242), unit = 4L, class = c("simpleUnit", 
                         "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                         name = "GRID.text.231", gp = structure(list(fontsize = 8.8, col = "grey30", 
                           fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                         vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0, 
                         NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                     "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                     0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 
                     0.5)), class = "layout"), layout.pos.row = NULL, layout.pos.col = NULL, 
                 valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, 
                 name = "GRID.VP.56"), class = "viewport"), children = structure(list(
                 structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     justification = "centre", gp = structure(list(), class = "gpar"), 
                     clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, 
                     layout.pos.row = NULL, layout.pos.col = c(2L, 2L), valid.just = c(0.5, 
                     0.5), valid.pos.row = NULL, valid.pos.col = c(2L, 2L), name = "GRID.VP.57"), class = "viewport")), class = c("vpList", 
             "viewport"))), class = c("vpTree", "viewport")), children = structure(list(
                 GRID.text.231 = structure(list(label = c("0", "25", "50", "75", "100"
                 ), x = structure(c(1, 1, 1, 1, 1), unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(c(0.0454545454545455, 0.28219696969697, 0.518939393939394, 
                 0.755681818181818, 0.992424242424242), unit = 4L, class = c("simpleUnit", 
                 "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                     name = "GRID.text.231", gp = structure(list(fontsize = 8.8, col = "grey30", 
                       fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                     vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), 
             childrenOrder = "GRID.text.231"), class = c("titleGrob", "gTree", "grob", 
         "gDesc")), 21L), list(2.75, NULL, 8L)), class = "unit"), 201L), list(1, NULL, 
             5L), list(0, NULL, 1L), list(0, NULL, 1L), list(0, NULL, 8L), 5.5), class = "unit"), 
         structure(list(5.5, list(0, NULL, 1L), list(1, structure(list(widths = structure(list(
             0, list(1, structure(list(list(1, structure(list(label = "Response", x = structure(0, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                 name = "GRID.text.286", gp = structure(list(fontsize = 11, col = "black", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                 NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
         "unit")), name = "axis.title.y.left..titleGrob.288", gp = NULL, vp = structure(list(
             parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", 
                 "unit")), justification = "centre", gp = structure(list(fontsize = 11, 
                     col = "black", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                     nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                       list(1, structure(list(label = "Response", x = structure(0, unit = 0L, class = c("simpleUnit", 
                       "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", 
                       "unit")), just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                         name = "GRID.text.286", gp = structure(list(fontsize = 11, col = "black", 
                           fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                         vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                         NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                     "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                     0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 
                     0.5)), class = "layout"), layout.pos.row = NULL, layout.pos.col = NULL, 
                 valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, 
                 name = "GRID.VP.73"), class = "viewport"), children = structure(list(
                 structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     justification = "centre", gp = structure(list(), class = "gpar"), 
                     clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, 
                     layout.pos.row = NULL, layout.pos.col = c(2L, 2L), valid.just = c(0.5, 
                     0.5), valid.pos.row = NULL, valid.pos.col = c(2L, 2L), name = "GRID.VP.74"), class = "viewport")), class = c("vpList", 
             "viewport"))), class = c("vpTree", "viewport")), children = structure(list(
             GRID.text.286 = structure(list(label = "Response", x = structure(0, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                 name = "GRID.text.286", gp = structure(list(fontsize = 11, col = "black", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), childrenOrder = "GRID.text.286"), class = c("titleGrob", 
         "gTree", "grob", "gDesc")), 21L), list(1, structure(list(list(1, structure(list(
             widths = structure(list(0, list(1, structure(list(list(1, structure(list(
                 label = c("0", "5", "10", "15", "20"), x = structure(c(1, 1, 1, 1, 1), unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(c(0.161148435838527, 0.354480835766378, 0.547813235694229, 
                 0.74114563562208, 0.93447803554993), unit = 4L, class = c("simpleUnit", 
                 "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                 name = "GRID.text.276", gp = structure(list(fontsize = 8.8, col = "grey30", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0, NULL, 
                 2L)), class = "unit"), 201L), 2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
             "unit")), name = "axis.text.y.left..titleGrob.278", gp = NULL, vp = structure(list(
                 parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     justification = "centre", gp = structure(list(fontsize = 8.8, col = "grey30", 
                       fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                     clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                       nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                         list(1, structure(list(label = c("0", "5", "10", "15", "20"), 
                           x = structure(c(1, 1, 1, 1, 1), unit = 0L, class = c("simpleUnit", 
                           "unit")), y = structure(c(0.161148435838527, 0.354480835766378, 
                           0.547813235694229, 0.74114563562208, 0.93447803554993), unit = 4L, class = c("simpleUnit", 
                           "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, 
                           check.overlap = FALSE, name = "GRID.text.276", gp = structure(list(
                             fontsize = 8.8, col = "grey30", fontfamily = "", lineheight = 0.9, 
                             font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
                         "grob", "gDesc")), 21L), list(0, NULL, 2L)), class = "unit"), 
                         201L), 2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                       "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                       0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 
                       0.5)), class = "layout"), layout.pos.row = NULL, layout.pos.col = NULL, 
                     valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, 
                     name = "GRID.VP.68"), class = "viewport"), children = structure(list(
                     structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                     )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit"
                     )), height = structure(1, unit = 0L, class = c("simpleUnit", "unit"
                     )), justification = "centre", gp = structure(list(), class = "gpar"), 
                       clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, 
                       layout.pos.row = NULL, layout.pos.col = c(2L, 2L), valid.just = c(0.5, 
                       0.5), valid.pos.row = NULL, valid.pos.col = c(2L, 2L), name = "GRID.VP.69"), class = "viewport")), class = c("vpList", 
                 "viewport"))), class = c("vpTree", "viewport")), children = structure(list(
                 GRID.text.276 = structure(list(label = c("0", "5", "10", "15", "20"), 
                     x = structure(c(1, 1, 1, 1, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0.161148435838527, 0.354480835766378, 0.547813235694229, 
                     0.74114563562208, 0.93447803554993), unit = 4L, class = c("simpleUnit", 
                     "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                     name = "GRID.text.276", gp = structure(list(fontsize = 8.8, col = "grey30", 
                       fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                     vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), 
             childrenOrder = "GRID.text.276"), class = c("titleGrob", "gTree", "grob", 
         "gDesc")), 21L), list(2.75, NULL, 8L)), class = "unit"), 201L), list(1, NULL, 
             5L), list(0, NULL, 1L), list(0, NULL, 1L), list(0, NULL, 8L), 5.5), class = "unit"))
  6: pSummary(..., op = "max")
  
  ── 4. Error: draw.evaluated_1d_smooth() plots the smooth (@test-draw-methods.R#2
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_doppelganger("draw 1d smooth for selected smooth", plt) at testthat/test-draw-methods.R:28
  2: writer(fig, testcase, title)
  3: print_plot(plot, title)
  4: print_plot.ggplot(plot, title)
  5: print(p)
  6: print.ggplot(p)
  7: grid.draw(gtable)
  8: grid.draw.gTree(gtable)
  9: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  10: drawGTree(x)
  11: preDraw(x)
  12: preDraw.gTree(x)
  13: pushvpgp(x)
  14: pushgrobvp(x$vp)
  15: pushgrobvp.viewport(x$vp)
  16: pushViewport(vp, recording = FALSE)
  17: lapply(vps, push.vp, recording)
  18: FUN(X[[i]], ...)
  19: push.vp.viewport(X[[i]], ...)
  20: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 5. Error: draw.gam works with numeric select (@test-draw-methods.R#32)  ─────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: draw(m1, select = 2) at testthat/test-draw-methods.R:32
  2: draw.gam(m1, select = 2)
  3: plot_grid(plotlist = g, align = align, axis = axis, ...)
  4: align_plots(plotlist = plots, align = align, axis = axis)
  5: do.call(grid::unit.pmax, lapply(grobs, function(x) {
         x$widths
     }))
  6: (function (...) 
     {
         pSummary(..., op = "max")
     })(structure(list(5.5, list(0, NULL, 1L), list(1, structure(list(widths = structure(list(
         0, list(1, structure(list(list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), just = "centre", 
             hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, name = "GRID.text.381", 
             gp = structure(list(fontsize = 11, col = "black", fontfamily = "", lineheight = 0.9, 
                 font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
         "grob", "gDesc")), 21L), list(0.0366666666666667, NULL, 2L)), class = "unit"), 
             201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
     "unit")), name = "axis.title.y.left..titleGrob.383", gp = NULL, vp = structure(list(
         parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
             justification = "centre", gp = structure(list(fontsize = 11, col = "black", 
                 fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
             clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                 nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                     list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                     )), just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                       name = "GRID.text.381", gp = structure(list(fontsize = 11, col = "black", 
                         fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                       vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                       NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                 "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                 0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 0.5)), class = "layout"), 
             layout.pos.row = NULL, layout.pos.col = NULL, valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
             valid.pos.col = NULL, name = "GRID.VP.97"), class = "viewport"), children = structure(list(
             structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
             )), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
             "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit"
             )), justification = "centre", gp = structure(list(), class = "gpar"), clip = FALSE, 
                 xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = NULL, 
                 layout.pos.col = c(2L, 2L), valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
                 valid.pos.col = c(2L, 2L), name = "GRID.VP.98"), class = "viewport")), class = c("vpList", 
         "viewport"))), class = c("vpTree", "viewport")), children = structure(list(GRID.text.381 = structure(list(
         label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", "unit")), 
         y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), just = "centre", 
         hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, name = "GRID.text.381", 
         gp = structure(list(fontsize = 11, col = "black", fontfamily = "", lineheight = 0.9, 
             font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", "grob", 
     "gDesc"))), class = "gList"), childrenOrder = "GRID.text.381"), class = c("titleGrob", 
     "gTree", "grob", "gDesc")), 21L), list(1, structure(list(list(1, structure(list(widths = structure(list(
         0, list(1, structure(list(list(1, structure(list(label = c("-2.5", "0.0", "2.5"
         ), x = structure(c(1, 1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.069800287566079, 
         0.382676081428801, 0.695551875291523), unit = 4L, class = c("simpleUnit", "unit"
         )), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
             name = "GRID.text.371", gp = structure(list(fontsize = 8.8, col = "grey30", 
                 fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
             vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0, NULL, 2L)), class = "unit"), 
             201L), 2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
     "unit")), name = "axis.text.y.left..titleGrob.373", gp = NULL, vp = structure(list(
         parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
             justification = "centre", gp = structure(list(fontsize = 8.8, col = "grey30", 
                 fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
             clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                 nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                     list(1, structure(list(label = c("-2.5", "0.0", "2.5"), x = structure(c(1, 
                     1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.069800287566079, 
                     0.382676081428801, 0.695551875291523), unit = 4L, class = c("simpleUnit", 
                     "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                       name = "GRID.text.371", gp = structure(list(fontsize = 8.8, col = "grey30", 
                         fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                       vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0, 
                       NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                 "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                 0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 0.5)), class = "layout"), 
             layout.pos.row = NULL, layout.pos.col = NULL, valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
             valid.pos.col = NULL, name = "GRID.VP.92"), class = "viewport"), children = structure(list(
             structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
             )), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
             "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit"
             )), justification = "centre", gp = structure(list(), class = "gpar"), clip = FALSE, 
                 xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = NULL, 
                 layout.pos.col = c(2L, 2L), valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
                 valid.pos.col = c(2L, 2L), name = "GRID.VP.93"), class = "viewport")), class = c("vpList", 
         "viewport"))), class = c("vpTree", "viewport")), children = structure(list(GRID.text.371 = structure(list(
         label = c("-2.5", "0.0", "2.5"), x = structure(c(1, 1, 1), unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(c(0.069800287566079, 0.382676081428801, 0.695551875291523
         ), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", hjust = 1, vjust = 0.5, 
         rot = 0, check.overlap = FALSE, name = "GRID.text.371", gp = structure(list(fontsize = 8.8, 
             col = "grey30", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
         vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), childrenOrder = "GRID.text.371"), class = c("titleGrob", 
     "gTree", "grob", "gDesc")), 21L), list(2.75, NULL, 8L)), class = "unit"), 201L), 
         list(1, NULL, 5L), list(0, NULL, 1L), list(0, NULL, 1L), list(0, NULL, 8L), 5.5), class = "unit"))
  7: pSummary(..., op = "max")
  
  ── 6. Error: draw.gam works with character select (@test-draw-methods.R#54)  ───
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: draw(m1, select = "s(x1)") at testthat/test-draw-methods.R:54
  2: draw.gam(m1, select = "s(x1)")
  3: plot_grid(plotlist = g, align = align, axis = axis, ...)
  4: align_plots(plotlist = plots, align = align, axis = axis)
  5: do.call(grid::unit.pmax, lapply(grobs, function(x) {
         x$widths
     }))
  6: (function (...) 
     {
         pSummary(..., op = "max")
     })(structure(list(5.5, list(0, NULL, 1L), list(1, structure(list(widths = structure(list(
         0, list(1, structure(list(list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), just = "centre", 
             hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, name = "GRID.text.431", 
             gp = structure(list(fontsize = 11, col = "black", fontfamily = "", lineheight = 0.9, 
                 font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
         "grob", "gDesc")), 21L), list(0.0366666666666667, NULL, 2L)), class = "unit"), 
             201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
     "unit")), name = "axis.title.y.left..titleGrob.433", gp = NULL, vp = structure(list(
         parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
             justification = "centre", gp = structure(list(fontsize = 11, col = "black", 
                 fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
             clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                 nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                     list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                     )), just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                       name = "GRID.text.431", gp = structure(list(fontsize = 11, col = "black", 
                         fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                       vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                       NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                 "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                 0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 0.5)), class = "layout"), 
             layout.pos.row = NULL, layout.pos.col = NULL, valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
             valid.pos.col = NULL, name = "GRID.VP.109"), class = "viewport"), children = structure(list(
             structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
             )), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
             "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit"
             )), justification = "centre", gp = structure(list(), class = "gpar"), clip = FALSE, 
                 xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = NULL, 
                 layout.pos.col = c(2L, 2L), valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
                 valid.pos.col = c(2L, 2L), name = "GRID.VP.110"), class = "viewport")), class = c("vpList", 
         "viewport"))), class = c("vpTree", "viewport")), children = structure(list(GRID.text.431 = structure(list(
         label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", "unit")), 
         y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), just = "centre", 
         hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, name = "GRID.text.431", 
         gp = structure(list(fontsize = 11, col = "black", fontfamily = "", lineheight = 0.9, 
             font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", "grob", 
     "gDesc"))), class = "gList"), childrenOrder = "GRID.text.431"), class = c("titleGrob", 
     "gTree", "grob", "gDesc")), 21L), list(1, structure(list(list(1, structure(list(widths = structure(list(
         0, list(1, structure(list(list(1, structure(list(label = c("-2.5", "0.0", "2.5"
         ), x = structure(c(1, 1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.069800287566079, 
         0.382676081428801, 0.695551875291523), unit = 4L, class = c("simpleUnit", "unit"
         )), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
             name = "GRID.text.421", gp = structure(list(fontsize = 8.8, col = "grey30", 
                 fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
             vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0, NULL, 2L)), class = "unit"), 
             201L), 2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
     "unit")), name = "axis.text.y.left..titleGrob.423", gp = NULL, vp = structure(list(
         parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
             justification = "centre", gp = structure(list(fontsize = 8.8, col = "grey30", 
                 fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
             clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                 nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                     list(1, structure(list(label = c("-2.5", "0.0", "2.5"), x = structure(c(1, 
                     1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.069800287566079, 
                     0.382676081428801, 0.695551875291523), unit = 4L, class = c("simpleUnit", 
                     "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                       name = "GRID.text.421", gp = structure(list(fontsize = 8.8, col = "grey30", 
                         fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                       vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0, 
                       NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                 "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                 0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 0.5)), class = "layout"), 
             layout.pos.row = NULL, layout.pos.col = NULL, valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
             valid.pos.col = NULL, name = "GRID.VP.104"), class = "viewport"), children = structure(list(
             structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
             )), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
             "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit"
             )), justification = "centre", gp = structure(list(), class = "gpar"), clip = FALSE, 
                 xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = NULL, 
                 layout.pos.col = c(2L, 2L), valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
                 valid.pos.col = c(2L, 2L), name = "GRID.VP.105"), class = "viewport")), class = c("vpList", 
         "viewport"))), class = c("vpTree", "viewport")), children = structure(list(GRID.text.421 = structure(list(
         label = c("-2.5", "0.0", "2.5"), x = structure(c(1, 1, 1), unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(c(0.069800287566079, 0.382676081428801, 0.695551875291523
         ), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", hjust = 1, vjust = 0.5, 
         rot = 0, check.overlap = FALSE, name = "GRID.text.421", gp = structure(list(fontsize = 8.8, 
             col = "grey30", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
         vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), childrenOrder = "GRID.text.421"), class = c("titleGrob", 
     "gTree", "grob", "gDesc")), 21L), list(2.75, NULL, 8L)), class = "unit"), 201L), 
         list(1, NULL, 5L), list(0, NULL, 1L), list(0, NULL, 1L), list(0, NULL, 8L), 5.5), class = "unit"))
  7: pSummary(..., op = "max")
  
  ── 7. Error: draw.gam works with logical select (@test-draw-methods.R#61)  ─────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: draw(m1, select = c(TRUE, rep(FALSE, 3))) at testthat/test-draw-methods.R:61
  2: draw.gam(m1, select = c(TRUE, rep(FALSE, 3)))
  3: plot_grid(plotlist = g, align = align, axis = axis, ...)
  4: align_plots(plotlist = plots, align = align, axis = axis)
  5: do.call(grid::unit.pmax, lapply(grobs, function(x) {
         x$widths
     }))
  6: (function (...) 
     {
         pSummary(..., op = "max")
     })(structure(list(5.5, list(0, NULL, 1L), list(1, structure(list(widths = structure(list(
         0, list(1, structure(list(list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), just = "centre", 
             hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, name = "GRID.text.481", 
             gp = structure(list(fontsize = 11, col = "black", fontfamily = "", lineheight = 0.9, 
                 font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
         "grob", "gDesc")), 21L), list(0.0366666666666667, NULL, 2L)), class = "unit"), 
             201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
     "unit")), name = "axis.title.y.left..titleGrob.483", gp = NULL, vp = structure(list(
         parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
             justification = "centre", gp = structure(list(fontsize = 11, col = "black", 
                 fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
             clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                 nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                     list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                     )), just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                       name = "GRID.text.481", gp = structure(list(fontsize = 11, col = "black", 
                         fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                       vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                       NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                 "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                 0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 0.5)), class = "layout"), 
             layout.pos.row = NULL, layout.pos.col = NULL, valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
             valid.pos.col = NULL, name = "GRID.VP.121"), class = "viewport"), children = structure(list(
             structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
             )), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
             "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit"
             )), justification = "centre", gp = structure(list(), class = "gpar"), clip = FALSE, 
                 xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = NULL, 
                 layout.pos.col = c(2L, 2L), valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
                 valid.pos.col = c(2L, 2L), name = "GRID.VP.122"), class = "viewport")), class = c("vpList", 
         "viewport"))), class = c("vpTree", "viewport")), children = structure(list(GRID.text.481 = structure(list(
         label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", "unit")), 
         y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), just = "centre", 
         hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, name = "GRID.text.481", 
         gp = structure(list(fontsize = 11, col = "black", fontfamily = "", lineheight = 0.9, 
             font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", "grob", 
     "gDesc"))), class = "gList"), childrenOrder = "GRID.text.481"), class = c("titleGrob", 
     "gTree", "grob", "gDesc")), 21L), list(1, structure(list(list(1, structure(list(widths = structure(list(
         0, list(1, structure(list(list(1, structure(list(label = c("-2", "-1", "0", "1"
         ), x = structure(c(1, 1, 1, 1), unit = 0L, class = c("simpleUnit", "unit")), 
             y = structure(c(0.100611179106009, 0.386050962375175, 0.671490745644342, 
             0.956930528913508), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", 
             hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.471", 
             gp = structure(list(fontsize = 8.8, col = "grey30", fontfamily = "", lineheight = 0.9, 
                 font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
         "grob", "gDesc")), 21L), list(0, NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), 
         heights = structure(1, unit = 5L, class = c("simpleUnit", "unit")), name = "axis.text.y.left..titleGrob.473", 
         gp = NULL, vp = structure(list(parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
             justification = "centre", gp = structure(list(fontsize = 8.8, col = "grey30", 
                 fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
             clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                 nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                     list(1, structure(list(label = c("-2", "-1", "0", "1"), x = structure(c(1, 
                     1, 1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.100611179106009, 
                     0.386050962375175, 0.671490745644342, 0.956930528913508), unit = 4L, class = c("simpleUnit", 
                     "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                       name = "GRID.text.471", gp = structure(list(fontsize = 8.8, col = "grey30", 
                         fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                       vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0, 
                       NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                 "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                 0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 0.5)), class = "layout"), 
             layout.pos.row = NULL, layout.pos.col = NULL, valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
             valid.pos.col = NULL, name = "GRID.VP.116"), class = "viewport"), children = structure(list(
             structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
             )), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
             "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit"
             )), justification = "centre", gp = structure(list(), class = "gpar"), clip = FALSE, 
                 xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = NULL, 
                 layout.pos.col = c(2L, 2L), valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
                 valid.pos.col = c(2L, 2L), name = "GRID.VP.117"), class = "viewport")), class = c("vpList", 
         "viewport"))), class = c("vpTree", "viewport")), children = structure(list(GRID.text.471 = structure(list(
             label = c("-2", "-1", "0", "1"), x = structure(c(1, 1, 1, 1), unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(c(0.100611179106009, 0.386050962375175, 0.671490745644342, 
             0.956930528913508), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", 
             hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.471", 
             gp = structure(list(fontsize = 8.8, col = "grey30", fontfamily = "", lineheight = 0.9, 
                 font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
         "grob", "gDesc"))), class = "gList"), childrenOrder = "GRID.text.471"), class = c("titleGrob", 
     "gTree", "grob", "gDesc")), 21L), list(2.75, NULL, 8L)), class = "unit"), 201L), 
         list(1, NULL, 5L), list(0, NULL, 1L), list(0, NULL, 1L), list(0, NULL, 8L), 5.5), class = "unit"))
  7: pSummary(..., op = "max")
  
  ── 8. Error: draw.gam works with partial_match (@test-draw-methods.R#68)  ──────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: draw(m3, select = "s(x2)", partial_match = TRUE) at testthat/test-draw-methods.R:68
  2: draw.gam(m3, select = "s(x2)", partial_match = TRUE)
  3: plot_grid(plotlist = g, align = align, axis = axis, ...)
  4: align_plots(plotlist = plots, align = align, axis = axis)
  5: do.call(grid::unit.pmax, lapply(grobs, function(x) {
         x$widths
     }))
  6: (function (...) 
     {
         pSummary(..., op = "max")
     })(structure(list(5.5, list(0, NULL, 1L), list(1, structure(list(widths = structure(list(
         0, list(1, structure(list(list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), just = "centre", 
             hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, name = "GRID.text.531", 
             gp = structure(list(fontsize = 11, col = "black", fontfamily = "", lineheight = 0.9, 
                 font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
         "grob", "gDesc")), 21L), list(0.0366666666666667, NULL, 2L)), class = "unit"), 
             201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
     "unit")), name = "axis.title.y.left..titleGrob.533", gp = NULL, vp = structure(list(
         parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
             justification = "centre", gp = structure(list(fontsize = 11, col = "black", 
                 fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
             clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                 nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                     list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                     )), just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                       name = "GRID.text.531", gp = structure(list(fontsize = 11, col = "black", 
                         fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                       vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                       NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                 "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                 0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 0.5)), class = "layout"), 
             layout.pos.row = NULL, layout.pos.col = NULL, valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
             valid.pos.col = NULL, name = "GRID.VP.133"), class = "viewport"), children = structure(list(
             structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
             )), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
             "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit"
             )), justification = "centre", gp = structure(list(), class = "gpar"), clip = FALSE, 
                 xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = NULL, 
                 layout.pos.col = c(2L, 2L), valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
                 valid.pos.col = c(2L, 2L), name = "GRID.VP.134"), class = "viewport")), class = c("vpList", 
         "viewport"))), class = c("vpTree", "viewport")), children = structure(list(GRID.text.531 = structure(list(
         label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", "unit")), 
         y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), just = "centre", 
         hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, name = "GRID.text.531", 
         gp = structure(list(fontsize = 11, col = "black", fontfamily = "", lineheight = 0.9, 
             font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", "grob", 
     "gDesc"))), class = "gList"), childrenOrder = "GRID.text.531"), class = c("titleGrob", 
     "gTree", "grob", "gDesc")), 21L), list(1, structure(list(list(1, structure(list(widths = structure(list(
         0, list(1, structure(list(list(1, structure(list(label = c("-2", "-1", "0", "1"
         ), x = structure(c(1, 1, 1, 1), unit = 0L, class = c("simpleUnit", "unit")), 
             y = structure(c(0.103923066550751, 0.369949473102034, 0.635975879653318, 
             0.902002286204601), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", 
             hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.521", 
             gp = structure(list(fontsize = 8.8, col = "grey30", fontfamily = "", lineheight = 0.9, 
                 font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
         "grob", "gDesc")), 21L), list(0, NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), 
         heights = structure(1, unit = 5L, class = c("simpleUnit", "unit")), name = "axis.text.y.left..titleGrob.523", 
         gp = NULL, vp = structure(list(parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
             justification = "centre", gp = structure(list(fontsize = 8.8, col = "grey30", 
                 fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
             clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                 nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                     list(1, structure(list(label = c("-2", "-1", "0", "1"), x = structure(c(1, 
                     1, 1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.103923066550751, 
                     0.369949473102034, 0.635975879653318, 0.902002286204601), unit = 4L, class = c("simpleUnit", 
                     "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                       name = "GRID.text.521", gp = structure(list(fontsize = 8.8, col = "grey30", 
                         fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                       vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0, 
                       NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                 "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                 0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 0.5)), class = "layout"), 
             layout.pos.row = NULL, layout.pos.col = NULL, valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
             valid.pos.col = NULL, name = "GRID.VP.128"), class = "viewport"), children = structure(list(
             structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
             )), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
             "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit"
             )), justification = "centre", gp = structure(list(), class = "gpar"), clip = FALSE, 
                 xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = NULL, 
                 layout.pos.col = c(2L, 2L), valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
                 valid.pos.col = c(2L, 2L), name = "GRID.VP.129"), class = "viewport")), class = c("vpList", 
         "viewport"))), class = c("vpTree", "viewport")), children = structure(list(GRID.text.521 = structure(list(
             label = c("-2", "-1", "0", "1"), x = structure(c(1, 1, 1, 1), unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(c(0.103923066550751, 0.369949473102034, 0.635975879653318, 
             0.902002286204601), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", 
             hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.521", 
             gp = structure(list(fontsize = 8.8, col = "grey30", fontfamily = "", lineheight = 0.9, 
                 font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
         "grob", "gDesc"))), class = "gList"), childrenOrder = "GRID.text.521"), class = c("titleGrob", 
     "gTree", "grob", "gDesc")), 21L), list(2.75, NULL, 8L)), class = "unit"), 201L), 
         list(1, NULL, 5L), list(0, NULL, 1L), list(0, NULL, 1L), list(0, NULL, 8L), 5.5), class = "unit"), 
         structure(list(5.5, list(0, NULL, 1L), list(1, structure(list(widths = structure(list(
             0, list(1, structure(list(list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                 name = "GRID.text.583", gp = structure(list(fontsize = 11, col = "black", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                 NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
         "unit")), name = "axis.title.y.left..titleGrob.585", gp = NULL, vp = structure(list(
             parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", 
                 "unit")), justification = "centre", gp = structure(list(fontsize = 11, 
                     col = "black", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                     nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                       list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
                       "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", 
                       "unit")), just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                         name = "GRID.text.583", gp = structure(list(fontsize = 11, col = "black", 
                           fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                         vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                         NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                     "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                     0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 
                     0.5)), class = "layout"), layout.pos.row = NULL, layout.pos.col = NULL, 
                 valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, 
                 name = "GRID.VP.147"), class = "viewport"), children = structure(list(
                 structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     justification = "centre", gp = structure(list(), class = "gpar"), 
                     clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, 
                     layout.pos.row = NULL, layout.pos.col = c(2L, 2L), valid.just = c(0.5, 
                     0.5), valid.pos.row = NULL, valid.pos.col = c(2L, 2L), name = "GRID.VP.148"), class = "viewport")), class = c("vpList", 
             "viewport"))), class = c("vpTree", "viewport")), children = structure(list(
             GRID.text.583 = structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                 name = "GRID.text.583", gp = structure(list(fontsize = 11, col = "black", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), childrenOrder = "GRID.text.583"), class = c("titleGrob", 
         "gTree", "grob", "gDesc")), 21L), list(1, structure(list(list(1, structure(list(
             widths = structure(list(0, list(1, structure(list(list(1, structure(list(
                 label = c("-2", "0", "2", "4"), x = structure(c(1, 1, 1, 1), unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(c(0.2003713058294, 0.410651887589355, 0.620932469349309, 
                 0.831213051109264), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", 
                 hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.573", 
                 gp = structure(list(fontsize = 8.8, col = "grey30", fontfamily = "", 
                     lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
             "grob", "gDesc")), 21L), list(0, NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), 
             heights = structure(1, unit = 5L, class = c("simpleUnit", "unit")), name = "axis.text.y.left..titleGrob.575", 
             gp = NULL, vp = structure(list(parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", 
                 "unit")), justification = "centre", gp = structure(list(fontsize = 8.8, 
                     col = "grey30", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                     nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                       list(1, structure(list(label = c("-2", "0", "2", "4"), x = structure(c(1, 
                       1, 1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.2003713058294, 
                       0.410651887589355, 0.620932469349309, 0.831213051109264), unit = 4L, class = c("simpleUnit", 
                       "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                         name = "GRID.text.573", gp = structure(list(fontsize = 8.8, col = "grey30", 
                           fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                         vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0, 
                         NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                     "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                     0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 
                     0.5)), class = "layout"), layout.pos.row = NULL, layout.pos.col = NULL, 
                 valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, 
                 name = "GRID.VP.142"), class = "viewport"), children = structure(list(
                 structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     justification = "centre", gp = structure(list(), class = "gpar"), 
                     clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, 
                     layout.pos.row = NULL, layout.pos.col = c(2L, 2L), valid.just = c(0.5, 
                     0.5), valid.pos.row = NULL, valid.pos.col = c(2L, 2L), name = "GRID.VP.143"), class = "viewport")), class = c("vpList", 
             "viewport"))), class = c("vpTree", "viewport")), children = structure(list(
                 GRID.text.573 = structure(list(label = c("-2", "0", "2", "4"), x = structure(c(1, 
                 1, 1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.2003713058294, 
                 0.410651887589355, 0.620932469349309, 0.831213051109264), unit = 4L, class = c("simpleUnit", 
                 "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                     name = "GRID.text.573", gp = structure(list(fontsize = 8.8, col = "grey30", 
                       fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                     vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), 
             childrenOrder = "GRID.text.573"), class = c("titleGrob", "gTree", "grob", 
         "gDesc")), 21L), list(2.75, NULL, 8L)), class = "unit"), 201L), list(1, NULL, 
             5L), list(0, NULL, 1L), list(0, NULL, 1L), list(0, NULL, 8L), 5.5), class = "unit"), 
         structure(list(5.5, list(0, NULL, 1L), list(1, structure(list(widths = structure(list(
             0, list(1, structure(list(list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                 name = "GRID.text.635", gp = structure(list(fontsize = 11, col = "black", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                 NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
         "unit")), name = "axis.title.y.left..titleGrob.637", gp = NULL, vp = structure(list(
             parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", 
                 "unit")), justification = "centre", gp = structure(list(fontsize = 11, 
                     col = "black", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                     nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                       list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
                       "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", 
                       "unit")), just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                         name = "GRID.text.635", gp = structure(list(fontsize = 11, col = "black", 
                           fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                         vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                         NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                     "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                     0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 
                     0.5)), class = "layout"), layout.pos.row = NULL, layout.pos.col = NULL, 
                 valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, 
                 name = "GRID.VP.161"), class = "viewport"), children = structure(list(
                 structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     justification = "centre", gp = structure(list(), class = "gpar"), 
                     clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, 
                     layout.pos.row = NULL, layout.pos.col = c(2L, 2L), valid.just = c(0.5, 
                     0.5), valid.pos.row = NULL, valid.pos.col = c(2L, 2L), name = "GRID.VP.162"), class = "viewport")), class = c("vpList", 
             "viewport"))), class = c("vpTree", "viewport")), children = structure(list(
             GRID.text.635 = structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                 name = "GRID.text.635", gp = structure(list(fontsize = 11, col = "black", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), childrenOrder = "GRID.text.635"), class = c("titleGrob", 
         "gTree", "grob", "gDesc")), 21L), list(1, structure(list(list(1, structure(list(
             widths = structure(list(0, list(1, structure(list(list(1, structure(list(
                 label = c("-4", "0", "4"), x = structure(c(1, 1, 1), unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(c(0.22161887370641, 0.510013344540194, 0.798407815373977
                 ), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", hjust = 1, 
                 vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.625", 
                 gp = structure(list(fontsize = 8.8, col = "grey30", fontfamily = "", 
                     lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
             "grob", "gDesc")), 21L), list(0, NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), 
             heights = structure(1, unit = 5L, class = c("simpleUnit", "unit")), name = "axis.text.y.left..titleGrob.627", 
             gp = NULL, vp = structure(list(parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", 
                 "unit")), justification = "centre", gp = structure(list(fontsize = 8.8, 
                     col = "grey30", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                     nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                       list(1, structure(list(label = c("-4", "0", "4"), x = structure(c(1, 
                       1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.22161887370641, 
                       0.510013344540194, 0.798407815373977), unit = 4L, class = c("simpleUnit", 
                       "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                         name = "GRID.text.625", gp = structure(list(fontsize = 8.8, col = "grey30", 
                           fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                         vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0, 
                         NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                     "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                     0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 
                     0.5)), class = "layout"), layout.pos.row = NULL, layout.pos.col = NULL, 
                 valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, 
                 name = "GRID.VP.156"), class = "viewport"), children = structure(list(
                 structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     justification = "centre", gp = structure(list(), class = "gpar"), 
                     clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, 
                     layout.pos.row = NULL, layout.pos.col = c(2L, 2L), valid.just = c(0.5, 
                     0.5), valid.pos.row = NULL, valid.pos.col = c(2L, 2L), name = "GRID.VP.157"), class = "viewport")), class = c("vpList", 
             "viewport"))), class = c("vpTree", "viewport")), children = structure(list(
                 GRID.text.625 = structure(list(label = c("-4", "0", "4"), x = structure(c(1, 
                 1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.22161887370641, 
                 0.510013344540194, 0.798407815373977), unit = 4L, class = c("simpleUnit", 
                 "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                     name = "GRID.text.625", gp = structure(list(fontsize = 8.8, col = "grey30", 
                       fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                     vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), 
             childrenOrder = "GRID.text.625"), class = c("titleGrob", "gTree", "grob", 
         "gDesc")), 21L), list(2.75, NULL, 8L)), class = "unit"), 201L), list(1, NULL, 
             5L), list(0, NULL, 1L), list(0, NULL, 1L), list(0, NULL, 8L), 5.5), class = "unit"))
  7: pSummary(..., op = "max")
  
  ── 9. Error: draw.gam works with select and parametric (@test-draw-methods.R#76)
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: draw(m3, select = "s(x2)", partial_match = TRUE) at testthat/test-draw-methods.R:76
  2: draw.gam(m3, select = "s(x2)", partial_match = TRUE)
  3: plot_grid(plotlist = g, align = align, axis = axis, ...)
  4: align_plots(plotlist = plots, align = align, axis = axis)
  5: do.call(grid::unit.pmax, lapply(grobs, function(x) {
         x$widths
     }))
  6: (function (...) 
     {
         pSummary(..., op = "max")
     })(structure(list(5.5, list(0, NULL, 1L), list(1, structure(list(widths = structure(list(
         0, list(1, structure(list(list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), just = "centre", 
             hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, name = "GRID.text.687", 
             gp = structure(list(fontsize = 11, col = "black", fontfamily = "", lineheight = 0.9, 
                 font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
         "grob", "gDesc")), 21L), list(0.0366666666666667, NULL, 2L)), class = "unit"), 
             201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
     "unit")), name = "axis.title.y.left..titleGrob.689", gp = NULL, vp = structure(list(
         parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
             justification = "centre", gp = structure(list(fontsize = 11, col = "black", 
                 fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
             clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                 nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                     list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                     )), just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                       name = "GRID.text.687", gp = structure(list(fontsize = 11, col = "black", 
                         fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                       vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                       NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                 "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                 0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 0.5)), class = "layout"), 
             layout.pos.row = NULL, layout.pos.col = NULL, valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
             valid.pos.col = NULL, name = "GRID.VP.175"), class = "viewport"), children = structure(list(
             structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
             )), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
             "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit"
             )), justification = "centre", gp = structure(list(), class = "gpar"), clip = FALSE, 
                 xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = NULL, 
                 layout.pos.col = c(2L, 2L), valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
                 valid.pos.col = c(2L, 2L), name = "GRID.VP.176"), class = "viewport")), class = c("vpList", 
         "viewport"))), class = c("vpTree", "viewport")), children = structure(list(GRID.text.687 = structure(list(
         label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", "unit")), 
         y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), just = "centre", 
         hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, name = "GRID.text.687", 
         gp = structure(list(fontsize = 11, col = "black", fontfamily = "", lineheight = 0.9, 
             font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", "grob", 
     "gDesc"))), class = "gList"), childrenOrder = "GRID.text.687"), class = c("titleGrob", 
     "gTree", "grob", "gDesc")), 21L), list(1, structure(list(list(1, structure(list(widths = structure(list(
         0, list(1, structure(list(list(1, structure(list(label = c("-2", "-1", "0", "1"
         ), x = structure(c(1, 1, 1, 1), unit = 0L, class = c("simpleUnit", "unit")), 
             y = structure(c(0.103923066550751, 0.369949473102034, 0.635975879653318, 
             0.902002286204601), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", 
             hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.677", 
             gp = structure(list(fontsize = 8.8, col = "grey30", fontfamily = "", lineheight = 0.9, 
                 font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
         "grob", "gDesc")), 21L), list(0, NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), 
         heights = structure(1, unit = 5L, class = c("simpleUnit", "unit")), name = "axis.text.y.left..titleGrob.679", 
         gp = NULL, vp = structure(list(parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
             justification = "centre", gp = structure(list(fontsize = 8.8, col = "grey30", 
                 fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
             clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                 nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                     list(1, structure(list(label = c("-2", "-1", "0", "1"), x = structure(c(1, 
                     1, 1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.103923066550751, 
                     0.369949473102034, 0.635975879653318, 0.902002286204601), unit = 4L, class = c("simpleUnit", 
                     "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                       name = "GRID.text.677", gp = structure(list(fontsize = 8.8, col = "grey30", 
                         fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                       vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0, 
                       NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                 "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                 0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 0.5)), class = "layout"), 
             layout.pos.row = NULL, layout.pos.col = NULL, valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
             valid.pos.col = NULL, name = "GRID.VP.170"), class = "viewport"), children = structure(list(
             structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
             )), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
             "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit"
             )), justification = "centre", gp = structure(list(), class = "gpar"), clip = FALSE, 
                 xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = NULL, 
                 layout.pos.col = c(2L, 2L), valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
                 valid.pos.col = c(2L, 2L), name = "GRID.VP.171"), class = "viewport")), class = c("vpList", 
         "viewport"))), class = c("vpTree", "viewport")), children = structure(list(GRID.text.677 = structure(list(
             label = c("-2", "-1", "0", "1"), x = structure(c(1, 1, 1, 1), unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(c(0.103923066550751, 0.369949473102034, 0.635975879653318, 
             0.902002286204601), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", 
             hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.677", 
             gp = structure(list(fontsize = 8.8, col = "grey30", fontfamily = "", lineheight = 0.9, 
                 font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
         "grob", "gDesc"))), class = "gList"), childrenOrder = "GRID.text.677"), class = c("titleGrob", 
     "gTree", "grob", "gDesc")), 21L), list(2.75, NULL, 8L)), class = "unit"), 201L), 
         list(1, NULL, 5L), list(0, NULL, 1L), list(0, NULL, 1L), list(0, NULL, 8L), 5.5), class = "unit"), 
         structure(list(5.5, list(0, NULL, 1L), list(1, structure(list(widths = structure(list(
             0, list(1, structure(list(list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                 name = "GRID.text.739", gp = structure(list(fontsize = 11, col = "black", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                 NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
         "unit")), name = "axis.title.y.left..titleGrob.741", gp = NULL, vp = structure(list(
             parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", 
                 "unit")), justification = "centre", gp = structure(list(fontsize = 11, 
                     col = "black", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                     nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                       list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
                       "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", 
                       "unit")), just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                         name = "GRID.text.739", gp = structure(list(fontsize = 11, col = "black", 
                           fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                         vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                         NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                     "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                     0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 
                     0.5)), class = "layout"), layout.pos.row = NULL, layout.pos.col = NULL, 
                 valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, 
                 name = "GRID.VP.189"), class = "viewport"), children = structure(list(
                 structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     justification = "centre", gp = structure(list(), class = "gpar"), 
                     clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, 
                     layout.pos.row = NULL, layout.pos.col = c(2L, 2L), valid.just = c(0.5, 
                     0.5), valid.pos.row = NULL, valid.pos.col = c(2L, 2L), name = "GRID.VP.190"), class = "viewport")), class = c("vpList", 
             "viewport"))), class = c("vpTree", "viewport")), children = structure(list(
             GRID.text.739 = structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                 name = "GRID.text.739", gp = structure(list(fontsize = 11, col = "black", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), childrenOrder = "GRID.text.739"), class = c("titleGrob", 
         "gTree", "grob", "gDesc")), 21L), list(1, structure(list(list(1, structure(list(
             widths = structure(list(0, list(1, structure(list(list(1, structure(list(
                 label = c("-2", "0", "2", "4"), x = structure(c(1, 1, 1, 1), unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(c(0.2003713058294, 0.410651887589355, 0.620932469349309, 
                 0.831213051109264), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", 
                 hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.729", 
                 gp = structure(list(fontsize = 8.8, col = "grey30", fontfamily = "", 
                     lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
             "grob", "gDesc")), 21L), list(0, NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), 
             heights = structure(1, unit = 5L, class = c("simpleUnit", "unit")), name = "axis.text.y.left..titleGrob.731", 
             gp = NULL, vp = structure(list(parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", 
                 "unit")), justification = "centre", gp = structure(list(fontsize = 8.8, 
                     col = "grey30", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                     nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                       list(1, structure(list(label = c("-2", "0", "2", "4"), x = structure(c(1, 
                       1, 1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.2003713058294, 
                       0.410651887589355, 0.620932469349309, 0.831213051109264), unit = 4L, class = c("simpleUnit", 
                       "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                         name = "GRID.text.729", gp = structure(list(fontsize = 8.8, col = "grey30", 
                           fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                         vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0, 
                         NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                     "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                     0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 
                     0.5)), class = "layout"), layout.pos.row = NULL, layout.pos.col = NULL, 
                 valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, 
                 name = "GRID.VP.184"), class = "viewport"), children = structure(list(
                 structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     justification = "centre", gp = structure(list(), class = "gpar"), 
                     clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, 
                     layout.pos.row = NULL, layout.pos.col = c(2L, 2L), valid.just = c(0.5, 
                     0.5), valid.pos.row = NULL, valid.pos.col = c(2L, 2L), name = "GRID.VP.185"), class = "viewport")), class = c("vpList", 
             "viewport"))), class = c("vpTree", "viewport")), children = structure(list(
                 GRID.text.729 = structure(list(label = c("-2", "0", "2", "4"), x = structure(c(1, 
                 1, 1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.2003713058294, 
                 0.410651887589355, 0.620932469349309, 0.831213051109264), unit = 4L, class = c("simpleUnit", 
                 "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                     name = "GRID.text.729", gp = structure(list(fontsize = 8.8, col = "grey30", 
                       fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                     vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), 
             childrenOrder = "GRID.text.729"), class = c("titleGrob", "gTree", "grob", 
         "gDesc")), 21L), list(2.75, NULL, 8L)), class = "unit"), 201L), list(1, NULL, 
             5L), list(0, NULL, 1L), list(0, NULL, 1L), list(0, NULL, 8L), 5.5), class = "unit"), 
         structure(list(5.5, list(0, NULL, 1L), list(1, structure(list(widths = structure(list(
             0, list(1, structure(list(list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                 name = "GRID.text.791", gp = structure(list(fontsize = 11, col = "black", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                 NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
         "unit")), name = "axis.title.y.left..titleGrob.793", gp = NULL, vp = structure(list(
             parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", 
                 "unit")), justification = "centre", gp = structure(list(fontsize = 11, 
                     col = "black", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                     nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                       list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
                       "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", 
                       "unit")), just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                         name = "GRID.text.791", gp = structure(list(fontsize = 11, col = "black", 
                           fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                         vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                         NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                     "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                     0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 
                     0.5)), class = "layout"), layout.pos.row = NULL, layout.pos.col = NULL, 
                 valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, 
                 name = "GRID.VP.203"), class = "viewport"), children = structure(list(
                 structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     justification = "centre", gp = structure(list(), class = "gpar"), 
                     clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, 
                     layout.pos.row = NULL, layout.pos.col = c(2L, 2L), valid.just = c(0.5, 
                     0.5), valid.pos.row = NULL, valid.pos.col = c(2L, 2L), name = "GRID.VP.204"), class = "viewport")), class = c("vpList", 
             "viewport"))), class = c("vpTree", "viewport")), children = structure(list(
             GRID.text.791 = structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                 name = "GRID.text.791", gp = structure(list(fontsize = 11, col = "black", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), childrenOrder = "GRID.text.791"), class = c("titleGrob", 
         "gTree", "grob", "gDesc")), 21L), list(1, structure(list(list(1, structure(list(
             widths = structure(list(0, list(1, structure(list(list(1, structure(list(
                 label = c("-4", "0", "4"), x = structure(c(1, 1, 1), unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(c(0.22161887370641, 0.510013344540194, 0.798407815373977
                 ), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", hjust = 1, 
                 vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.781", 
                 gp = structure(list(fontsize = 8.8, col = "grey30", fontfamily = "", 
                     lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
             "grob", "gDesc")), 21L), list(0, NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), 
             heights = structure(1, unit = 5L, class = c("simpleUnit", "unit")), name = "axis.text.y.left..titleGrob.783", 
             gp = NULL, vp = structure(list(parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", 
                 "unit")), justification = "centre", gp = structure(list(fontsize = 8.8, 
                     col = "grey30", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                     nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                       list(1, structure(list(label = c("-4", "0", "4"), x = structure(c(1, 
                       1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.22161887370641, 
                       0.510013344540194, 0.798407815373977), unit = 4L, class = c("simpleUnit", 
                       "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                         name = "GRID.text.781", gp = structure(list(fontsize = 8.8, col = "grey30", 
                           fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                         vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0, 
                         NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                     "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                     0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 
                     0.5)), class = "layout"), layout.pos.row = NULL, layout.pos.col = NULL, 
                 valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, 
                 name = "GRID.VP.198"), class = "viewport"), children = structure(list(
                 structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     justification = "centre", gp = structure(list(), class = "gpar"), 
                     clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, 
                     layout.pos.row = NULL, layout.pos.col = c(2L, 2L), valid.just = c(0.5, 
                     0.5), valid.pos.row = NULL, valid.pos.col = c(2L, 2L), name = "GRID.VP.199"), class = "viewport")), class = c("vpList", 
             "viewport"))), class = c("vpTree", "viewport")), children = structure(list(
                 GRID.text.781 = structure(list(label = c("-4", "0", "4"), x = structure(c(1, 
                 1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.22161887370641, 
                 0.510013344540194, 0.798407815373977), unit = 4L, class = c("simpleUnit", 
                 "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                     name = "GRID.text.781", gp = structure(list(fontsize = 8.8, col = "grey30", 
                       fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                     vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), 
             childrenOrder = "GRID.text.781"), class = c("titleGrob", "gTree", "grob", 
         "gDesc")), 21L), list(2.75, NULL, 8L)), class = "unit"), 201L), list(1, NULL, 
             5L), list(0, NULL, 1L), list(0, NULL, 1L), list(0, NULL, 8L), 5.5), class = "unit"))
  7: pSummary(..., op = "max")
  
  ── 10. Error: draw.evaluated_2d_smooth() plots the smooth & SE (@test-draw-metho
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_doppelganger("draw 2d smooth", plt) at testthat/test-draw-methods.R:91
  2: writer(fig, testcase, title)
  3: print_plot(plot, title)
  4: print_plot.ggplot(plot, title)
  5: print(p)
  6: print.ggplot(p)
  7: ggplot_gtable(data)
  8: ggplot_gtable.ggplot_built(data)
  9: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides, 
         plot$labels)
  10: guides_gengrob(gdefs, theme)
  ...
  20: pushvpgp(x)
  21: pushgrobvp(x$vp)
  22: pushgrobvp.viewport(x$vp)
  23: pushViewport(vp, recording = FALSE)
  24: lapply(vps, push.vp, recording)
  25: FUN(X[[i]], ...)
  26: push.vp.vpTree(X[[i]], ...)
  27: push.vp(vp$parent, recording)
  28: push.vp.viewport(vp$parent, recording)
  29: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 11. Error: draw.gam() plots a simple multi-smooth AM (@test-draw-methods.R#97
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: draw(m1) at testthat/test-draw-methods.R:97
  2: draw.gam(m1)
  3: plot_grid(plotlist = g, align = align, axis = axis, ...)
  4: align_plots(plotlist = plots, align = align, axis = axis)
  5: do.call(grid::unit.pmax, lapply(grobs, function(x) {
         x$widths
     }))
  6: (function (...) 
     {
         pSummary(..., op = "max")
     })(structure(list(5.5, list(0, NULL, 1L), list(1, structure(list(widths = structure(list(
         0, list(1, structure(list(list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), just = "centre", 
             hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, name = "GRID.text.884", 
             gp = structure(list(fontsize = 11, col = "black", fontfamily = "", lineheight = 0.9, 
                 font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
         "grob", "gDesc")), 21L), list(0.0366666666666667, NULL, 2L)), class = "unit"), 
             201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
     "unit")), name = "axis.title.y.left..titleGrob.886", gp = NULL, vp = structure(list(
         parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
             justification = "centre", gp = structure(list(fontsize = 11, col = "black", 
                 fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
             clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                 nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                     list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                     )), just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                       name = "GRID.text.884", gp = structure(list(fontsize = 11, col = "black", 
                         fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                       vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                       NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                 "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                 0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 0.5)), class = "layout"), 
             layout.pos.row = NULL, layout.pos.col = NULL, valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
             valid.pos.col = NULL, name = "GRID.VP.229"), class = "viewport"), children = structure(list(
             structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
             )), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
             "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit"
             )), justification = "centre", gp = structure(list(), class = "gpar"), clip = FALSE, 
                 xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = NULL, 
                 layout.pos.col = c(2L, 2L), valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
                 valid.pos.col = c(2L, 2L), name = "GRID.VP.230"), class = "viewport")), class = c("vpList", 
         "viewport"))), class = c("vpTree", "viewport")), children = structure(list(GRID.text.884 = structure(list(
         label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", "unit")), 
         y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), just = "centre", 
         hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, name = "GRID.text.884", 
         gp = structure(list(fontsize = 11, col = "black", fontfamily = "", lineheight = 0.9, 
             font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", "grob", 
     "gDesc"))), class = "gList"), childrenOrder = "GRID.text.884"), class = c("titleGrob", 
     "gTree", "grob", "gDesc")), 21L), list(1, structure(list(list(1, structure(list(widths = structure(list(
         0, list(1, structure(list(list(1, structure(list(label = c("-2", "-1", "0", "1"
         ), x = structure(c(1, 1, 1, 1), unit = 0L, class = c("simpleUnit", "unit")), 
             y = structure(c(0.100611179106009, 0.386050962375175, 0.671490745644342, 
             0.956930528913508), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", 
             hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.874", 
             gp = structure(list(fontsize = 8.8, col = "grey30", fontfamily = "", lineheight = 0.9, 
                 font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
         "grob", "gDesc")), 21L), list(0, NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), 
         heights = structure(1, unit = 5L, class = c("simpleUnit", "unit")), name = "axis.text.y.left..titleGrob.876", 
         gp = NULL, vp = structure(list(parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
             justification = "centre", gp = structure(list(fontsize = 8.8, col = "grey30", 
                 fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
             clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                 nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                     list(1, structure(list(label = c("-2", "-1", "0", "1"), x = structure(c(1, 
                     1, 1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.100611179106009, 
                     0.386050962375175, 0.671490745644342, 0.956930528913508), unit = 4L, class = c("simpleUnit", 
                     "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                       name = "GRID.text.874", gp = structure(list(fontsize = 8.8, col = "grey30", 
                         fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                       vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0, 
                       NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                 "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                 0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 0.5)), class = "layout"), 
             layout.pos.row = NULL, layout.pos.col = NULL, valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
             valid.pos.col = NULL, name = "GRID.VP.224"), class = "viewport"), children = structure(list(
             structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
             )), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
             "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit"
             )), justification = "centre", gp = structure(list(), class = "gpar"), clip = FALSE, 
                 xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = NULL, 
                 layout.pos.col = c(2L, 2L), valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
                 valid.pos.col = c(2L, 2L), name = "GRID.VP.225"), class = "viewport")), class = c("vpList", 
         "viewport"))), class = c("vpTree", "viewport")), children = structure(list(GRID.text.874 = structure(list(
             label = c("-2", "-1", "0", "1"), x = structure(c(1, 1, 1, 1), unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(c(0.100611179106009, 0.386050962375175, 0.671490745644342, 
             0.956930528913508), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", 
             hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.874", 
             gp = structure(list(fontsize = 8.8, col = "grey30", fontfamily = "", lineheight = 0.9, 
                 font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
         "grob", "gDesc"))), class = "gList"), childrenOrder = "GRID.text.874"), class = c("titleGrob", 
     "gTree", "grob", "gDesc")), 21L), list(2.75, NULL, 8L)), class = "unit"), 201L), 
         list(1, NULL, 5L), list(0, NULL, 1L), list(0, NULL, 1L), list(0, NULL, 8L), 5.5), class = "unit"), 
         structure(list(5.5, list(0, NULL, 1L), list(1, structure(list(widths = structure(list(
             0, list(1, structure(list(list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                 name = "GRID.text.934", gp = structure(list(fontsize = 11, col = "black", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                 NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
         "unit")), name = "axis.title.y.left..titleGrob.936", gp = NULL, vp = structure(list(
             parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", 
                 "unit")), justification = "centre", gp = structure(list(fontsize = 11, 
                     col = "black", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                     nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                       list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
                       "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", 
                       "unit")), just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                         name = "GRID.text.934", gp = structure(list(fontsize = 11, col = "black", 
                           fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                         vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                         NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                     "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                     0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 
                     0.5)), class = "layout"), layout.pos.row = NULL, layout.pos.col = NULL, 
                 valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, 
                 name = "GRID.VP.241"), class = "viewport"), children = structure(list(
                 structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     justification = "centre", gp = structure(list(), class = "gpar"), 
                     clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, 
                     layout.pos.row = NULL, layout.pos.col = c(2L, 2L), valid.just = c(0.5, 
                     0.5), valid.pos.row = NULL, valid.pos.col = c(2L, 2L), name = "GRID.VP.242"), class = "viewport")), class = c("vpList", 
             "viewport"))), class = c("vpTree", "viewport")), children = structure(list(
             GRID.text.934 = structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                 name = "GRID.text.934", gp = structure(list(fontsize = 11, col = "black", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), childrenOrder = "GRID.text.934"), class = c("titleGrob", 
         "gTree", "grob", "gDesc")), 21L), list(1, structure(list(list(1, structure(list(
             widths = structure(list(0, list(1, structure(list(list(1, structure(list(
                 label = c("-2.5", "0.0", "2.5"), x = structure(c(1, 1, 1), unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(c(0.069800287566079, 0.382676081428801, 0.695551875291523
                 ), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", hjust = 1, 
                 vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.924", 
                 gp = structure(list(fontsize = 8.8, col = "grey30", fontfamily = "", 
                     lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
             "grob", "gDesc")), 21L), list(0, NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), 
             heights = structure(1, unit = 5L, class = c("simpleUnit", "unit")), name = "axis.text.y.left..titleGrob.926", 
             gp = NULL, vp = structure(list(parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", 
                 "unit")), justification = "centre", gp = structure(list(fontsize = 8.8, 
                     col = "grey30", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                     nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                       list(1, structure(list(label = c("-2.5", "0.0", "2.5"), x = structure(c(1, 
                       1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.069800287566079, 
                       0.382676081428801, 0.695551875291523), unit = 4L, class = c("simpleUnit", 
                       "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                         name = "GRID.text.924", gp = structure(list(fontsize = 8.8, col = "grey30", 
                           fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                         vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0, 
                         NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                     "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                     0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 
                     0.5)), class = "layout"), layout.pos.row = NULL, layout.pos.col = NULL, 
                 valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, 
                 name = "GRID.VP.236"), class = "viewport"), children = structure(list(
                 structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     justification = "centre", gp = structure(list(), class = "gpar"), 
                     clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, 
                     layout.pos.row = NULL, layout.pos.col = c(2L, 2L), valid.just = c(0.5, 
                     0.5), valid.pos.row = NULL, valid.pos.col = c(2L, 2L), name = "GRID.VP.237"), class = "viewport")), class = c("vpList", 
             "viewport"))), class = c("vpTree", "viewport")), children = structure(list(
                 GRID.text.924 = structure(list(label = c("-2.5", "0.0", "2.5"), x = structure(c(1, 
                 1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.069800287566079, 
                 0.382676081428801, 0.695551875291523), unit = 4L, class = c("simpleUnit", 
                 "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                     name = "GRID.text.924", gp = structure(list(fontsize = 8.8, col = "grey30", 
                       fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                     vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), 
             childrenOrder = "GRID.text.924"), class = c("titleGrob", "gTree", "grob", 
         "gDesc")), 21L), list(2.75, NULL, 8L)), class = "unit"), 201L), list(1, NULL, 
             5L), list(0, NULL, 1L), list(0, NULL, 1L), list(0, NULL, 8L), 5.5), class = "unit"), 
         structure(list(5.5, list(0, NULL, 1L), list(1, structure(list(widths = structure(list(
             0, list(1, structure(list(list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                 name = "GRID.text.984", gp = structure(list(fontsize = 11, col = "black", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                 NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
         "unit")), name = "axis.title.y.left..titleGrob.986", gp = NULL, vp = structure(list(
             parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", 
                 "unit")), justification = "centre", gp = structure(list(fontsize = 11, 
                     col = "black", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                     nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                       list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
                       "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", 
                       "unit")), just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                         name = "GRID.text.984", gp = structure(list(fontsize = 11, col = "black", 
                           fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                         vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                         NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                     "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                     0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 
                     0.5)), class = "layout"), layout.pos.row = NULL, layout.pos.col = NULL, 
                 valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, 
                 name = "GRID.VP.253"), class = "viewport"), children = structure(list(
                 structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     justification = "centre", gp = structure(list(), class = "gpar"), 
                     clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, 
                     layout.pos.row = NULL, layout.pos.col = c(2L, 2L), valid.just = c(0.5, 
                     0.5), valid.pos.row = NULL, valid.pos.col = c(2L, 2L), name = "GRID.VP.254"), class = "viewport")), class = c("vpList", 
             "viewport"))), class = c("vpTree", "viewport")), children = structure(list(
             GRID.text.984 = structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                 name = "GRID.text.984", gp = structure(list(fontsize = 11, col = "black", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), childrenOrder = "GRID.text.984"), class = c("titleGrob", 
         "gTree", "grob", "gDesc")), 21L), list(1, structure(list(list(1, structure(list(
             widths = structure(list(0, list(1, structure(list(list(1, structure(list(
                 label = c("-6", "-3", "0", "3", "6"), x = structure(c(1, 1, 1, 1, 1), unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(c(0.018189671701798, 0.257773066312066, 0.497356460922334, 
                 0.736939855532601, 0.976523250142869), unit = 4L, class = c("simpleUnit", 
                 "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                 name = "GRID.text.974", gp = structure(list(fontsize = 8.8, col = "grey30", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0, NULL, 
                 2L)), class = "unit"), 201L), 2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
             "unit")), name = "axis.text.y.left..titleGrob.976", gp = NULL, vp = structure(list(
                 parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     justification = "centre", gp = structure(list(fontsize = 8.8, col = "grey30", 
                       fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                     clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                       nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                         list(1, structure(list(label = c("-6", "-3", "0", "3", "6"), 
                           x = structure(c(1, 1, 1, 1, 1), unit = 0L, class = c("simpleUnit", 
                           "unit")), y = structure(c(0.018189671701798, 0.257773066312066, 
                           0.497356460922334, 0.736939855532601, 0.976523250142869), unit = 4L, class = c("simpleUnit", 
                           "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, 
                           check.overlap = FALSE, name = "GRID.text.974", gp = structure(list(
                             fontsize = 8.8, col = "grey30", fontfamily = "", lineheight = 0.9, 
                             font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
                         "grob", "gDesc")), 21L), list(0, NULL, 2L)), class = "unit"), 
                         201L), 2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                       "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                       0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 
                       0.5)), class = "layout"), layout.pos.row = NULL, layout.pos.col = NULL, 
                     valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, 
                     name = "GRID.VP.248"), class = "viewport"), children = structure(list(
                     structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                     )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit"
                     )), height = structure(1, unit = 0L, class = c("simpleUnit", "unit"
                     )), justification = "centre", gp = structure(list(), class = "gpar"), 
                       clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, 
                       layout.pos.row = NULL, layout.pos.col = c(2L, 2L), valid.just = c(0.5, 
                       0.5), valid.pos.row = NULL, valid.pos.col = c(2L, 2L), name = "GRID.VP.249"), class = "viewport")), class = c("vpList", 
                 "viewport"))), class = c("vpTree", "viewport")), children = structure(list(
                 GRID.text.974 = structure(list(label = c("-6", "-3", "0", "3", "6"), 
                     x = structure(c(1, 1, 1, 1, 1), unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(c(0.018189671701798, 0.257773066312066, 0.497356460922334, 
                     0.736939855532601, 0.976523250142869), unit = 4L, class = c("simpleUnit", 
                     "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                     name = "GRID.text.974", gp = structure(list(fontsize = 8.8, col = "grey30", 
                       fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                     vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), 
             childrenOrder = "GRID.text.974"), class = c("titleGrob", "gTree", "grob", 
         "gDesc")), 21L), list(2.75, NULL, 8L)), class = "unit"), 201L), list(1, NULL, 
             5L), list(0, NULL, 1L), list(0, NULL, 1L), list(0, NULL, 8L), 5.5), class = "unit"), 
         structure(list(5.5, list(0, NULL, 1L), list(1, structure(list(widths = structure(list(
             0, list(1, structure(list(list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                 name = "GRID.text.1034", gp = structure(list(fontsize = 11, col = "black", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                 NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
         "unit")), name = "axis.title.y.left..titleGrob.1036", gp = NULL, vp = structure(list(
             parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", 
                 "unit")), justification = "centre", gp = structure(list(fontsize = 11, 
                     col = "black", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                     nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                       list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
                       "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", 
                       "unit")), just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                         name = "GRID.text.1034", gp = structure(list(fontsize = 11, col = "black", 
                           fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                         vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                         NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                     "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                     0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 
                     0.5)), class = "layout"), layout.pos.row = NULL, layout.pos.col = NULL, 
                 valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, 
                 name = "GRID.VP.265"), class = "viewport"), children = structure(list(
                 structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     justification = "centre", gp = structure(list(), class = "gpar"), 
                     clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, 
                     layout.pos.row = NULL, layout.pos.col = c(2L, 2L), valid.just = c(0.5, 
                     0.5), valid.pos.row = NULL, valid.pos.col = c(2L, 2L), name = "GRID.VP.266"), class = "viewport")), class = c("vpList", 
             "viewport"))), class = c("vpTree", "viewport")), children = structure(list(
             GRID.text.1034 = structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                 name = "GRID.text.1034", gp = structure(list(fontsize = 11, col = "black", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), childrenOrder = "GRID.text.1034"), class = c("titleGrob", 
         "gTree", "grob", "gDesc")), 21L), list(1, structure(list(list(1, structure(list(
             widths = structure(list(0, list(1, structure(list(list(1, structure(list(
                 label = c("-0.6", "-0.3", "0.0", "0.3"), x = structure(c(1, 1, 1, 1), unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(c(0.00618360327729635, 0.255160810214646, 0.504138017151995, 
                 0.753115224089344), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", 
                 hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.1024", 
                 gp = structure(list(fontsize = 8.8, col = "grey30", fontfamily = "", 
                     lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
             "grob", "gDesc")), 21L), list(0, NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), 
             heights = structure(1, unit = 5L, class = c("simpleUnit", "unit")), name = "axis.text.y.left..titleGrob.1026", 
             gp = NULL, vp = structure(list(parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", 
                 "unit")), justification = "centre", gp = structure(list(fontsize = 8.8, 
                     col = "grey30", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                     nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                       list(1, structure(list(label = c("-0.6", "-0.3", "0.0", "0.3"), 
                         x = structure(c(1, 1, 1, 1), unit = 0L, class = c("simpleUnit", 
                         "unit")), y = structure(c(0.00618360327729635, 0.255160810214646, 
                         0.504138017151995, 0.753115224089344), unit = 4L, class = c("simpleUnit", 
                         "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                         name = "GRID.text.1024", gp = structure(list(fontsize = 8.8, 
                           col = "grey30", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                         vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0, 
                         NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                     "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                     0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 
                     0.5)), class = "layout"), layout.pos.row = NULL, layout.pos.col = NULL, 
                 valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, 
                 name = "GRID.VP.260"), class = "viewport"), children = structure(list(
                 structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     justification = "centre", gp = structure(list(), class = "gpar"), 
                     clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, 
                     layout.pos.row = NULL, layout.pos.col = c(2L, 2L), valid.just = c(0.5, 
                     0.5), valid.pos.row = NULL, valid.pos.col = c(2L, 2L), name = "GRID.VP.261"), class = "viewport")), class = c("vpList", 
             "viewport"))), class = c("vpTree", "viewport")), children = structure(list(
                 GRID.text.1024 = structure(list(label = c("-0.6", "-0.3", "0.0", "0.3"
                 ), x = structure(c(1, 1, 1, 1), unit = 0L, class = c("simpleUnit", "unit"
                 )), y = structure(c(0.00618360327729635, 0.255160810214646, 0.504138017151995, 
                 0.753115224089344), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", 
                     hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.1024", 
                     gp = structure(list(fontsize = 8.8, col = "grey30", fontfamily = "", 
                       lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
                 "grob", "gDesc"))), class = "gList"), childrenOrder = "GRID.text.1024"), class = c("titleGrob", 
         "gTree", "grob", "gDesc")), 21L), list(2.75, NULL, 8L)), class = "unit"), 201L), 
             list(1, NULL, 5L), list(0, NULL, 1L), list(0, NULL, 1L), list(0, NULL, 8L), 
             5.5), class = "unit"))
  7: pSummary(..., op = "max")
  
  ── 12. Error: draw.gam() plots an AM with a single 2d smooth (@test-draw-methods
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: draw(m2) at testthat/test-draw-methods.R:105
  2: draw.gam(m2)
  3: plot_grid(plotlist = g, align = align, axis = axis, ...)
  4: align_plots(plotlist = plots, align = align, axis = axis)
  5: lapply(plots, function(x) {
         if (!is.null(x)) 
             plot_to_gtable(x)
         else NULL
     })
  6: FUN(X[[i]], ...)
  7: plot_to_gtable(x)
  8: ggplot2::ggplotGrob(plot)
  9: ggplot_gtable(ggplot_build(x))
  10: ggplot_gtable.ggplot_built(ggplot_build(x))
  ...
  22: pushvpgp(x)
  23: pushgrobvp(x$vp)
  24: pushgrobvp.viewport(x$vp)
  25: pushViewport(vp, recording = FALSE)
  26: lapply(vps, push.vp, recording)
  27: FUN(X[[i]], ...)
  28: push.vp.vpTree(X[[i]], ...)
  29: push.vp(vp$parent, recording)
  30: push.vp.viewport(vp$parent, recording)
  31: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 13. Error: draw.gam() plots an AM with a single factor by-variable smooth (@t
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: draw(m3) at testthat/test-draw-methods.R:114
  2: draw.gam(m3)
  3: plot_grid(plotlist = g, align = align, axis = axis, ...)
  4: align_plots(plotlist = plots, align = align, axis = axis)
  5: do.call(grid::unit.pmax, lapply(grobs, function(x) {
         x$widths
     }))
  6: (function (...) 
     {
         pSummary(..., op = "max")
     })(structure(list(5.5, list(0, NULL, 1L), list(1, structure(list(widths = structure(list(
         0, list(1, structure(list(list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), just = "centre", 
             hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, name = "GRID.text.1125", 
             gp = structure(list(fontsize = 11, col = "black", fontfamily = "", lineheight = 0.9, 
                 font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
         "grob", "gDesc")), 21L), list(0.0366666666666667, NULL, 2L)), class = "unit"), 
             201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
     "unit")), name = "axis.title.y.left..titleGrob.1127", gp = NULL, vp = structure(list(
         parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
             justification = "centre", gp = structure(list(fontsize = 11, col = "black", 
                 fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
             clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                 nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                     list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                     )), just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                       name = "GRID.text.1125", gp = structure(list(fontsize = 11, col = "black", 
                         fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                       vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                       NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                 "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                 0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 0.5)), class = "layout"), 
             layout.pos.row = NULL, layout.pos.col = NULL, valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
             valid.pos.col = NULL, name = "GRID.VP.289"), class = "viewport"), children = structure(list(
             structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
             )), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
             "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit"
             )), justification = "centre", gp = structure(list(), class = "gpar"), clip = FALSE, 
                 xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = NULL, 
                 layout.pos.col = c(2L, 2L), valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
                 valid.pos.col = c(2L, 2L), name = "GRID.VP.290"), class = "viewport")), class = c("vpList", 
         "viewport"))), class = c("vpTree", "viewport")), children = structure(list(GRID.text.1125 = structure(list(
         label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", "unit")), 
         y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), just = "centre", 
         hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, name = "GRID.text.1125", 
         gp = structure(list(fontsize = 11, col = "black", fontfamily = "", lineheight = 0.9, 
             font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", "grob", 
     "gDesc"))), class = "gList"), childrenOrder = "GRID.text.1125"), class = c("titleGrob", 
     "gTree", "grob", "gDesc")), 21L), list(1, structure(list(list(1, structure(list(widths = structure(list(
         0, list(1, structure(list(list(1, structure(list(label = c("-2", "-1", "0", "1"
         ), x = structure(c(1, 1, 1, 1), unit = 0L, class = c("simpleUnit", "unit")), 
             y = structure(c(0.103923066550751, 0.369949473102034, 0.635975879653318, 
             0.902002286204601), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", 
             hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.1115", 
             gp = structure(list(fontsize = 8.8, col = "grey30", fontfamily = "", lineheight = 0.9, 
                 font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
         "grob", "gDesc")), 21L), list(0, NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), 
         heights = structure(1, unit = 5L, class = c("simpleUnit", "unit")), name = "axis.text.y.left..titleGrob.1117", 
         gp = NULL, vp = structure(list(parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
             justification = "centre", gp = structure(list(fontsize = 8.8, col = "grey30", 
                 fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
             clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                 nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                     list(1, structure(list(label = c("-2", "-1", "0", "1"), x = structure(c(1, 
                     1, 1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.103923066550751, 
                     0.369949473102034, 0.635975879653318, 0.902002286204601), unit = 4L, class = c("simpleUnit", 
                     "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                       name = "GRID.text.1115", gp = structure(list(fontsize = 8.8, col = "grey30", 
                         fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                       vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0, 
                       NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                 "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                 0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 0.5)), class = "layout"), 
             layout.pos.row = NULL, layout.pos.col = NULL, valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
             valid.pos.col = NULL, name = "GRID.VP.284"), class = "viewport"), children = structure(list(
             structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
             )), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
             "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit"
             )), justification = "centre", gp = structure(list(), class = "gpar"), clip = FALSE, 
                 xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = NULL, 
                 layout.pos.col = c(2L, 2L), valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
                 valid.pos.col = c(2L, 2L), name = "GRID.VP.285"), class = "viewport")), class = c("vpList", 
         "viewport"))), class = c("vpTree", "viewport")), children = structure(list(GRID.text.1115 = structure(list(
             label = c("-2", "-1", "0", "1"), x = structure(c(1, 1, 1, 1), unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(c(0.103923066550751, 0.369949473102034, 0.635975879653318, 
             0.902002286204601), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", 
             hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.1115", 
             gp = structure(list(fontsize = 8.8, col = "grey30", fontfamily = "", lineheight = 0.9, 
                 font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
         "grob", "gDesc"))), class = "gList"), childrenOrder = "GRID.text.1115"), class = c("titleGrob", 
     "gTree", "grob", "gDesc")), 21L), list(2.75, NULL, 8L)), class = "unit"), 201L), 
         list(1, NULL, 5L), list(0, NULL, 1L), list(0, NULL, 1L), list(0, NULL, 8L), 5.5), class = "unit"), 
         structure(list(5.5, list(0, NULL, 1L), list(1, structure(list(widths = structure(list(
             0, list(1, structure(list(list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                 name = "GRID.text.1177", gp = structure(list(fontsize = 11, col = "black", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                 NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
         "unit")), name = "axis.title.y.left..titleGrob.1179", gp = NULL, vp = structure(list(
             parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", 
                 "unit")), justification = "centre", gp = structure(list(fontsize = 11, 
                     col = "black", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                     nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                       list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
                       "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", 
                       "unit")), just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                         name = "GRID.text.1177", gp = structure(list(fontsize = 11, col = "black", 
                           fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                         vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                         NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                     "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                     0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 
                     0.5)), class = "layout"), layout.pos.row = NULL, layout.pos.col = NULL, 
                 valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, 
                 name = "GRID.VP.303"), class = "viewport"), children = structure(list(
                 structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     justification = "centre", gp = structure(list(), class = "gpar"), 
                     clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, 
                     layout.pos.row = NULL, layout.pos.col = c(2L, 2L), valid.just = c(0.5, 
                     0.5), valid.pos.row = NULL, valid.pos.col = c(2L, 2L), name = "GRID.VP.304"), class = "viewport")), class = c("vpList", 
             "viewport"))), class = c("vpTree", "viewport")), children = structure(list(
             GRID.text.1177 = structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                 name = "GRID.text.1177", gp = structure(list(fontsize = 11, col = "black", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), childrenOrder = "GRID.text.1177"), class = c("titleGrob", 
         "gTree", "grob", "gDesc")), 21L), list(1, structure(list(list(1, structure(list(
             widths = structure(list(0, list(1, structure(list(list(1, structure(list(
                 label = c("-2", "0", "2", "4"), x = structure(c(1, 1, 1, 1), unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(c(0.2003713058294, 0.410651887589355, 0.620932469349309, 
                 0.831213051109264), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", 
                 hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.1167", 
                 gp = structure(list(fontsize = 8.8, col = "grey30", fontfamily = "", 
                     lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
             "grob", "gDesc")), 21L), list(0, NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), 
             heights = structure(1, unit = 5L, class = c("simpleUnit", "unit")), name = "axis.text.y.left..titleGrob.1169", 
             gp = NULL, vp = structure(list(parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", 
                 "unit")), justification = "centre", gp = structure(list(fontsize = 8.8, 
                     col = "grey30", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                     nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                       list(1, structure(list(label = c("-2", "0", "2", "4"), x = structure(c(1, 
                       1, 1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.2003713058294, 
                       0.410651887589355, 0.620932469349309, 0.831213051109264), unit = 4L, class = c("simpleUnit", 
                       "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                         name = "GRID.text.1167", gp = structure(list(fontsize = 8.8, 
                           col = "grey30", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                         vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0, 
                         NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                     "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                     0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 
                     0.5)), class = "layout"), layout.pos.row = NULL, layout.pos.col = NULL, 
                 valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, 
                 name = "GRID.VP.298"), class = "viewport"), children = structure(list(
                 structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     justification = "centre", gp = structure(list(), class = "gpar"), 
                     clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, 
                     layout.pos.row = NULL, layout.pos.col = c(2L, 2L), valid.just = c(0.5, 
                     0.5), valid.pos.row = NULL, valid.pos.col = c(2L, 2L), name = "GRID.VP.299"), class = "viewport")), class = c("vpList", 
             "viewport"))), class = c("vpTree", "viewport")), children = structure(list(
                 GRID.text.1167 = structure(list(label = c("-2", "0", "2", "4"), x = structure(c(1, 
                 1, 1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.2003713058294, 
                 0.410651887589355, 0.620932469349309, 0.831213051109264), unit = 4L, class = c("simpleUnit", 
                 "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                     name = "GRID.text.1167", gp = structure(list(fontsize = 8.8, col = "grey30", 
                       fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                     vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), 
             childrenOrder = "GRID.text.1167"), class = c("titleGrob", "gTree", "grob", 
         "gDesc")), 21L), list(2.75, NULL, 8L)), class = "unit"), 201L), list(1, NULL, 
             5L), list(0, NULL, 1L), list(0, NULL, 1L), list(0, NULL, 8L), 5.5), class = "unit"), 
         structure(list(5.5, list(0, NULL, 1L), list(1, structure(list(widths = structure(list(
             0, list(1, structure(list(list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                 name = "GRID.text.1229", gp = structure(list(fontsize = 11, col = "black", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                 NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
         "unit")), name = "axis.title.y.left..titleGrob.1231", gp = NULL, vp = structure(list(
             parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", 
                 "unit")), justification = "centre", gp = structure(list(fontsize = 11, 
                     col = "black", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                     nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                       list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
                       "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", 
                       "unit")), just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                         name = "GRID.text.1229", gp = structure(list(fontsize = 11, col = "black", 
                           fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                         vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                         NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                     "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                     0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 
                     0.5)), class = "layout"), layout.pos.row = NULL, layout.pos.col = NULL, 
                 valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, 
                 name = "GRID.VP.317"), class = "viewport"), children = structure(list(
                 structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     justification = "centre", gp = structure(list(), class = "gpar"), 
                     clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, 
                     layout.pos.row = NULL, layout.pos.col = c(2L, 2L), valid.just = c(0.5, 
                     0.5), valid.pos.row = NULL, valid.pos.col = c(2L, 2L), name = "GRID.VP.318"), class = "viewport")), class = c("vpList", 
             "viewport"))), class = c("vpTree", "viewport")), children = structure(list(
             GRID.text.1229 = structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                 name = "GRID.text.1229", gp = structure(list(fontsize = 11, col = "black", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), childrenOrder = "GRID.text.1229"), class = c("titleGrob", 
         "gTree", "grob", "gDesc")), 21L), list(1, structure(list(list(1, structure(list(
             widths = structure(list(0, list(1, structure(list(list(1, structure(list(
                 label = c("-4", "0", "4"), x = structure(c(1, 1, 1), unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(c(0.22161887370641, 0.510013344540194, 0.798407815373977
                 ), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", hjust = 1, 
                 vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.1219", 
                 gp = structure(list(fontsize = 8.8, col = "grey30", fontfamily = "", 
                     lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
             "grob", "gDesc")), 21L), list(0, NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), 
             heights = structure(1, unit = 5L, class = c("simpleUnit", "unit")), name = "axis.text.y.left..titleGrob.1221", 
             gp = NULL, vp = structure(list(parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", 
                 "unit")), justification = "centre", gp = structure(list(fontsize = 8.8, 
                     col = "grey30", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                     nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                       list(1, structure(list(label = c("-4", "0", "4"), x = structure(c(1, 
                       1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.22161887370641, 
                       0.510013344540194, 0.798407815373977), unit = 4L, class = c("simpleUnit", 
                       "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                         name = "GRID.text.1219", gp = structure(list(fontsize = 8.8, 
                           col = "grey30", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                         vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0, 
                         NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                     "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                     0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 
                     0.5)), class = "layout"), layout.pos.row = NULL, layout.pos.col = NULL, 
                 valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, 
                 name = "GRID.VP.312"), class = "viewport"), children = structure(list(
                 structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     justification = "centre", gp = structure(list(), class = "gpar"), 
                     clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, 
                     layout.pos.row = NULL, layout.pos.col = c(2L, 2L), valid.just = c(0.5, 
                     0.5), valid.pos.row = NULL, valid.pos.col = c(2L, 2L), name = "GRID.VP.313"), class = "viewport")), class = c("vpList", 
             "viewport"))), class = c("vpTree", "viewport")), children = structure(list(
                 GRID.text.1219 = structure(list(label = c("-4", "0", "4"), x = structure(c(1, 
                 1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.22161887370641, 
                 0.510013344540194, 0.798407815373977), unit = 4L, class = c("simpleUnit", 
                 "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                     name = "GRID.text.1219", gp = structure(list(fontsize = 8.8, col = "grey30", 
                       fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                     vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), 
             childrenOrder = "GRID.text.1219"), class = c("titleGrob", "gTree", "grob", 
         "gDesc")), 21L), list(2.75, NULL, 8L)), class = "unit"), 201L), list(1, NULL, 
             5L), list(0, NULL, 1L), list(0, NULL, 1L), list(0, NULL, 8L), 5.5), class = "unit"), 
         structure(list(5.5, list(0, NULL, 1L), list(1, structure(list(widths = structure(list(
             0, list(1, structure(list(list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                 name = "GRID.text.1281", gp = structure(list(fontsize = 11, col = "black", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                 NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
         "unit")), name = "axis.title.y.left..titleGrob.1283", gp = NULL, vp = structure(list(
             parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", 
                 "unit")), justification = "centre", gp = structure(list(fontsize = 11, 
                     col = "black", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                     nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                       list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
                       "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", 
                       "unit")), just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                         name = "GRID.text.1281", gp = structure(list(fontsize = 11, col = "black", 
                           fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                         vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                         NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                     "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                     0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 
                     0.5)), class = "layout"), layout.pos.row = NULL, layout.pos.col = NULL, 
                 valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, 
                 name = "GRID.VP.331"), class = "viewport"), children = structure(list(
                 structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     justification = "centre", gp = structure(list(), class = "gpar"), 
                     clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, 
                     layout.pos.row = NULL, layout.pos.col = c(2L, 2L), valid.just = c(0.5, 
                     0.5), valid.pos.row = NULL, valid.pos.col = c(2L, 2L), name = "GRID.VP.332"), class = "viewport")), class = c("vpList", 
             "viewport"))), class = c("vpTree", "viewport")), children = structure(list(
             GRID.text.1281 = structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                 name = "GRID.text.1281", gp = structure(list(fontsize = 11, col = "black", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), childrenOrder = "GRID.text.1281"), class = c("titleGrob", 
         "gTree", "grob", "gDesc")), 21L), list(1, structure(list(list(1, structure(list(
             widths = structure(list(0, list(1, structure(list(list(1, structure(list(
                 label = c("-0.5", "0.0", "0.5", "1.0"), x = structure(c(1, 1, 1, 1), unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(c(0.245428262566241, 0.491388068826231, 0.737347875086221, 
                 0.983307681346211), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", 
                 hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.1271", 
                 gp = structure(list(fontsize = 8.8, col = "grey30", fontfamily = "", 
                     lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
             "grob", "gDesc")), 21L), list(0, NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), 
             heights = structure(1, unit = 5L, class = c("simpleUnit", "unit")), name = "axis.text.y.left..titleGrob.1273", 
             gp = NULL, vp = structure(list(parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", 
                 "unit")), justification = "centre", gp = structure(list(fontsize = 8.8, 
                     col = "grey30", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                     nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                       list(1, structure(list(label = c("-0.5", "0.0", "0.5", "1.0"), 
                         x = structure(c(1, 1, 1, 1), unit = 0L, class = c("simpleUnit", 
                         "unit")), y = structure(c(0.245428262566241, 0.491388068826231, 
                         0.737347875086221, 0.983307681346211), unit = 4L, class = c("simpleUnit", 
                         "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                         name = "GRID.text.1271", gp = structure(list(fontsize = 8.8, 
                           col = "grey30", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                         vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0, 
                         NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                     "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                     0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 
                     0.5)), class = "layout"), layout.pos.row = NULL, layout.pos.col = NULL, 
                 valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, 
                 name = "GRID.VP.326"), class = "viewport"), children = structure(list(
                 structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     justification = "centre", gp = structure(list(), class = "gpar"), 
                     clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, 
                     layout.pos.row = NULL, layout.pos.col = c(2L, 2L), valid.just = c(0.5, 
                     0.5), valid.pos.row = NULL, valid.pos.col = c(2L, 2L), name = "GRID.VP.327"), class = "viewport")), class = c("vpList", 
             "viewport"))), class = c("vpTree", "viewport")), children = structure(list(
                 GRID.text.1271 = structure(list(label = c("-0.5", "0.0", "0.5", "1.0"
                 ), x = structure(c(1, 1, 1, 1), unit = 0L, class = c("simpleUnit", "unit"
                 )), y = structure(c(0.245428262566241, 0.491388068826231, 0.737347875086221, 
                 0.983307681346211), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", 
                     hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.1271", 
                     gp = structure(list(fontsize = 8.8, col = "grey30", fontfamily = "", 
                       lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
                 "grob", "gDesc"))), class = "gList"), childrenOrder = "GRID.text.1271"), class = c("titleGrob", 
         "gTree", "grob", "gDesc")), 21L), list(2.75, NULL, 8L)), class = "unit"), 201L), 
             list(1, NULL, 5L), list(0, NULL, 1L), list(0, NULL, 1L), list(0, NULL, 8L), 
             5.5), class = "unit"), structure(list(5.5, list(0, NULL, 1L), list(1, structure(list(
             widths = structure(list(0, list(1, structure(list(list(1, structure(list(
                 label = "Partial effect of fac", x = structure(0, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                 name = "GRID.text.1328", gp = structure(list(fontsize = 11, col = "black", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                 NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
             "unit")), name = "axis.title.y.left..titleGrob.1330", gp = NULL, vp = structure(list(
                 parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     justification = "centre", gp = structure(list(fontsize = 11, col = "black", 
                       fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                     clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                       nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                         list(1, structure(list(label = "Partial effect of fac", x = structure(0, unit = 0L, class = c("simpleUnit", 
                         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", 
                         "unit")), just = "centre", hjust = 0.5, vjust = 1, rot = 90, 
                           check.overlap = FALSE, name = "GRID.text.1328", gp = structure(list(
                             fontsize = 11, col = "black", fontfamily = "", lineheight = 0.9, 
                             font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
                         "grob", "gDesc")), 21L), list(0.0366666666666667, NULL, 2L)), class = "unit"), 
                         201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                       "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                       0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 
                       0.5)), class = "layout"), layout.pos.row = NULL, layout.pos.col = NULL, 
                     valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, 
                     name = "GRID.VP.343"), class = "viewport"), children = structure(list(
                     structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                     )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit"
                     )), height = structure(1, unit = 0L, class = c("simpleUnit", "unit"
                     )), justification = "centre", gp = structure(list(), class = "gpar"), 
                       clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, 
                       layout.pos.row = NULL, layout.pos.col = c(2L, 2L), valid.just = c(0.5, 
                       0.5), valid.pos.row = NULL, valid.pos.col = c(2L, 2L), name = "GRID.VP.344"), class = "viewport")), class = c("vpList", 
                 "viewport"))), class = c("vpTree", "viewport")), children = structure(list(
                 GRID.text.1328 = structure(list(label = "Partial effect of fac", x = structure(0, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                     name = "GRID.text.1328", gp = structure(list(fontsize = 11, col = "black", 
                       fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                     vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), 
             childrenOrder = "GRID.text.1328"), class = c("titleGrob", "gTree", "grob", 
         "gDesc")), 21L), list(1, structure(list(list(1, structure(list(widths = structure(list(
             0, list(1, structure(list(list(1, structure(list(label = c("-3", "-2", "-1", 
             "0", "1", "2"), x = structure(c(1, 1, 1, 1, 1, 1), unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(c(0.0178494790849653, 0.18221058613655, 0.346571693188134, 
             0.510932800239718, 0.675293907291303, 0.839655014342887), unit = 4L, class = c("simpleUnit", 
             "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                 name = "GRID.text.1318", gp = structure(list(fontsize = 8.8, col = "grey30", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0, NULL, 
                 2L)), class = "unit"), 201L), 2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
         "unit")), name = "axis.text.y.left..titleGrob.1320", gp = NULL, vp = structure(list(
             parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", 
                 "unit")), justification = "centre", gp = structure(list(fontsize = 8.8, 
                     col = "grey30", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                     nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                       list(1, structure(list(label = c("-3", "-2", "-1", "0", "1", "2"
                       ), x = structure(c(1, 1, 1, 1, 1, 1), unit = 0L, class = c("simpleUnit", 
                       "unit")), y = structure(c(0.0178494790849653, 0.18221058613655, 
                       0.346571693188134, 0.510932800239718, 0.675293907291303, 0.839655014342887
                       ), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", 
                         hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.1318", 
                         gp = structure(list(fontsize = 8.8, col = "grey30", fontfamily = "", 
                           lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
                       "grob", "gDesc")), 21L), list(0, NULL, 2L)), class = "unit"), 201L), 
                       2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                     "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                     0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 
                     0.5)), class = "layout"), layout.pos.row = NULL, layout.pos.col = NULL, 
                 valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, 
                 name = "GRID.VP.338"), class = "viewport"), children = structure(list(
                 structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     justification = "centre", gp = structure(list(), class = "gpar"), 
                     clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, 
                     layout.pos.row = NULL, layout.pos.col = c(2L, 2L), valid.just = c(0.5, 
                     0.5), valid.pos.row = NULL, valid.pos.col = c(2L, 2L), name = "GRID.VP.339"), class = "viewport")), class = c("vpList", 
             "viewport"))), class = c("vpTree", "viewport")), children = structure(list(
             GRID.text.1318 = structure(list(label = c("-3", "-2", "-1", "0", "1", "2"
             ), x = structure(c(1, 1, 1, 1, 1, 1), unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(c(0.0178494790849653, 0.18221058613655, 0.346571693188134, 
             0.510932800239718, 0.675293907291303, 0.839655014342887), unit = 4L, class = c("simpleUnit", 
             "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                 name = "GRID.text.1318", gp = structure(list(fontsize = 8.8, col = "grey30", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), childrenOrder = "GRID.text.1318"), class = c("titleGrob", 
         "gTree", "grob", "gDesc")), 21L), list(2.75, NULL, 8L)), class = "unit"), 201L), 
             list(1, NULL, 5L), list(0, NULL, 1L), list(0, NULL, 1L), list(0, NULL, 8L), 
             5.5), class = "unit"))
  7: pSummary(..., op = "max")
  
  ── 14. Error: draw() works with continuous by (@test-draw-methods.R#126)  ──────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: draw(mod) at testthat/test-draw-methods.R:126
  2: draw.gam(mod)
  3: plot_grid(plotlist = g, align = align, axis = axis, ...)
  4: align_plots(plotlist = plots, align = align, axis = axis)
  5: do.call(grid::unit.pmax, lapply(grobs, function(x) {
         x$widths
     }))
  6: (function (...) 
     {
         pSummary(..., op = "max")
     })(structure(list(5.5, list(0, NULL, 1L), list(1, structure(list(widths = structure(list(
         0, list(1, structure(list(list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), just = "centre", 
             hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, name = "GRID.text.1376", 
             gp = structure(list(fontsize = 11, col = "black", fontfamily = "", lineheight = 0.9, 
                 font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
         "grob", "gDesc")), 21L), list(0.0366666666666667, NULL, 2L)), class = "unit"), 
             201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
     "unit")), name = "axis.title.y.left..titleGrob.1378", gp = NULL, vp = structure(list(
         parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
             justification = "centre", gp = structure(list(fontsize = 11, col = "black", 
                 fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
             clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                 nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                     list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                     )), just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                       name = "GRID.text.1376", gp = structure(list(fontsize = 11, col = "black", 
                         fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                       vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                       NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                 "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                 0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 0.5)), class = "layout"), 
             layout.pos.row = NULL, layout.pos.col = NULL, valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
             valid.pos.col = NULL, name = "GRID.VP.353"), class = "viewport"), children = structure(list(
             structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
             )), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
             "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit"
             )), justification = "centre", gp = structure(list(), class = "gpar"), clip = FALSE, 
                 xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = NULL, 
                 layout.pos.col = c(2L, 2L), valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
                 valid.pos.col = c(2L, 2L), name = "GRID.VP.354"), class = "viewport")), class = c("vpList", 
         "viewport"))), class = c("vpTree", "viewport")), children = structure(list(GRID.text.1376 = structure(list(
         label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", "unit")), 
         y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), just = "centre", 
         hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, name = "GRID.text.1376", 
         gp = structure(list(fontsize = 11, col = "black", fontfamily = "", lineheight = 0.9, 
             font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", "grob", 
     "gDesc"))), class = "gList"), childrenOrder = "GRID.text.1376"), class = c("titleGrob", 
     "gTree", "grob", "gDesc")), 21L), list(1, structure(list(list(1, structure(list(widths = structure(list(
         0, list(1, structure(list(list(1, structure(list(label = c("0", "2", "4"), x = structure(c(1, 
         1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.274138210180789, 
         0.559980106939908, 0.845822003699027), unit = 4L, class = c("simpleUnit", "unit"
         )), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
             name = "GRID.text.1366", gp = structure(list(fontsize = 8.8, col = "grey30", 
                 fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
             vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0, NULL, 2L)), class = "unit"), 
             201L), 2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
     "unit")), name = "axis.text.y.left..titleGrob.1368", gp = NULL, vp = structure(list(
         parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
             justification = "centre", gp = structure(list(fontsize = 8.8, col = "grey30", 
                 fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
             clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                 nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                     list(1, structure(list(label = c("0", "2", "4"), x = structure(c(1, 
                     1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.274138210180789, 
                     0.559980106939908, 0.845822003699027), unit = 4L, class = c("simpleUnit", 
                     "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                       name = "GRID.text.1366", gp = structure(list(fontsize = 8.8, col = "grey30", 
                         fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                       vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0, 
                       NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                 "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                 0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 0.5)), class = "layout"), 
             layout.pos.row = NULL, layout.pos.col = NULL, valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
             valid.pos.col = NULL, name = "GRID.VP.348"), class = "viewport"), children = structure(list(
             structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
             )), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
             "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit"
             )), justification = "centre", gp = structure(list(), class = "gpar"), clip = FALSE, 
                 xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = NULL, 
                 layout.pos.col = c(2L, 2L), valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
                 valid.pos.col = c(2L, 2L), name = "GRID.VP.349"), class = "viewport")), class = c("vpList", 
         "viewport"))), class = c("vpTree", "viewport")), children = structure(list(GRID.text.1366 = structure(list(
         label = c("0", "2", "4"), x = structure(c(1, 1, 1), unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(c(0.274138210180789, 0.559980106939908, 0.845822003699027
         ), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", hjust = 1, vjust = 0.5, 
         rot = 0, check.overlap = FALSE, name = "GRID.text.1366", gp = structure(list(
             fontsize = 8.8, col = "grey30", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
         vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), childrenOrder = "GRID.text.1366"), class = c("titleGrob", 
     "gTree", "grob", "gDesc")), 21L), list(2.75, NULL, 8L)), class = "unit"), 201L), 
         list(1, NULL, 5L), list(0, NULL, 1L), list(0, NULL, 1L), list(0, NULL, 8L), 5.5), class = "unit"))
  7: pSummary(..., op = "max")
  
  ── 15. Error: draw() works with continuous by and fixed scales (@test-draw-metho
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: draw(mod, scales = "fixed") at testthat/test-draw-methods.R:131
  2: draw.gam(mod, scales = "fixed")
  3: plot_grid(plotlist = g, align = align, axis = axis, ...)
  4: align_plots(plotlist = plots, align = align, axis = axis)
  5: do.call(grid::unit.pmax, lapply(grobs, function(x) {
         x$widths
     }))
  6: (function (...) 
     {
         pSummary(..., op = "max")
     })(structure(list(5.5, list(0, NULL, 1L), list(1, structure(list(widths = structure(list(
         0, list(1, structure(list(list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), just = "centre", 
             hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, name = "GRID.text.1426", 
             gp = structure(list(fontsize = 11, col = "black", fontfamily = "", lineheight = 0.9, 
                 font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
         "grob", "gDesc")), 21L), list(0.0366666666666667, NULL, 2L)), class = "unit"), 
             201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
     "unit")), name = "axis.title.y.left..titleGrob.1428", gp = NULL, vp = structure(list(
         parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
             justification = "centre", gp = structure(list(fontsize = 11, col = "black", 
                 fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
             clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                 nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                     list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                     )), just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                       name = "GRID.text.1426", gp = structure(list(fontsize = 11, col = "black", 
                         fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                       vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                       NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                 "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                 0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 0.5)), class = "layout"), 
             layout.pos.row = NULL, layout.pos.col = NULL, valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
             valid.pos.col = NULL, name = "GRID.VP.365"), class = "viewport"), children = structure(list(
             structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
             )), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
             "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit"
             )), justification = "centre", gp = structure(list(), class = "gpar"), clip = FALSE, 
                 xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = NULL, 
                 layout.pos.col = c(2L, 2L), valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
                 valid.pos.col = c(2L, 2L), name = "GRID.VP.366"), class = "viewport")), class = c("vpList", 
         "viewport"))), class = c("vpTree", "viewport")), children = structure(list(GRID.text.1426 = structure(list(
         label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", "unit")), 
         y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), just = "centre", 
         hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, name = "GRID.text.1426", 
         gp = structure(list(fontsize = 11, col = "black", fontfamily = "", lineheight = 0.9, 
             font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", "grob", 
     "gDesc"))), class = "gList"), childrenOrder = "GRID.text.1426"), class = c("titleGrob", 
     "gTree", "grob", "gDesc")), 21L), list(1, structure(list(list(1, structure(list(widths = structure(list(
         0, list(1, structure(list(list(1, structure(list(label = c("0", "2", "4"), x = structure(c(1, 
         1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.274138210180789, 
         0.559980106939908, 0.845822003699027), unit = 4L, class = c("simpleUnit", "unit"
         )), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
             name = "GRID.text.1416", gp = structure(list(fontsize = 8.8, col = "grey30", 
                 fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
             vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0, NULL, 2L)), class = "unit"), 
             201L), 2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
     "unit")), name = "axis.text.y.left..titleGrob.1418", gp = NULL, vp = structure(list(
         parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
             justification = "centre", gp = structure(list(fontsize = 8.8, col = "grey30", 
                 fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
             clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                 nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                     list(1, structure(list(label = c("0", "2", "4"), x = structure(c(1, 
                     1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.274138210180789, 
                     0.559980106939908, 0.845822003699027), unit = 4L, class = c("simpleUnit", 
                     "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                       name = "GRID.text.1416", gp = structure(list(fontsize = 8.8, col = "grey30", 
                         fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                       vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0, 
                       NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                 "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                 0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 0.5)), class = "layout"), 
             layout.pos.row = NULL, layout.pos.col = NULL, valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
             valid.pos.col = NULL, name = "GRID.VP.360"), class = "viewport"), children = structure(list(
             structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
             )), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
             "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit"
             )), justification = "centre", gp = structure(list(), class = "gpar"), clip = FALSE, 
                 xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = NULL, 
                 layout.pos.col = c(2L, 2L), valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
                 valid.pos.col = c(2L, 2L), name = "GRID.VP.361"), class = "viewport")), class = c("vpList", 
         "viewport"))), class = c("vpTree", "viewport")), children = structure(list(GRID.text.1416 = structure(list(
         label = c("0", "2", "4"), x = structure(c(1, 1, 1), unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(c(0.274138210180789, 0.559980106939908, 0.845822003699027
         ), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", hjust = 1, vjust = 0.5, 
         rot = 0, check.overlap = FALSE, name = "GRID.text.1416", gp = structure(list(
             fontsize = 8.8, col = "grey30", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
         vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), childrenOrder = "GRID.text.1416"), class = c("titleGrob", 
     "gTree", "grob", "gDesc")), 21L), list(2.75, NULL, 8L)), class = "unit"), 201L), 
         list(1, NULL, 5L), list(0, NULL, 1L), list(0, NULL, 1L), list(0, NULL, 8L), 5.5), class = "unit"))
  7: pSummary(..., op = "max")
  
  ── 16. Error: draw() works with random effect smooths (bs = 're') (@test-draw-me
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_doppelganger("draw.evaluated_re_smooth", p1) at testthat/test-draw-methods.R:151
  2: writer(fig, testcase, title)
  3: print_plot(plot, title)
  4: print_plot.ggplot(plot, title)
  5: print(p)
  6: print.ggplot(p)
  7: grid.draw(gtable)
  8: grid.draw.gTree(gtable)
  9: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  10: drawGTree(x)
  11: preDraw(x)
  12: preDraw.gTree(x)
  13: pushvpgp(x)
  14: pushgrobvp(x$vp)
  15: pushgrobvp.viewport(x$vp)
  16: pushViewport(vp, recording = FALSE)
  17: lapply(vps, push.vp, recording)
  18: FUN(X[[i]], ...)
  19: push.vp.viewport(X[[i]], ...)
  20: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 17. Error: draw() with random effect smooths (bs = 're') & factor by variable
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_doppelganger("draw.evaluated_re_smooth with factor by", p1) at testthat/test-draw-methods.R:178
  2: writer(fig, testcase, title)
  3: print_plot(plot, title)
  4: print_plot.ggplot(plot, title)
  5: print(p)
  6: print.ggplot(p)
  7: grid.draw(gtable)
  8: grid.draw.gTree(gtable)
  9: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  10: drawGTree(x)
  11: preDraw(x)
  12: preDraw.gTree(x)
  13: pushvpgp(x)
  14: pushgrobvp(x$vp)
  15: pushgrobvp.viewport(x$vp)
  16: pushViewport(vp, recording = FALSE)
  17: lapply(vps, push.vp, recording)
  18: FUN(X[[i]], ...)
  19: push.vp.viewport(X[[i]], ...)
  20: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 18. Error: draw() can handle non-standard names -- a function call as a name 
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: draw(fit) at testthat/test-draw-methods.R:198
  2: draw.gam(fit)
  3: plot_grid(plotlist = g, align = align, axis = axis, ...)
  4: align_plots(plotlist = plots, align = align, axis = axis)
  5: do.call(grid::unit.pmax, lapply(grobs, function(x) {
         x$widths
     }))
  6: (function (...) 
     {
         pSummary(..., op = "max")
     })(structure(list(5.5, list(0, NULL, 1L), list(1, structure(list(widths = structure(list(
         0, list(1, structure(list(list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), just = "centre", 
             hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, name = "GRID.text.1564", 
             gp = structure(list(fontsize = 11, col = "black", fontfamily = "", lineheight = 0.9, 
                 font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
         "grob", "gDesc")), 21L), list(0.0366666666666667, NULL, 2L)), class = "unit"), 
             201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
     "unit")), name = "axis.title.y.left..titleGrob.1566", gp = NULL, vp = structure(list(
         parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
             justification = "centre", gp = structure(list(fontsize = 11, col = "black", 
                 fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
             clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                 nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                     list(1, structure(list(label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                     )), just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                       name = "GRID.text.1564", gp = structure(list(fontsize = 11, col = "black", 
                         fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                       vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                       NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                 "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                 0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 0.5)), class = "layout"), 
             layout.pos.row = NULL, layout.pos.col = NULL, valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
             valid.pos.col = NULL, name = "GRID.VP.403"), class = "viewport"), children = structure(list(
             structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
             )), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
             "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit"
             )), justification = "centre", gp = structure(list(), class = "gpar"), clip = FALSE, 
                 xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = NULL, 
                 layout.pos.col = c(2L, 2L), valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
                 valid.pos.col = c(2L, 2L), name = "GRID.VP.404"), class = "viewport")), class = c("vpList", 
         "viewport"))), class = c("vpTree", "viewport")), children = structure(list(GRID.text.1564 = structure(list(
         label = "Effect", x = structure(0, unit = 0L, class = c("simpleUnit", "unit")), 
         y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), just = "centre", 
         hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, name = "GRID.text.1564", 
         gp = structure(list(fontsize = 11, col = "black", fontfamily = "", lineheight = 0.9, 
             font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", "grob", 
     "gDesc"))), class = "gList"), childrenOrder = "GRID.text.1564"), class = c("titleGrob", 
     "gTree", "grob", "gDesc")), 21L), list(1, structure(list(list(1, structure(list(widths = structure(list(
         0, list(1, structure(list(list(1, structure(list(label = c("-0.6", "-0.3", "0.0", 
         "0.3"), x = structure(c(1, 1, 1, 1), unit = 0L, class = c("simpleUnit", "unit"
         )), y = structure(c(0.244043038030273, 0.489382599930508, 0.734722161830742, 
         0.980061723730977), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", 
             hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.1554", 
             gp = structure(list(fontsize = 8.8, col = "grey30", fontfamily = "", lineheight = 0.9, 
                 font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
         "grob", "gDesc")), 21L), list(0, NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), 
         heights = structure(1, unit = 5L, class = c("simpleUnit", "unit")), name = "axis.text.y.left..titleGrob.1556", 
         gp = NULL, vp = structure(list(parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
             justification = "centre", gp = structure(list(fontsize = 8.8, col = "grey30", 
                 fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
             clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                 nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                     list(1, structure(list(label = c("-0.6", "-0.3", "0.0", "0.3"), x = structure(c(1, 
                     1, 1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.244043038030273, 
                     0.489382599930508, 0.734722161830742, 0.980061723730977), unit = 4L, class = c("simpleUnit", 
                     "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                       name = "GRID.text.1554", gp = structure(list(fontsize = 8.8, col = "grey30", 
                         fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                       vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0, 
                       NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                 "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                 0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 0.5)), class = "layout"), 
             layout.pos.row = NULL, layout.pos.col = NULL, valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
             valid.pos.col = NULL, name = "GRID.VP.398"), class = "viewport"), children = structure(list(
             structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
             )), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
             "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit"
             )), justification = "centre", gp = structure(list(), class = "gpar"), clip = FALSE, 
                 xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = NULL, 
                 layout.pos.col = c(2L, 2L), valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
                 valid.pos.col = c(2L, 2L), name = "GRID.VP.399"), class = "viewport")), class = c("vpList", 
         "viewport"))), class = c("vpTree", "viewport")), children = structure(list(GRID.text.1554 = structure(list(
             label = c("-0.6", "-0.3", "0.0", "0.3"), x = structure(c(1, 1, 1, 1), unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(c(0.244043038030273, 0.489382599930508, 0.734722161830742, 
             0.980061723730977), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", 
             hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.1554", 
             gp = structure(list(fontsize = 8.8, col = "grey30", fontfamily = "", lineheight = 0.9, 
                 font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
         "grob", "gDesc"))), class = "gList"), childrenOrder = "GRID.text.1554"), class = c("titleGrob", 
     "gTree", "grob", "gDesc")), 21L), list(2.75, NULL, 8L)), class = "unit"), 201L), 
         list(1, NULL, 5L), list(0, NULL, 1L), list(0, NULL, 1L), list(0, NULL, 8L), 5.5), class = "unit"))
  7: pSummary(..., op = "max")
  
  ── 19. Error: draw() works with factor-smooth interactions (bs = 'fs') (@test-dr
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_doppelganger("draw.evaluated_fs_smooth", p1) at testthat/test-draw-methods.R:230
  2: writer(fig, testcase, title)
  3: print_plot(plot, title)
  4: print_plot.ggplot(plot, title)
  5: print(p)
  6: print.ggplot(p)
  7: grid.draw(gtable)
  8: grid.draw.gTree(gtable)
  9: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  10: drawGTree(x)
  11: preDraw(x)
  12: preDraw.gTree(x)
  13: pushvpgp(x)
  14: pushgrobvp(x$vp)
  15: pushgrobvp.viewport(x$vp)
  16: pushViewport(vp, recording = FALSE)
  17: lapply(vps, push.vp, recording)
  18: FUN(X[[i]], ...)
  19: push.vp.viewport(X[[i]], ...)
  20: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 20. Error: draw() works with parametric terms (@test-draw-methods.R#268)  ───
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_doppelganger("draw.evaluated_parametric_term with linear parametric term", 
         p1) at testthat/test-draw-methods.R:268
  2: writer(fig, testcase, title)
  3: print_plot(plot, title)
  4: print_plot.ggplot(plot, title)
  5: print(p)
  6: print.ggplot(p)
  7: grid.draw(gtable)
  8: grid.draw.gTree(gtable)
  9: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  10: drawGTree(x)
  11: preDraw(x)
  12: preDraw.gTree(x)
  13: pushvpgp(x)
  14: pushgrobvp(x$vp)
  15: pushgrobvp.viewport(x$vp)
  16: pushViewport(vp, recording = FALSE)
  17: lapply(vps, push.vp, recording)
  18: FUN(X[[i]], ...)
  19: push.vp.viewport(X[[i]], ...)
  20: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 21. Error: component-wise CIs work without seWithMean (@test-draw-methods.R#3
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_doppelganger("draw 1d smooth for selected smooth with overall_uncertainty false", 
         plt) at testthat/test-draw-methods.R:300
  2: writer(fig, testcase, title)
  3: print_plot(plot, title)
  4: print_plot.ggplot(plot, title)
  5: print(p)
  6: print.ggplot(p)
  7: grid.draw(gtable)
  8: grid.draw.gTree(gtable)
  9: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  10: drawGTree(x)
  11: preDraw(x)
  12: preDraw.gTree(x)
  13: pushvpgp(x)
  14: pushgrobvp(x$vp)
  15: pushgrobvp.viewport(x$vp)
  16: pushViewport(vp, recording = FALSE)
  17: lapply(vps, push.vp, recording)
  18: FUN(X[[i]], ...)
  19: push.vp.viewport(X[[i]], ...)
  20: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 22. Error: draw.derivates() plots derivatives for a GAM (@test-draw-methods.R
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: draw(d1) at testthat/test-draw-methods.R:308
  2: draw.derivatives(d1)
  3: plot_grid(plotlist = plotlist, align = align, axis = axis, ...)
  4: align_plots(plotlist = plots, align = align, axis = axis)
  5: do.call(grid::unit.pmax, lapply(grobs, function(x) {
         x$widths
     }))
  6: (function (...) 
     {
         pSummary(..., op = "max")
     })(structure(list(5.5, list(0, NULL, 1L), list(1, structure(list(widths = structure(list(
         0, list(1, structure(list(list(1, structure(list(label = "Derivative", x = structure(0, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), just = "centre", 
             hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, name = "GRID.text.1746", 
             gp = structure(list(fontsize = 11, col = "black", fontfamily = "", lineheight = 0.9, 
                 font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
         "grob", "gDesc")), 21L), list(0.0366666666666667, NULL, 2L)), class = "unit"), 
             201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
     "unit")), name = "axis.title.y.left..titleGrob.1748", gp = NULL, vp = structure(list(
         parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
             justification = "centre", gp = structure(list(fontsize = 11, col = "black", 
                 fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
             clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                 nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                     list(1, structure(list(label = "Derivative", x = structure(0, unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                     )), just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                       name = "GRID.text.1746", gp = structure(list(fontsize = 11, col = "black", 
                         fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                       vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                       NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                 "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                 0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 0.5)), class = "layout"), 
             layout.pos.row = NULL, layout.pos.col = NULL, valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
             valid.pos.col = NULL, name = "GRID.VP.449"), class = "viewport"), children = structure(list(
             structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
             )), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
             "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit"
             )), justification = "centre", gp = structure(list(), class = "gpar"), clip = FALSE, 
                 xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = NULL, 
                 layout.pos.col = c(2L, 2L), valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
                 valid.pos.col = c(2L, 2L), name = "GRID.VP.450"), class = "viewport")), class = c("vpList", 
         "viewport"))), class = c("vpTree", "viewport")), children = structure(list(GRID.text.1746 = structure(list(
         label = "Derivative", x = structure(0, unit = 0L, class = c("simpleUnit", "unit"
         )), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), just = "centre", 
         hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, name = "GRID.text.1746", 
         gp = structure(list(fontsize = 11, col = "black", fontfamily = "", lineheight = 0.9, 
             font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", "grob", 
     "gDesc"))), class = "gList"), childrenOrder = "GRID.text.1746"), class = c("titleGrob", 
     "gTree", "grob", "gDesc")), 21L), list(1, structure(list(list(1, structure(list(widths = structure(list(
         0, list(1, structure(list(list(1, structure(list(label = c("-10", "-5", "0", 
         "5", "10"), x = structure(c(1, 1, 1, 1, 1), unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(c(0.167427415516193, 0.354268503905976, 0.541109592295759, 
         0.727950680685542, 0.914791769075325), unit = 4L, class = c("simpleUnit", "unit"
         )), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
             name = "GRID.text.1736", gp = structure(list(fontsize = 8.8, col = "grey30", 
                 fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
             vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0, NULL, 2L)), class = "unit"), 
             201L), 2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
     "unit")), name = "axis.text.y.left..titleGrob.1738", gp = NULL, vp = structure(list(
         parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
         "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
             justification = "centre", gp = structure(list(fontsize = 8.8, col = "grey30", 
                 fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
             clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                 nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                     list(1, structure(list(label = c("-10", "-5", "0", "5", "10"), x = structure(c(1, 
                     1, 1, 1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.167427415516193, 
                     0.354268503905976, 0.541109592295759, 0.727950680685542, 0.914791769075325
                     ), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", 
                       hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.1736", 
                       gp = structure(list(fontsize = 8.8, col = "grey30", fontfamily = "", 
                         lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
                     "grob", "gDesc")), 21L), list(0, NULL, 2L)), class = "unit"), 201L), 
                     2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                 "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                 0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 0.5)), class = "layout"), 
             layout.pos.row = NULL, layout.pos.col = NULL, valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
             valid.pos.col = NULL, name = "GRID.VP.444"), class = "viewport"), children = structure(list(
             structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
             )), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), width = structure(1, unit = 0L, class = c("simpleUnit", 
             "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", "unit"
             )), justification = "centre", gp = structure(list(), class = "gpar"), clip = FALSE, 
                 xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = NULL, 
                 layout.pos.col = c(2L, 2L), valid.just = c(0.5, 0.5), valid.pos.row = NULL, 
                 valid.pos.col = c(2L, 2L), name = "GRID.VP.445"), class = "viewport")), class = c("vpList", 
         "viewport"))), class = c("vpTree", "viewport")), children = structure(list(GRID.text.1736 = structure(list(
         label = c("-10", "-5", "0", "5", "10"), x = structure(c(1, 1, 1, 1, 1), unit = 0L, class = c("simpleUnit", 
         "unit")), y = structure(c(0.167427415516193, 0.354268503905976, 0.541109592295759, 
         0.727950680685542, 0.914791769075325), unit = 4L, class = c("simpleUnit", "unit"
         )), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
         name = "GRID.text.1736", gp = structure(list(fontsize = 8.8, col = "grey30", 
             fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
         vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), childrenOrder = "GRID.text.1736"), class = c("titleGrob", 
     "gTree", "grob", "gDesc")), 21L), list(2.75, NULL, 8L)), class = "unit"), 201L), 
         list(1, NULL, 5L), list(0, NULL, 1L), list(0, NULL, 1L), list(0, NULL, 8L), 5.5), class = "unit"), 
         structure(list(5.5, list(0, NULL, 1L), list(1, structure(list(widths = structure(list(
             0, list(1, structure(list(list(1, structure(list(label = "Derivative", x = structure(0, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                 name = "GRID.text.1794", gp = structure(list(fontsize = 11, col = "black", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                 NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
         "unit")), name = "axis.title.y.left..titleGrob.1796", gp = NULL, vp = structure(list(
             parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", 
                 "unit")), justification = "centre", gp = structure(list(fontsize = 11, 
                     col = "black", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                     nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                       list(1, structure(list(label = "Derivative", x = structure(0, unit = 0L, class = c("simpleUnit", 
                       "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", 
                       "unit")), just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                         name = "GRID.text.1794", gp = structure(list(fontsize = 11, col = "black", 
                           fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                         vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                         NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                     "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                     0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 
                     0.5)), class = "layout"), layout.pos.row = NULL, layout.pos.col = NULL, 
                 valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, 
                 name = "GRID.VP.461"), class = "viewport"), children = structure(list(
                 structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     justification = "centre", gp = structure(list(), class = "gpar"), 
                     clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, 
                     layout.pos.row = NULL, layout.pos.col = c(2L, 2L), valid.just = c(0.5, 
                     0.5), valid.pos.row = NULL, valid.pos.col = c(2L, 2L), name = "GRID.VP.462"), class = "viewport")), class = c("vpList", 
             "viewport"))), class = c("vpTree", "viewport")), children = structure(list(
             GRID.text.1794 = structure(list(label = "Derivative", x = structure(0, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                 name = "GRID.text.1794", gp = structure(list(fontsize = 11, col = "black", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), childrenOrder = "GRID.text.1794"), class = c("titleGrob", 
         "gTree", "grob", "gDesc")), 21L), list(1, structure(list(list(1, structure(list(
             widths = structure(list(0, list(1, structure(list(list(1, structure(list(
                 label = c("0", "10"), x = structure(c(1, 1), unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(c(0.300430447367239, 0.69829477464308), unit = 4L, class = c("simpleUnit", 
                 "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                 name = "GRID.text.1784", gp = structure(list(fontsize = 8.8, col = "grey30", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0, NULL, 
                 2L)), class = "unit"), 201L), 2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
             "unit")), name = "axis.text.y.left..titleGrob.1786", gp = NULL, vp = structure(list(
                 parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     justification = "centre", gp = structure(list(fontsize = 8.8, col = "grey30", 
                       fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                     clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                       nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                         list(1, structure(list(label = c("0", "10"), x = structure(c(1, 
                         1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.300430447367239, 
                         0.69829477464308), unit = 4L, class = c("simpleUnit", "unit")), 
                           just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                           name = "GRID.text.1784", gp = structure(list(fontsize = 8.8, 
                             col = "grey30", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                           vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(
                           0, NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), 
                       heights = structure(1, unit = 5L, class = c("simpleUnit", "unit"
                       )), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                       0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 
                       0.5)), class = "layout"), layout.pos.row = NULL, layout.pos.col = NULL, 
                     valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, 
                     name = "GRID.VP.456"), class = "viewport"), children = structure(list(
                     structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                     )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit"
                     )), height = structure(1, unit = 0L, class = c("simpleUnit", "unit"
                     )), justification = "centre", gp = structure(list(), class = "gpar"), 
                       clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, 
                       layout.pos.row = NULL, layout.pos.col = c(2L, 2L), valid.just = c(0.5, 
                       0.5), valid.pos.row = NULL, valid.pos.col = c(2L, 2L), name = "GRID.VP.457"), class = "viewport")), class = c("vpList", 
                 "viewport"))), class = c("vpTree", "viewport")), children = structure(list(
                 GRID.text.1784 = structure(list(label = c("0", "10"), x = structure(c(1, 
                 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.300430447367239, 
                 0.69829477464308), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", 
                     hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.1784", 
                     gp = structure(list(fontsize = 8.8, col = "grey30", fontfamily = "", 
                       lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
                 "grob", "gDesc"))), class = "gList"), childrenOrder = "GRID.text.1784"), class = c("titleGrob", 
         "gTree", "grob", "gDesc")), 21L), list(2.75, NULL, 8L)), class = "unit"), 201L), 
             list(1, NULL, 5L), list(0, NULL, 1L), list(0, NULL, 1L), list(0, NULL, 8L), 
             5.5), class = "unit"), structure(list(5.5, list(0, NULL, 1L), list(1, structure(list(
             widths = structure(list(0, list(1, structure(list(list(1, structure(list(
                 label = "Derivative", x = structure(0, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                 name = "GRID.text.1842", gp = structure(list(fontsize = 11, col = "black", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                 NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
             "unit")), name = "axis.title.y.left..titleGrob.1844", gp = NULL, vp = structure(list(
                 parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     justification = "centre", gp = structure(list(fontsize = 11, col = "black", 
                       fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                     clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                       nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                         list(1, structure(list(label = "Derivative", x = structure(0, unit = 0L, class = c("simpleUnit", 
                         "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", 
                         "unit")), just = "centre", hjust = 0.5, vjust = 1, rot = 90, 
                           check.overlap = FALSE, name = "GRID.text.1842", gp = structure(list(
                             fontsize = 11, col = "black", fontfamily = "", lineheight = 0.9, 
                             font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
                         "grob", "gDesc")), 21L), list(0.0366666666666667, NULL, 2L)), class = "unit"), 
                         201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                       "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                       0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 
                       0.5)), class = "layout"), layout.pos.row = NULL, layout.pos.col = NULL, 
                     valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, 
                     name = "GRID.VP.473"), class = "viewport"), children = structure(list(
                     structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                     "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                     )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit"
                     )), height = structure(1, unit = 0L, class = c("simpleUnit", "unit"
                     )), justification = "centre", gp = structure(list(), class = "gpar"), 
                       clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, 
                       layout.pos.row = NULL, layout.pos.col = c(2L, 2L), valid.just = c(0.5, 
                       0.5), valid.pos.row = NULL, valid.pos.col = c(2L, 2L), name = "GRID.VP.474"), class = "viewport")), class = c("vpList", 
                 "viewport"))), class = c("vpTree", "viewport")), children = structure(list(
                 GRID.text.1842 = structure(list(label = "Derivative", x = structure(0, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                     name = "GRID.text.1842", gp = structure(list(fontsize = 11, col = "black", 
                       fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                     vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), 
             childrenOrder = "GRID.text.1842"), class = c("titleGrob", "gTree", "grob", 
         "gDesc")), 21L), list(1, structure(list(list(1, structure(list(widths = structure(list(
             0, list(1, structure(list(list(1, structure(list(label = c("-25", "0", "25", 
             "50"), x = structure(c(1, 1, 1, 1), unit = 0L, class = c("simpleUnit", "unit"
             )), y = structure(c(0.186291043751021, 0.401162410529663, 0.616033777308304, 
             0.830905144086945), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", 
                 hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.1832", 
                 gp = structure(list(fontsize = 8.8, col = "grey30", fontfamily = "", 
                     lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
             "grob", "gDesc")), 21L), list(0, NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), 
             heights = structure(1, unit = 5L, class = c("simpleUnit", "unit")), name = "axis.text.y.left..titleGrob.1834", 
             gp = NULL, vp = structure(list(parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", 
                 "unit")), justification = "centre", gp = structure(list(fontsize = 8.8, 
                     col = "grey30", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                     nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                       list(1, structure(list(label = c("-25", "0", "25", "50"), x = structure(c(1, 
                       1, 1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.186291043751021, 
                       0.401162410529663, 0.616033777308304, 0.830905144086945), unit = 4L, class = c("simpleUnit", 
                       "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                         name = "GRID.text.1832", gp = structure(list(fontsize = 8.8, 
                           col = "grey30", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                         vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0, 
                         NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                     "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                     0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 
                     0.5)), class = "layout"), layout.pos.row = NULL, layout.pos.col = NULL, 
                 valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, 
                 name = "GRID.VP.468"), class = "viewport"), children = structure(list(
                 structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     justification = "centre", gp = structure(list(), class = "gpar"), 
                     clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, 
                     layout.pos.row = NULL, layout.pos.col = c(2L, 2L), valid.just = c(0.5, 
                     0.5), valid.pos.row = NULL, valid.pos.col = c(2L, 2L), name = "GRID.VP.469"), class = "viewport")), class = c("vpList", 
             "viewport"))), class = c("vpTree", "viewport")), children = structure(list(
                 GRID.text.1832 = structure(list(label = c("-25", "0", "25", "50"), x = structure(c(1, 
                 1, 1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.186291043751021, 
                 0.401162410529663, 0.616033777308304, 0.830905144086945), unit = 4L, class = c("simpleUnit", 
                 "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                     name = "GRID.text.1832", gp = structure(list(fontsize = 8.8, col = "grey30", 
                       fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                     vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), 
             childrenOrder = "GRID.text.1832"), class = c("titleGrob", "gTree", "grob", 
         "gDesc")), 21L), list(2.75, NULL, 8L)), class = "unit"), 201L), list(1, NULL, 
             5L), list(0, NULL, 1L), list(0, NULL, 1L), list(0, NULL, 8L), 5.5), class = "unit"), 
         structure(list(5.5, list(0, NULL, 1L), list(1, structure(list(widths = structure(list(
             0, list(1, structure(list(list(1, structure(list(label = "Derivative", x = structure(0, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                 name = "GRID.text.1890", gp = structure(list(fontsize = 11, col = "black", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                 NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
         "unit")), name = "axis.title.y.left..titleGrob.1892", gp = NULL, vp = structure(list(
             parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", 
                 "unit")), justification = "centre", gp = structure(list(fontsize = 11, 
                     col = "black", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                     nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                       list(1, structure(list(label = "Derivative", x = structure(0, unit = 0L, class = c("simpleUnit", 
                       "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", 
                       "unit")), just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                         name = "GRID.text.1890", gp = structure(list(fontsize = 11, col = "black", 
                           fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                         vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0.0366666666666667, 
                         NULL, 2L)), class = "unit"), 201L), 2.75), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                     "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                     0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 
                     0.5)), class = "layout"), layout.pos.row = NULL, layout.pos.col = NULL, 
                 valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, 
                 name = "GRID.VP.485"), class = "viewport"), children = structure(list(
                 structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     justification = "centre", gp = structure(list(), class = "gpar"), 
                     clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, 
                     layout.pos.row = NULL, layout.pos.col = c(2L, 2L), valid.just = c(0.5, 
                     0.5), valid.pos.row = NULL, valid.pos.col = c(2L, 2L), name = "GRID.VP.486"), class = "viewport")), class = c("vpList", 
             "viewport"))), class = c("vpTree", "viewport")), children = structure(list(
             GRID.text.1890 = structure(list(label = "Derivative", x = structure(0, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 just = "centre", hjust = 0.5, vjust = 1, rot = 90, check.overlap = FALSE, 
                 name = "GRID.text.1890", gp = structure(list(fontsize = 11, col = "black", 
                     fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), childrenOrder = "GRID.text.1890"), class = c("titleGrob", 
         "gTree", "grob", "gDesc")), 21L), list(1, structure(list(list(1, structure(list(
             widths = structure(list(0, list(1, structure(list(list(1, structure(list(
                 label = c("-1.0", "-0.5", "0.0"), x = structure(c(1, 1, 1), unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(c(0.0283830003515813, 0.354455424283346, 0.680527848215112
                 ), unit = 4L, class = c("simpleUnit", "unit")), just = "centre", hjust = 1, 
                 vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.1880", 
                 gp = structure(list(fontsize = 8.8, col = "grey30", fontfamily = "", 
                     lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), vp = NULL), class = c("text", 
             "grob", "gDesc")), 21L), list(0, NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), 
             heights = structure(1, unit = 5L, class = c("simpleUnit", "unit")), name = "axis.text.y.left..titleGrob.1882", 
             gp = NULL, vp = structure(list(parent = structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
             "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit")), 
                 width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), height = structure(1, unit = 0L, class = c("simpleUnit", 
                 "unit")), justification = "centre", gp = structure(list(fontsize = 8.8, 
                     col = "grey30", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                 clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(
                     nrow = 1L, ncol = 3L, widths = structure(list(0, list(1, structure(list(
                       list(1, structure(list(label = c("-1.0", "-0.5", "0.0"), x = structure(c(1, 
                       1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.0283830003515813, 
                       0.354455424283346, 0.680527848215112), unit = 4L, class = c("simpleUnit", 
                       "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                         name = "GRID.text.1880", gp = structure(list(fontsize = 8.8, 
                           col = "grey30", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                         vp = NULL), class = c("text", "grob", "gDesc")), 21L), list(0, 
                         NULL, 2L)), class = "unit"), 201L), 2.2), class = "unit"), heights = structure(1, unit = 5L, class = c("simpleUnit", 
                     "unit")), respect = FALSE, valid.respect = 0L, respect.mat = structure(c(0L, 
                     0L, 0L), .Dim = c(1L, 3L)), just = "centre", valid.just = c(0.5, 
                     0.5)), class = "layout"), layout.pos.row = NULL, layout.pos.col = NULL, 
                 valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, 
                 name = "GRID.VP.480"), class = "viewport"), children = structure(list(
                 structure(list(x = structure(0.5, unit = 0L, class = c("simpleUnit", 
                 "unit")), y = structure(0.5, unit = 0L, class = c("simpleUnit", "unit"
                 )), width = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     height = structure(1, unit = 0L, class = c("simpleUnit", "unit")), 
                     justification = "centre", gp = structure(list(), class = "gpar"), 
                     clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, 
                     layout.pos.row = NULL, layout.pos.col = c(2L, 2L), valid.just = c(0.5, 
                     0.5), valid.pos.row = NULL, valid.pos.col = c(2L, 2L), name = "GRID.VP.481"), class = "viewport")), class = c("vpList", 
             "viewport"))), class = c("vpTree", "viewport")), children = structure(list(
                 GRID.text.1880 = structure(list(label = c("-1.0", "-0.5", "0.0"), x = structure(c(1, 
                 1, 1), unit = 0L, class = c("simpleUnit", "unit")), y = structure(c(0.0283830003515813, 
                 0.354455424283346, 0.680527848215112), unit = 4L, class = c("simpleUnit", 
                 "unit")), just = "centre", hjust = 1, vjust = 0.5, rot = 0, check.overlap = FALSE, 
                     name = "GRID.text.1880", gp = structure(list(fontsize = 8.8, col = "grey30", 
                       fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), class = "gpar"), 
                     vp = NULL), class = c("text", "grob", "gDesc"))), class = "gList"), 
             childrenOrder = "GRID.text.1880"), class = c("titleGrob", "gTree", "grob", 
         "gDesc")), 21L), list(2.75, NULL, 8L)), class = "unit"), 201L), list(1, NULL, 
             5L), list(0, NULL, 1L), list(0, NULL, 1L), list(0, NULL, 8L), 5.5), class = "unit"))
  7: pSummary(..., op = "max")
  
  ── 23. Error: qq_plot() direct method works (@test-qq-plot.R#28)  ──────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_doppelganger("qq_plot direct randomisation", plt) at testthat/test-qq-plot.R:28
  2: writer(fig, testcase, title)
  3: print_plot(plot, title)
  4: print_plot.ggplot(plot, title)
  5: print(p)
  6: print.ggplot(p)
  7: grid.draw(gtable)
  8: grid.draw.gTree(gtable)
  9: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  10: drawGTree(x)
  11: preDraw(x)
  12: preDraw.gTree(x)
  13: pushvpgp(x)
  14: pushgrobvp(x$vp)
  15: pushgrobvp.viewport(x$vp)
  16: pushViewport(vp, recording = FALSE)
  17: lapply(vps, push.vp, recording)
  18: FUN(X[[i]], ...)
  19: push.vp.viewport(X[[i]], ...)
  20: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 24. Error: qq_plot() direct method works with response residuals (@test-qq-pl
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_doppelganger("qq_plot direct randomisation response residuals", plt) at testthat/test-qq-plot.R:33
  2: writer(fig, testcase, title)
  3: print_plot(plot, title)
  4: print_plot.ggplot(plot, title)
  5: print(p)
  6: print.ggplot(p)
  7: grid.draw(gtable)
  8: grid.draw.gTree(gtable)
  9: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  10: drawGTree(x)
  11: preDraw(x)
  12: preDraw.gTree(x)
  13: pushvpgp(x)
  14: pushgrobvp(x$vp)
  15: pushgrobvp.viewport(x$vp)
  16: pushViewport(vp, recording = FALSE)
  17: lapply(vps, push.vp, recording)
  18: FUN(X[[i]], ...)
  19: push.vp.viewport(X[[i]], ...)
  20: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 25. Error: qq_plot() direct method works with pearson residuals (@test-qq-plo
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_doppelganger("qq_plot direct randomisation pearson residuals", plt) at testthat/test-qq-plot.R:38
  2: writer(fig, testcase, title)
  3: print_plot(plot, title)
  4: print_plot.ggplot(plot, title)
  5: print(p)
  6: print.ggplot(p)
  7: grid.draw(gtable)
  8: grid.draw.gTree(gtable)
  9: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  10: drawGTree(x)
  11: preDraw(x)
  12: preDraw.gTree(x)
  13: pushvpgp(x)
  14: pushgrobvp(x$vp)
  15: pushgrobvp.viewport(x$vp)
  16: pushViewport(vp, recording = FALSE)
  17: lapply(vps, push.vp, recording)
  18: FUN(X[[i]], ...)
  19: push.vp.viewport(X[[i]], ...)
  20: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 26. Error: qq_plot() normal method works (@test-qq-plot.R#43)  ──────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_doppelganger("qq_plot normality assumption", plt) at testthat/test-qq-plot.R:43
  2: writer(fig, testcase, title)
  3: print_plot(plot, title)
  4: print_plot.ggplot(plot, title)
  5: print(p)
  6: print.ggplot(p)
  7: grid.draw(gtable)
  8: grid.draw.gTree(gtable)
  9: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  10: drawGTree(x)
  11: preDraw(x)
  12: preDraw.gTree(x)
  13: pushvpgp(x)
  14: pushgrobvp(x$vp)
  15: pushgrobvp.viewport(x$vp)
  16: pushViewport(vp, recording = FALSE)
  17: lapply(vps, push.vp, recording)
  18: FUN(X[[i]], ...)
  19: push.vp.viewport(X[[i]], ...)
  20: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 27. Error: qq_plot() normal method works (@test-qq-plot.R#48)  ──────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_doppelganger("qq_plot normality assumption response residuals", plt) at testthat/test-qq-plot.R:48
  2: writer(fig, testcase, title)
  3: print_plot(plot, title)
  4: print_plot.ggplot(plot, title)
  5: print(p)
  6: print.ggplot(p)
  7: grid.draw(gtable)
  8: grid.draw.gTree(gtable)
  9: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  10: drawGTree(x)
  11: preDraw(x)
  12: preDraw.gTree(x)
  13: pushvpgp(x)
  14: pushgrobvp(x$vp)
  15: pushgrobvp.viewport(x$vp)
  16: pushViewport(vp, recording = FALSE)
  17: lapply(vps, push.vp, recording)
  18: FUN(X[[i]], ...)
  19: push.vp.viewport(X[[i]], ...)
  20: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 28. Error: qq_plot() normal method works (@test-qq-plot.R#53)  ──────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_doppelganger("qq_plot normality assumption pearson residuals", plt) at testthat/test-qq-plot.R:53
  2: writer(fig, testcase, title)
  3: print_plot(plot, title)
  4: print_plot.ggplot(plot, title)
  5: print(p)
  6: print.ggplot(p)
  7: grid.draw(gtable)
  8: grid.draw.gTree(gtable)
  9: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  10: drawGTree(x)
  11: preDraw(x)
  12: preDraw.gTree(x)
  13: pushvpgp(x)
  14: pushgrobvp(x$vp)
  15: pushgrobvp.viewport(x$vp)
  16: pushViewport(vp, recording = FALSE)
  17: lapply(vps, push.vp, recording)
  18: FUN(X[[i]], ...)
  19: push.vp.viewport(X[[i]], ...)
  20: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 29. Error: qq_plot() simulate method works (@test-qq-plot.R#58)  ────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_doppelganger("qq_plot data simulation", plt) at testthat/test-qq-plot.R:58
  2: writer(fig, testcase, title)
  3: print_plot(plot, title)
  4: print_plot.ggplot(plot, title)
  5: print(p)
  6: print.ggplot(p)
  7: grid.draw(gtable)
  8: grid.draw.gTree(gtable)
  9: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  10: drawGTree(x)
  11: preDraw(x)
  12: preDraw.gTree(x)
  13: pushvpgp(x)
  14: pushgrobvp(x$vp)
  15: pushgrobvp.viewport(x$vp)
  16: pushViewport(vp, recording = FALSE)
  17: lapply(vps, push.vp, recording)
  18: FUN(X[[i]], ...)
  19: push.vp.viewport(X[[i]], ...)
  20: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 30. Error: qq_plot() simulate method works (@test-qq-plot.R#63)  ────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_doppelganger("qq_plot data simulation response residuals", plt) at testthat/test-qq-plot.R:63
  2: writer(fig, testcase, title)
  3: print_plot(plot, title)
  4: print_plot.ggplot(plot, title)
  5: print(p)
  6: print.ggplot(p)
  7: grid.draw(gtable)
  8: grid.draw.gTree(gtable)
  9: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  10: drawGTree(x)
  11: preDraw(x)
  12: preDraw.gTree(x)
  13: pushvpgp(x)
  14: pushgrobvp(x$vp)
  15: pushgrobvp.viewport(x$vp)
  16: pushViewport(vp, recording = FALSE)
  17: lapply(vps, push.vp, recording)
  18: FUN(X[[i]], ...)
  19: push.vp.viewport(X[[i]], ...)
  20: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 31. Error: qq_plot() simulate method works (@test-qq-plot.R#68)  ────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_doppelganger("qq_plot data simulation pearson residuals", plt) at testthat/test-qq-plot.R:68
  2: writer(fig, testcase, title)
  3: print_plot(plot, title)
  4: print_plot.ggplot(plot, title)
  5: print(p)
  6: print.ggplot(p)
  7: grid.draw(gtable)
  8: grid.draw.gTree(gtable)
  9: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  10: drawGTree(x)
  11: preDraw(x)
  12: preDraw.gTree(x)
  13: pushvpgp(x)
  14: pushgrobvp(x$vp)
  15: pushgrobvp.viewport(x$vp)
  16: pushViewport(vp, recording = FALSE)
  17: lapply(vps, push.vp, recording)
  18: FUN(X[[i]], ...)
  19: push.vp.viewport(X[[i]], ...)
  20: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 426 SKIPPED: 13 FAILED: 31
  1. Error: draw() works with continuous by (@test-by-variables.R#17) 
  2. Error: draw() works with continuous by and fixed scales (@test-by-variables.R#21) 
  3. Error: appraise() works (@test-diagnostic-plots.R#18) 
  4. Error: draw.evaluated_1d_smooth() plots the smooth (@test-draw-methods.R#28) 
  5. Error: draw.gam works with numeric select (@test-draw-methods.R#32) 
  6. Error: draw.gam works with character select (@test-draw-methods.R#54) 
  7. Error: draw.gam works with logical select (@test-draw-methods.R#61) 
  8. Error: draw.gam works with partial_match (@test-draw-methods.R#68) 
  9. Error: draw.gam works with select and parametric (@test-draw-methods.R#76) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted