Running ‘testthat.R’ [74s/83s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(heatmaply)
  Loading required package: plotly
  Loading required package: ggplot2
  
  Attaching package: 'plotly'
  
  The following object is masked from 'package:ggplot2':
  
      last_plot
  
  The following object is masked from 'package:stats':
  
      filter
  
  The following object is masked from 'package:graphics':
  
      layout
  
  Loading required package: viridis
  Loading required package: viridisLite
  
  ======================
  Welcome to heatmaply version 0.14.1
  
  Type citation('heatmaply') for how to cite the package.
  Type ?heatmaply for the main documentation.
  
  The github page is: https://github.com/talgalili/heatmaply/
  Please submit your suggestions and bug-reports at: https://github.com/talgalili/heatmaply/issues
  Or contact: <tal.galili@gmail.com>
  ======================
  
  > 
  > test_check("heatmaply")
  ── 1. Error: heatmaply mtcars (both dend) (@test_heatmaply.R#6)  ───────────────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: heatmaply(mtcars, row_dend_left = bool, plot_method = plot_method) at testthat/test_heatmaply.R:6
  2: heatmaply.default(mtcars, row_dend_left = bool, plot_method = plot_method)
  3: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  4: ggplotly(px, tooltip = "y", dynamicTicks = dynamicTicks) %>% layout(showlegend = FALSE)
  5: eval(lhs, parent, parent)
  6: eval(lhs, parent, parent)
  7: ggplotly(px, tooltip = "y", dynamicTicks = dynamicTicks)
  8: ggplotly.ggplot(px, tooltip = "y", dynamicTicks = dynamicTicks)
  9: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  10: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  11: layers2traces(data, prestats_data, layout$panel_layout, plot)
  12: Map(geom2trace, dl, paramz[i], list(p))
  13: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  14: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  15: geom2trace.GeomPath(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  16: group2NA(data)
  17: dt[, c(.I, NA), by = keyVars]
  18: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 2. Error: heatmaply mtcars (coldend only) (@test_heatmaply.R#22)  ───────────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: heatmaply(mtcars, dendrogram = "col", row_dend_left = bool, plot_method = plot_method) at testthat/test_heatmaply.R:22
  2: heatmaply.default(mtcars, dendrogram = "col", row_dend_left = bool, plot_method = plot_method)
  3: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  4: ggplotly(py, tooltip = "y", dynamicTicks = dynamicTicks) %>% layout(showlegend = FALSE)
  5: eval(lhs, parent, parent)
  6: eval(lhs, parent, parent)
  7: ggplotly(py, tooltip = "y", dynamicTicks = dynamicTicks)
  8: ggplotly.ggplot(py, tooltip = "y", dynamicTicks = dynamicTicks)
  9: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  10: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  11: layers2traces(data, prestats_data, layout$panel_layout, plot)
  12: Map(geom2trace, dl, paramz[i], list(p))
  13: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  14: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  15: geom2trace.GeomPath(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  16: group2NA(data)
  17: dt[, c(.I, NA), by = keyVars]
  18: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 3. Error: heatmaply mtcars (rowdend only) (@test_heatmaply.R#30)  ───────────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: heatmaply(mtcars, dendrogram = "row", row_dend_left = bool, plot_method = plot_method) at testthat/test_heatmaply.R:30
  2: heatmaply.default(mtcars, dendrogram = "row", row_dend_left = bool, plot_method = plot_method)
  3: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  4: ggplotly(px, tooltip = "y", dynamicTicks = dynamicTicks) %>% layout(showlegend = FALSE)
  5: eval(lhs, parent, parent)
  6: eval(lhs, parent, parent)
  7: ggplotly(px, tooltip = "y", dynamicTicks = dynamicTicks)
  8: ggplotly.ggplot(px, tooltip = "y", dynamicTicks = dynamicTicks)
  9: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  10: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  11: layers2traces(data, prestats_data, layout$panel_layout, plot)
  12: Map(geom2trace, dl, paramz[i], list(p))
  13: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  14: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  15: geom2trace.GeomPath(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  16: group2NA(data)
  17: dt[, c(.I, NA), by = keyVars]
  18: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 4. Error: heatmaply mtcars (rscols, both dend) (@test_heatmaply.R#39)  ──────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: heatmaply(mtcars, row_side_colors = mtcars[, 1:2], row_dend_left = bool, plot_method = plot_method) at testthat/test_heatmaply.R:39
  2: heatmaply.default(mtcars, row_side_colors = mtcars[, 1:2], row_dend_left = bool, 
         plot_method = plot_method)
  3: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  4: ggplotly(pr)
  5: ggplotly.ggplot(pr)
  6: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  7: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  8: layers2traces(data, prestats_data, layout$panel_layout, plot)
  9: Map(geom2trace, dl, paramz[i], list(p))
  10: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  11: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  12: geom2trace.GeomPolygon(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  13: group2NA(data)
  14: dt[, c(.I, .I[1], NA), by = keyVars]
  15: `[.data.table`(dt, , c(.I, .I[1], NA), by = keyVars)
  
  ── 5. Error: heatmaply mtcars (rscols, row dend) (@test_heatmaply.R#49)  ───────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: heatmaply(mtcars, dendrogram = "none", row_side_colors = mtcars[, 1:2], row_dend_left = bool, 
         plot_method = plot_method) at testthat/test_heatmaply.R:49
  2: heatmaply.default(mtcars, dendrogram = "none", row_side_colors = mtcars[, 1:2], row_dend_left = bool, 
         plot_method = plot_method)
  3: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  4: ggplotly(pr)
  5: ggplotly.ggplot(pr)
  6: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  7: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  8: layers2traces(data, prestats_data, layout$panel_layout, plot)
  9: Map(geom2trace, dl, paramz[i], list(p))
  10: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  11: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  12: geom2trace.GeomPolygon(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  13: group2NA(data)
  14: dt[, c(.I, .I[1], NA), by = keyVars]
  15: `[.data.table`(dt, , c(.I, .I[1], NA), by = keyVars)
  
  ── 6. Error: heatmaply mtcars (rscols, row dend) (@test_heatmaply.R#59)  ───────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: heatmaply(mtcars, dendrogram = "col", row_side_colors = mtcars[, 1:2], row_dend_left = bool, 
         plot_method = plot_method) at testthat/test_heatmaply.R:59
  2: heatmaply.default(mtcars, dendrogram = "col", row_side_colors = mtcars[, 1:2], row_dend_left = bool, 
         plot_method = plot_method)
  3: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  4: ggplotly(pr)
  5: ggplotly.ggplot(pr)
  6: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  7: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  8: layers2traces(data, prestats_data, layout$panel_layout, plot)
  9: Map(geom2trace, dl, paramz[i], list(p))
  10: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  11: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  12: geom2trace.GeomPolygon(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  13: group2NA(data)
  14: dt[, c(.I, .I[1], NA), by = keyVars]
  15: `[.data.table`(dt, , c(.I, .I[1], NA), by = keyVars)
  
  ── 7. Error: heatmaply mtcars (rscols, no dends) (@test_heatmaply.R#69)  ───────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: heatmaply(mtcars, dendrogram = "none", row_side_colors = mtcars[, 1:2], row_dend_left = bool, 
         plot_method = plot_method) at testthat/test_heatmaply.R:69
  2: heatmaply.default(mtcars, dendrogram = "none", row_side_colors = mtcars[, 1:2], row_dend_left = bool, 
         plot_method = plot_method)
  3: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  4: ggplotly(pr)
  5: ggplotly.ggplot(pr)
  6: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  7: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  8: layers2traces(data, prestats_data, layout$panel_layout, plot)
  9: Map(geom2trace, dl, paramz[i], list(p))
  10: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  11: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  12: geom2trace.GeomPolygon(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  13: group2NA(data)
  14: dt[, c(.I, .I[1], NA), by = keyVars]
  15: `[.data.table`(dt, , c(.I, .I[1], NA), by = keyVars)
  
  ── 8. Error: heatmaply mtcars (cscols, both dend) (@test_heatmaply.R#78)  ──────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: expect_warning(h <- heatmaply(mtcars, col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)) at testthat/test_heatmaply.R:78
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: heatmaply(mtcars, col_side_colors = data.frame(t(mtcars[1:2, ])), row_dend_left = bool, 
         plot_method = plot_method)
  7: heatmaply.default(mtcars, col_side_colors = data.frame(t(mtcars[1:2, ])), row_dend_left = bool, 
         plot_method = plot_method)
  8: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  9: ggplotly(pc)
  10: ggplotly.ggplot(pc)
  11: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  12: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  13: layers2traces(data, prestats_data, layout$panel_layout, plot)
  14: Map(geom2trace, dl, paramz[i], list(p))
  15: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  16: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  17: geom2trace.GeomPolygon(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  18: group2NA(data)
  19: dt[, c(.I, .I[1], NA), by = keyVars]
  20: `[.data.table`(dt, , c(.I, .I[1], NA), by = keyVars)
  
  ── 9. Error: heatmaply mtcars (cscols, col dend) (@test_heatmaply.R#88)  ───────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: expect_warning(h <- heatmaply(mtcars, dendrogram = "col", col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)) at testthat/test_heatmaply.R:88
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: heatmaply(mtcars, dendrogram = "col", col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  7: heatmaply.default(mtcars, dendrogram = "col", col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  8: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  9: ggplotly(pc)
  10: ggplotly.ggplot(pc)
  11: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  12: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  13: layers2traces(data, prestats_data, layout$panel_layout, plot)
  14: Map(geom2trace, dl, paramz[i], list(p))
  15: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  16: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  17: geom2trace.GeomPolygon(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  18: group2NA(data)
  19: dt[, c(.I, .I[1], NA), by = keyVars]
  20: `[.data.table`(dt, , c(.I, .I[1], NA), by = keyVars)
  
  ── 10. Error: heatmaply mtcars (cscols, row dend) (@test_heatmaply.R#98)  ──────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: expect_warning(h <- heatmaply(mtcars, dendrogram = "row", col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)) at testthat/test_heatmaply.R:98
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: heatmaply(mtcars, dendrogram = "row", col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  7: heatmaply.default(mtcars, dendrogram = "row", col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  8: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  9: ggplotly(pc)
  10: ggplotly.ggplot(pc)
  11: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  12: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  13: layers2traces(data, prestats_data, layout$panel_layout, plot)
  14: Map(geom2trace, dl, paramz[i], list(p))
  15: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  16: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  17: geom2trace.GeomPolygon(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  18: group2NA(data)
  19: dt[, c(.I, .I[1], NA), by = keyVars]
  20: `[.data.table`(dt, , c(.I, .I[1], NA), by = keyVars)
  
  ── 11. Error: heatmaply mtcars (cscols, no dend) (@test_heatmaply.R#108)  ──────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: expect_warning(h <- heatmaply(mtcars, dendrogram = "none", col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)) at testthat/test_heatmaply.R:108
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: heatmaply(mtcars, dendrogram = "none", col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  7: heatmaply.default(mtcars, dendrogram = "none", col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  8: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  9: ggplotly(pc)
  10: ggplotly.ggplot(pc)
  11: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  12: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  13: layers2traces(data, prestats_data, layout$panel_layout, plot)
  14: Map(geom2trace, dl, paramz[i], list(p))
  15: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  16: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  17: geom2trace.GeomPolygon(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  18: group2NA(data)
  19: dt[, c(.I, .I[1], NA), by = keyVars]
  20: `[.data.table`(dt, , c(.I, .I[1], NA), by = keyVars)
  
  ── 12. Error: heatmaply mtcars (rcscols, both dend) (@test_heatmaply.R#118)  ───
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: expect_warning(h <- heatmaply(mtcars, row_side_colors = mtcars[, 1:2], col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)) at testthat/test_heatmaply.R:118
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: heatmaply(mtcars, row_side_colors = mtcars[, 1:2], col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  7: heatmaply.default(mtcars, row_side_colors = mtcars[, 1:2], col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  8: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  9: ggplotly(pc)
  10: ggplotly.ggplot(pc)
  11: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  12: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  13: layers2traces(data, prestats_data, layout$panel_layout, plot)
  14: Map(geom2trace, dl, paramz[i], list(p))
  15: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  16: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  17: geom2trace.GeomPolygon(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  18: group2NA(data)
  19: dt[, c(.I, .I[1], NA), by = keyVars]
  20: `[.data.table`(dt, , c(.I, .I[1], NA), by = keyVars)
  
  ── 13. Error: heatmaply mtcars (rcscols, col dend) (@test_heatmaply.R#129)  ────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: expect_warning(h <- heatmaply(mtcars, dendrogram = "col", row_side_colors = mtcars[, 
         1:2], col_side_colors = data.frame(t(mtcars[1:2, ])), row_dend_left = bool, plot_method = plot_method)) at testthat/test_heatmaply.R:129
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: heatmaply(mtcars, dendrogram = "col", row_side_colors = mtcars[, 1:2], col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  7: heatmaply.default(mtcars, dendrogram = "col", row_side_colors = mtcars[, 1:2], col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  8: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  9: ggplotly(pc)
  10: ggplotly.ggplot(pc)
  11: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  12: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  13: layers2traces(data, prestats_data, layout$panel_layout, plot)
  14: Map(geom2trace, dl, paramz[i], list(p))
  15: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  16: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  17: geom2trace.GeomPolygon(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  18: group2NA(data)
  19: dt[, c(.I, .I[1], NA), by = keyVars]
  20: `[.data.table`(dt, , c(.I, .I[1], NA), by = keyVars)
  
  ── 14. Error: heatmaply mtcars (rcscols, row dend) (@test_heatmaply.R#140)  ────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: expect_warning(h <- heatmaply(mtcars, dendrogram = "row", row_side_colors = mtcars[, 
         1:2], col_side_colors = data.frame(t(mtcars[1:2, ])), row_dend_left = bool, plot_method = plot_method)) at testthat/test_heatmaply.R:140
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: heatmaply(mtcars, dendrogram = "row", row_side_colors = mtcars[, 1:2], col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  7: heatmaply.default(mtcars, dendrogram = "row", row_side_colors = mtcars[, 1:2], col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  8: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  9: ggplotly(pc)
  10: ggplotly.ggplot(pc)
  11: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  12: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  13: layers2traces(data, prestats_data, layout$panel_layout, plot)
  14: Map(geom2trace, dl, paramz[i], list(p))
  15: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  16: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  17: geom2trace.GeomPolygon(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  18: group2NA(data)
  19: dt[, c(.I, .I[1], NA), by = keyVars]
  20: `[.data.table`(dt, , c(.I, .I[1], NA), by = keyVars)
  
  ── 15. Error: heatmaply mtcars (rcscols, no dend) (@test_heatmaply.R#151)  ─────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: expect_warning(h <- heatmaply(mtcars, dendrogram = "none", row_side_colors = mtcars[, 
         1:2], col_side_colors = data.frame(t(mtcars[1:2, ])), row_dend_left = bool, plot_method = plot_method)) at testthat/test_heatmaply.R:151
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: heatmaply(mtcars, dendrogram = "none", row_side_colors = mtcars[, 1:2], col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  7: heatmaply.default(mtcars, dendrogram = "none", row_side_colors = mtcars[, 1:2], col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  8: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  9: ggplotly(pc)
  10: ggplotly.ggplot(pc)
  11: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  12: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  13: layers2traces(data, prestats_data, layout$panel_layout, plot)
  14: Map(geom2trace, dl, paramz[i], list(p))
  15: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  16: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  17: geom2trace.GeomPolygon(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  18: group2NA(data)
  19: dt[, c(.I, .I[1], NA), by = keyVars]
  20: `[.data.table`(dt, , c(.I, .I[1], NA), by = keyVars)
  
  ── 16. Error: heatmaply mtcars (both dend) (@test_heatmaply.R#6)  ──────────────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: heatmaply(mtcars, row_dend_left = bool, plot_method = plot_method) at testthat/test_heatmaply.R:6
  2: heatmaply.default(mtcars, row_dend_left = bool, plot_method = plot_method)
  3: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  4: ggplotly(px, tooltip = "y", dynamicTicks = dynamicTicks) %>% layout(showlegend = FALSE)
  5: eval(lhs, parent, parent)
  6: eval(lhs, parent, parent)
  7: ggplotly(px, tooltip = "y", dynamicTicks = dynamicTicks)
  8: ggplotly.ggplot(px, tooltip = "y", dynamicTicks = dynamicTicks)
  9: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  10: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  11: layers2traces(data, prestats_data, layout$panel_layout, plot)
  12: Map(geom2trace, dl, paramz[i], list(p))
  13: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  14: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  15: geom2trace.GeomPath(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  16: group2NA(data)
  17: dt[, c(.I, NA), by = keyVars]
  18: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 17. Error: heatmaply mtcars (coldend only) (@test_heatmaply.R#22)  ──────────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: heatmaply(mtcars, dendrogram = "col", row_dend_left = bool, plot_method = plot_method) at testthat/test_heatmaply.R:22
  2: heatmaply.default(mtcars, dendrogram = "col", row_dend_left = bool, plot_method = plot_method)
  3: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  4: ggplotly(py, tooltip = "y", dynamicTicks = dynamicTicks) %>% layout(showlegend = FALSE)
  5: eval(lhs, parent, parent)
  6: eval(lhs, parent, parent)
  7: ggplotly(py, tooltip = "y", dynamicTicks = dynamicTicks)
  8: ggplotly.ggplot(py, tooltip = "y", dynamicTicks = dynamicTicks)
  9: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  10: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  11: layers2traces(data, prestats_data, layout$panel_layout, plot)
  12: Map(geom2trace, dl, paramz[i], list(p))
  13: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  14: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  15: geom2trace.GeomPath(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  16: group2NA(data)
  17: dt[, c(.I, NA), by = keyVars]
  18: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 18. Error: heatmaply mtcars (rowdend only) (@test_heatmaply.R#30)  ──────────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: heatmaply(mtcars, dendrogram = "row", row_dend_left = bool, plot_method = plot_method) at testthat/test_heatmaply.R:30
  2: heatmaply.default(mtcars, dendrogram = "row", row_dend_left = bool, plot_method = plot_method)
  3: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  4: ggplotly(px, tooltip = "y", dynamicTicks = dynamicTicks) %>% layout(showlegend = FALSE)
  5: eval(lhs, parent, parent)
  6: eval(lhs, parent, parent)
  7: ggplotly(px, tooltip = "y", dynamicTicks = dynamicTicks)
  8: ggplotly.ggplot(px, tooltip = "y", dynamicTicks = dynamicTicks)
  9: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  10: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  11: layers2traces(data, prestats_data, layout$panel_layout, plot)
  12: Map(geom2trace, dl, paramz[i], list(p))
  13: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  14: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  15: geom2trace.GeomPath(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  16: group2NA(data)
  17: dt[, c(.I, NA), by = keyVars]
  18: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 19. Error: heatmaply mtcars (rscols, both dend) (@test_heatmaply.R#39)  ─────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: heatmaply(mtcars, row_side_colors = mtcars[, 1:2], row_dend_left = bool, plot_method = plot_method) at testthat/test_heatmaply.R:39
  2: heatmaply.default(mtcars, row_side_colors = mtcars[, 1:2], row_dend_left = bool, 
         plot_method = plot_method)
  3: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  4: ggplotly(pr)
  5: ggplotly.ggplot(pr)
  6: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  7: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  8: layers2traces(data, prestats_data, layout$panel_layout, plot)
  9: Map(geom2trace, dl, paramz[i], list(p))
  10: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  11: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  12: geom2trace.GeomPolygon(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  13: group2NA(data)
  14: dt[, c(.I, .I[1], NA), by = keyVars]
  15: `[.data.table`(dt, , c(.I, .I[1], NA), by = keyVars)
  
  ── 20. Error: heatmaply mtcars (rscols, row dend) (@test_heatmaply.R#49)  ──────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: heatmaply(mtcars, dendrogram = "none", row_side_colors = mtcars[, 1:2], row_dend_left = bool, 
         plot_method = plot_method) at testthat/test_heatmaply.R:49
  2: heatmaply.default(mtcars, dendrogram = "none", row_side_colors = mtcars[, 1:2], row_dend_left = bool, 
         plot_method = plot_method)
  3: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  4: ggplotly(pr)
  5: ggplotly.ggplot(pr)
  6: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  7: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  8: layers2traces(data, prestats_data, layout$panel_layout, plot)
  9: Map(geom2trace, dl, paramz[i], list(p))
  10: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  11: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  12: geom2trace.GeomPolygon(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  13: group2NA(data)
  14: dt[, c(.I, .I[1], NA), by = keyVars]
  15: `[.data.table`(dt, , c(.I, .I[1], NA), by = keyVars)
  
  ── 21. Error: heatmaply mtcars (rscols, row dend) (@test_heatmaply.R#59)  ──────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: heatmaply(mtcars, dendrogram = "col", row_side_colors = mtcars[, 1:2], row_dend_left = bool, 
         plot_method = plot_method) at testthat/test_heatmaply.R:59
  2: heatmaply.default(mtcars, dendrogram = "col", row_side_colors = mtcars[, 1:2], row_dend_left = bool, 
         plot_method = plot_method)
  3: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  4: ggplotly(pr)
  5: ggplotly.ggplot(pr)
  6: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  7: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  8: layers2traces(data, prestats_data, layout$panel_layout, plot)
  9: Map(geom2trace, dl, paramz[i], list(p))
  10: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  11: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  12: geom2trace.GeomPolygon(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  13: group2NA(data)
  14: dt[, c(.I, .I[1], NA), by = keyVars]
  15: `[.data.table`(dt, , c(.I, .I[1], NA), by = keyVars)
  
  ── 22. Error: heatmaply mtcars (rscols, no dends) (@test_heatmaply.R#69)  ──────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: heatmaply(mtcars, dendrogram = "none", row_side_colors = mtcars[, 1:2], row_dend_left = bool, 
         plot_method = plot_method) at testthat/test_heatmaply.R:69
  2: heatmaply.default(mtcars, dendrogram = "none", row_side_colors = mtcars[, 1:2], row_dend_left = bool, 
         plot_method = plot_method)
  3: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  4: ggplotly(pr)
  5: ggplotly.ggplot(pr)
  6: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  7: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  8: layers2traces(data, prestats_data, layout$panel_layout, plot)
  9: Map(geom2trace, dl, paramz[i], list(p))
  10: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  11: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  12: geom2trace.GeomPolygon(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  13: group2NA(data)
  14: dt[, c(.I, .I[1], NA), by = keyVars]
  15: `[.data.table`(dt, , c(.I, .I[1], NA), by = keyVars)
  
  ── 23. Error: heatmaply mtcars (cscols, both dend) (@test_heatmaply.R#78)  ─────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: expect_warning(h <- heatmaply(mtcars, col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)) at testthat/test_heatmaply.R:78
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: heatmaply(mtcars, col_side_colors = data.frame(t(mtcars[1:2, ])), row_dend_left = bool, 
         plot_method = plot_method)
  7: heatmaply.default(mtcars, col_side_colors = data.frame(t(mtcars[1:2, ])), row_dend_left = bool, 
         plot_method = plot_method)
  8: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  9: ggplotly(pc)
  10: ggplotly.ggplot(pc)
  11: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  12: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  13: layers2traces(data, prestats_data, layout$panel_layout, plot)
  14: Map(geom2trace, dl, paramz[i], list(p))
  15: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  16: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  17: geom2trace.GeomPolygon(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  18: group2NA(data)
  19: dt[, c(.I, .I[1], NA), by = keyVars]
  20: `[.data.table`(dt, , c(.I, .I[1], NA), by = keyVars)
  
  ── 24. Error: heatmaply mtcars (cscols, col dend) (@test_heatmaply.R#88)  ──────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: expect_warning(h <- heatmaply(mtcars, dendrogram = "col", col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)) at testthat/test_heatmaply.R:88
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: heatmaply(mtcars, dendrogram = "col", col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  7: heatmaply.default(mtcars, dendrogram = "col", col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  8: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  9: ggplotly(pc)
  10: ggplotly.ggplot(pc)
  11: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  12: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  13: layers2traces(data, prestats_data, layout$panel_layout, plot)
  14: Map(geom2trace, dl, paramz[i], list(p))
  15: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  16: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  17: geom2trace.GeomPolygon(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  18: group2NA(data)
  19: dt[, c(.I, .I[1], NA), by = keyVars]
  20: `[.data.table`(dt, , c(.I, .I[1], NA), by = keyVars)
  
  ── 25. Error: heatmaply mtcars (cscols, row dend) (@test_heatmaply.R#98)  ──────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: expect_warning(h <- heatmaply(mtcars, dendrogram = "row", col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)) at testthat/test_heatmaply.R:98
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: heatmaply(mtcars, dendrogram = "row", col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  7: heatmaply.default(mtcars, dendrogram = "row", col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  8: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  9: ggplotly(pc)
  10: ggplotly.ggplot(pc)
  11: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  12: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  13: layers2traces(data, prestats_data, layout$panel_layout, plot)
  14: Map(geom2trace, dl, paramz[i], list(p))
  15: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  16: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  17: geom2trace.GeomPolygon(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  18: group2NA(data)
  19: dt[, c(.I, .I[1], NA), by = keyVars]
  20: `[.data.table`(dt, , c(.I, .I[1], NA), by = keyVars)
  
  ── 26. Error: heatmaply mtcars (cscols, no dend) (@test_heatmaply.R#108)  ──────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: expect_warning(h <- heatmaply(mtcars, dendrogram = "none", col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)) at testthat/test_heatmaply.R:108
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: heatmaply(mtcars, dendrogram = "none", col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  7: heatmaply.default(mtcars, dendrogram = "none", col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  8: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  9: ggplotly(pc)
  10: ggplotly.ggplot(pc)
  11: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  12: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  13: layers2traces(data, prestats_data, layout$panel_layout, plot)
  14: Map(geom2trace, dl, paramz[i], list(p))
  15: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  16: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  17: geom2trace.GeomPolygon(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  18: group2NA(data)
  19: dt[, c(.I, .I[1], NA), by = keyVars]
  20: `[.data.table`(dt, , c(.I, .I[1], NA), by = keyVars)
  
  ── 27. Error: heatmaply mtcars (rcscols, both dend) (@test_heatmaply.R#118)  ───
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: expect_warning(h <- heatmaply(mtcars, row_side_colors = mtcars[, 1:2], col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)) at testthat/test_heatmaply.R:118
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: heatmaply(mtcars, row_side_colors = mtcars[, 1:2], col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  7: heatmaply.default(mtcars, row_side_colors = mtcars[, 1:2], col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  8: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  9: ggplotly(pc)
  10: ggplotly.ggplot(pc)
  11: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  12: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  13: layers2traces(data, prestats_data, layout$panel_layout, plot)
  14: Map(geom2trace, dl, paramz[i], list(p))
  15: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  16: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  17: geom2trace.GeomPolygon(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  18: group2NA(data)
  19: dt[, c(.I, .I[1], NA), by = keyVars]
  20: `[.data.table`(dt, , c(.I, .I[1], NA), by = keyVars)
  
  ── 28. Error: heatmaply mtcars (rcscols, col dend) (@test_heatmaply.R#129)  ────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: expect_warning(h <- heatmaply(mtcars, dendrogram = "col", row_side_colors = mtcars[, 
         1:2], col_side_colors = data.frame(t(mtcars[1:2, ])), row_dend_left = bool, plot_method = plot_method)) at testthat/test_heatmaply.R:129
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: heatmaply(mtcars, dendrogram = "col", row_side_colors = mtcars[, 1:2], col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  7: heatmaply.default(mtcars, dendrogram = "col", row_side_colors = mtcars[, 1:2], col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  8: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  9: ggplotly(pc)
  10: ggplotly.ggplot(pc)
  11: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  12: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  13: layers2traces(data, prestats_data, layout$panel_layout, plot)
  14: Map(geom2trace, dl, paramz[i], list(p))
  15: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  16: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  17: geom2trace.GeomPolygon(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  18: group2NA(data)
  19: dt[, c(.I, .I[1], NA), by = keyVars]
  20: `[.data.table`(dt, , c(.I, .I[1], NA), by = keyVars)
  
  ── 29. Error: heatmaply mtcars (rcscols, row dend) (@test_heatmaply.R#140)  ────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: expect_warning(h <- heatmaply(mtcars, dendrogram = "row", row_side_colors = mtcars[, 
         1:2], col_side_colors = data.frame(t(mtcars[1:2, ])), row_dend_left = bool, plot_method = plot_method)) at testthat/test_heatmaply.R:140
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: heatmaply(mtcars, dendrogram = "row", row_side_colors = mtcars[, 1:2], col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  7: heatmaply.default(mtcars, dendrogram = "row", row_side_colors = mtcars[, 1:2], col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  8: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  9: ggplotly(pc)
  10: ggplotly.ggplot(pc)
  11: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  12: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  13: layers2traces(data, prestats_data, layout$panel_layout, plot)
  14: Map(geom2trace, dl, paramz[i], list(p))
  15: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  16: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  17: geom2trace.GeomPolygon(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  18: group2NA(data)
  19: dt[, c(.I, .I[1], NA), by = keyVars]
  20: `[.data.table`(dt, , c(.I, .I[1], NA), by = keyVars)
  
  ── 30. Error: heatmaply mtcars (rcscols, no dend) (@test_heatmaply.R#151)  ─────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: expect_warning(h <- heatmaply(mtcars, dendrogram = "none", row_side_colors = mtcars[, 
         1:2], col_side_colors = data.frame(t(mtcars[1:2, ])), row_dend_left = bool, plot_method = plot_method)) at testthat/test_heatmaply.R:151
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: heatmaply(mtcars, dendrogram = "none", row_side_colors = mtcars[, 1:2], col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  7: heatmaply.default(mtcars, dendrogram = "none", row_side_colors = mtcars[, 1:2], col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  8: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  9: ggplotly(pc)
  10: ggplotly.ggplot(pc)
  11: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  12: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  13: layers2traces(data, prestats_data, layout$panel_layout, plot)
  14: Map(geom2trace, dl, paramz[i], list(p))
  15: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  16: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  17: geom2trace.GeomPolygon(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  18: group2NA(data)
  19: dt[, c(.I, .I[1], NA), by = keyVars]
  20: `[.data.table`(dt, , c(.I, .I[1], NA), by = keyVars)
  
  ── 31. Error: heatmaply mtcars (both dend) (@test_heatmaply.R#6)  ──────────────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: heatmaply(mtcars, row_dend_left = bool, plot_method = plot_method) at testthat/test_heatmaply.R:6
  2: heatmaply.default(mtcars, row_dend_left = bool, plot_method = plot_method)
  3: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  4: heatmap_subplot_from_ggplotly(p = p, px = px, py = py, row_dend_left = row_dend_left, 
         subplot_margin = subplot_margin, widths = subplot_widths, heights = subplot_heights, 
         titleX = titleX, titleY = titleY, pr = pr, pc = pc, plot_method = plot_method)
  5: suppressMessages(suppressWarnings(s <- subplot(plots, nrows = nrows, widths = widths, 
         shareX = TRUE, shareY = TRUE, titleX = titleX, titleY = titleY, margin = subplot_margin, 
         heights = heights)))
  6: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
  7: suppressWarnings(s <- subplot(plots, nrows = nrows, widths = widths, shareX = TRUE, 
         shareY = TRUE, titleX = titleX, titleY = titleY, margin = subplot_margin, heights = heights))
  8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  9: subplot(plots, nrows = nrows, widths = widths, shareX = TRUE, shareY = TRUE, titleX = titleX, 
         titleY = titleY, margin = subplot_margin, heights = heights)
  10: lapply(plots, function(d) plotly_build(d, registerFrames = FALSE)[["x"]])
  11: FUN(X[[i]], ...)
  12: plotly_build(d, registerFrames = FALSE)
  13: plotly_build.plotly(d, registerFrames = FALSE)
  14: lapply(traces, function(x) {
         d <- data.frame(x[names(x) %in% x$.plotlyVariableMapping], stringsAsFactors = FALSE)
         d <- group2NA(d, if (has_group(x)) 
             ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) 
             "x", retrace.first = inherits(x, "plotly_polygon"))
         for (i in x$.plotlyVariableMapping) {
             x[[i]] <- structure(if (i %in% npscales()) 
                 uniq(d[[i]])
             else d[[i]], class = oldClass(x[[i]]))
         }
         x
     })
  15: FUN(X[[i]], ...)
  16: group2NA(d, if (has_group(x)) ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) "x", 
         retrace.first = inherits(x, "plotly_polygon"))
  17: dt[, c(.I, NA), by = keyVars]
  18: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 32. Error: heatmaply mtcars (coldend only) (@test_heatmaply.R#22)  ──────────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: heatmaply(mtcars, dendrogram = "col", row_dend_left = bool, plot_method = plot_method) at testthat/test_heatmaply.R:22
  2: heatmaply.default(mtcars, dendrogram = "col", row_dend_left = bool, plot_method = plot_method)
  3: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  4: heatmap_subplot_from_ggplotly(p = p, px = px, py = py, row_dend_left = row_dend_left, 
         subplot_margin = subplot_margin, widths = subplot_widths, heights = subplot_heights, 
         titleX = titleX, titleY = titleY, pr = pr, pc = pc, plot_method = plot_method)
  5: suppressMessages(suppressWarnings(s <- subplot(plots, nrows = nrows, widths = widths, 
         shareX = TRUE, shareY = TRUE, titleX = titleX, titleY = titleY, margin = subplot_margin, 
         heights = heights)))
  6: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
  7: suppressWarnings(s <- subplot(plots, nrows = nrows, widths = widths, shareX = TRUE, 
         shareY = TRUE, titleX = titleX, titleY = titleY, margin = subplot_margin, heights = heights))
  8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  9: subplot(plots, nrows = nrows, widths = widths, shareX = TRUE, shareY = TRUE, titleX = titleX, 
         titleY = titleY, margin = subplot_margin, heights = heights)
  10: lapply(plots, function(d) plotly_build(d, registerFrames = FALSE)[["x"]])
  11: FUN(X[[i]], ...)
  12: plotly_build(d, registerFrames = FALSE)
  13: plotly_build.plotly(d, registerFrames = FALSE)
  14: lapply(traces, function(x) {
         d <- data.frame(x[names(x) %in% x$.plotlyVariableMapping], stringsAsFactors = FALSE)
         d <- group2NA(d, if (has_group(x)) 
             ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) 
             "x", retrace.first = inherits(x, "plotly_polygon"))
         for (i in x$.plotlyVariableMapping) {
             x[[i]] <- structure(if (i %in% npscales()) 
                 uniq(d[[i]])
             else d[[i]], class = oldClass(x[[i]]))
         }
         x
     })
  15: FUN(X[[i]], ...)
  16: group2NA(d, if (has_group(x)) ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) "x", 
         retrace.first = inherits(x, "plotly_polygon"))
  17: dt[, c(.I, NA), by = keyVars]
  18: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 33. Error: heatmaply mtcars (rowdend only) (@test_heatmaply.R#30)  ──────────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: heatmaply(mtcars, dendrogram = "row", row_dend_left = bool, plot_method = plot_method) at testthat/test_heatmaply.R:30
  2: heatmaply.default(mtcars, dendrogram = "row", row_dend_left = bool, plot_method = plot_method)
  3: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  4: heatmap_subplot_from_ggplotly(p = p, px = px, py = py, row_dend_left = row_dend_left, 
         subplot_margin = subplot_margin, widths = subplot_widths, heights = subplot_heights, 
         titleX = titleX, titleY = titleY, pr = pr, pc = pc, plot_method = plot_method)
  5: suppressMessages(suppressWarnings(s <- subplot(plots, nrows = nrows, widths = widths, 
         shareX = TRUE, shareY = TRUE, titleX = titleX, titleY = titleY, margin = subplot_margin, 
         heights = heights)))
  6: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
  7: suppressWarnings(s <- subplot(plots, nrows = nrows, widths = widths, shareX = TRUE, 
         shareY = TRUE, titleX = titleX, titleY = titleY, margin = subplot_margin, heights = heights))
  8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  9: subplot(plots, nrows = nrows, widths = widths, shareX = TRUE, shareY = TRUE, titleX = titleX, 
         titleY = titleY, margin = subplot_margin, heights = heights)
  10: lapply(plots, function(d) plotly_build(d, registerFrames = FALSE)[["x"]])
  11: FUN(X[[i]], ...)
  12: plotly_build(d, registerFrames = FALSE)
  13: plotly_build.plotly(d, registerFrames = FALSE)
  14: lapply(traces, function(x) {
         d <- data.frame(x[names(x) %in% x$.plotlyVariableMapping], stringsAsFactors = FALSE)
         d <- group2NA(d, if (has_group(x)) 
             ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) 
             "x", retrace.first = inherits(x, "plotly_polygon"))
         for (i in x$.plotlyVariableMapping) {
             x[[i]] <- structure(if (i %in% npscales()) 
                 uniq(d[[i]])
             else d[[i]], class = oldClass(x[[i]]))
         }
         x
     })
  15: FUN(X[[i]], ...)
  16: group2NA(d, if (has_group(x)) ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) "x", 
         retrace.first = inherits(x, "plotly_polygon"))
  17: dt[, c(.I, NA), by = keyVars]
  18: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 34. Error: heatmaply mtcars (rscols, both dend) (@test_heatmaply.R#39)  ─────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: heatmaply(mtcars, row_side_colors = mtcars[, 1:2], row_dend_left = bool, plot_method = plot_method) at testthat/test_heatmaply.R:39
  2: heatmaply.default(mtcars, row_side_colors = mtcars[, 1:2], row_dend_left = bool, 
         plot_method = plot_method)
  3: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  4: heatmap_subplot_from_ggplotly(p = p, px = px, py = py, row_dend_left = row_dend_left, 
         subplot_margin = subplot_margin, widths = subplot_widths, heights = subplot_heights, 
         titleX = titleX, titleY = titleY, pr = pr, pc = pc, plot_method = plot_method)
  5: suppressMessages(suppressWarnings(s <- subplot(plots, nrows = nrows, widths = widths, 
         shareX = TRUE, shareY = TRUE, titleX = titleX, titleY = titleY, margin = subplot_margin, 
         heights = heights)))
  6: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
  7: suppressWarnings(s <- subplot(plots, nrows = nrows, widths = widths, shareX = TRUE, 
         shareY = TRUE, titleX = titleX, titleY = titleY, margin = subplot_margin, heights = heights))
  8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  9: subplot(plots, nrows = nrows, widths = widths, shareX = TRUE, shareY = TRUE, titleX = titleX, 
         titleY = titleY, margin = subplot_margin, heights = heights)
  10: lapply(plots, function(d) plotly_build(d, registerFrames = FALSE)[["x"]])
  11: FUN(X[[i]], ...)
  12: plotly_build(d, registerFrames = FALSE)
  13: plotly_build.plotly(d, registerFrames = FALSE)
  14: lapply(traces, function(x) {
         d <- data.frame(x[names(x) %in% x$.plotlyVariableMapping], stringsAsFactors = FALSE)
         d <- group2NA(d, if (has_group(x)) 
             ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) 
             "x", retrace.first = inherits(x, "plotly_polygon"))
         for (i in x$.plotlyVariableMapping) {
             x[[i]] <- structure(if (i %in% npscales()) 
                 uniq(d[[i]])
             else d[[i]], class = oldClass(x[[i]]))
         }
         x
     })
  15: FUN(X[[i]], ...)
  16: group2NA(d, if (has_group(x)) ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) "x", 
         retrace.first = inherits(x, "plotly_polygon"))
  17: dt[, c(.I, NA), by = keyVars]
  18: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 35. Error: heatmaply mtcars (rscols, row dend) (@test_heatmaply.R#59)  ──────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: heatmaply(mtcars, dendrogram = "col", row_side_colors = mtcars[, 1:2], row_dend_left = bool, 
         plot_method = plot_method) at testthat/test_heatmaply.R:59
  2: heatmaply.default(mtcars, dendrogram = "col", row_side_colors = mtcars[, 1:2], row_dend_left = bool, 
         plot_method = plot_method)
  3: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  4: heatmap_subplot_from_ggplotly(p = p, px = px, py = py, row_dend_left = row_dend_left, 
         subplot_margin = subplot_margin, widths = subplot_widths, heights = subplot_heights, 
         titleX = titleX, titleY = titleY, pr = pr, pc = pc, plot_method = plot_method)
  5: suppressMessages(suppressWarnings(s <- subplot(plots, nrows = nrows, widths = widths, 
         shareX = TRUE, shareY = TRUE, titleX = titleX, titleY = titleY, margin = subplot_margin, 
         heights = heights)))
  6: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
  7: suppressWarnings(s <- subplot(plots, nrows = nrows, widths = widths, shareX = TRUE, 
         shareY = TRUE, titleX = titleX, titleY = titleY, margin = subplot_margin, heights = heights))
  8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  9: subplot(plots, nrows = nrows, widths = widths, shareX = TRUE, shareY = TRUE, titleX = titleX, 
         titleY = titleY, margin = subplot_margin, heights = heights)
  10: lapply(plots, function(d) plotly_build(d, registerFrames = FALSE)[["x"]])
  11: FUN(X[[i]], ...)
  12: plotly_build(d, registerFrames = FALSE)
  13: plotly_build.plotly(d, registerFrames = FALSE)
  14: lapply(traces, function(x) {
         d <- data.frame(x[names(x) %in% x$.plotlyVariableMapping], stringsAsFactors = FALSE)
         d <- group2NA(d, if (has_group(x)) 
             ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) 
             "x", retrace.first = inherits(x, "plotly_polygon"))
         for (i in x$.plotlyVariableMapping) {
             x[[i]] <- structure(if (i %in% npscales()) 
                 uniq(d[[i]])
             else d[[i]], class = oldClass(x[[i]]))
         }
         x
     })
  15: FUN(X[[i]], ...)
  16: group2NA(d, if (has_group(x)) ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) "x", 
         retrace.first = inherits(x, "plotly_polygon"))
  17: dt[, c(.I, NA), by = keyVars]
  18: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 36. Error: heatmaply mtcars (cscols, both dend) (@test_heatmaply.R#78)  ─────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: expect_warning(h <- heatmaply(mtcars, col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)) at testthat/test_heatmaply.R:78
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: heatmaply(mtcars, col_side_colors = data.frame(t(mtcars[1:2, ])), row_dend_left = bool, 
         plot_method = plot_method)
  7: heatmaply.default(mtcars, col_side_colors = data.frame(t(mtcars[1:2, ])), row_dend_left = bool, 
         plot_method = plot_method)
  8: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  9: heatmap_subplot_from_ggplotly(p = p, px = px, py = py, row_dend_left = row_dend_left, 
         subplot_margin = subplot_margin, widths = subplot_widths, heights = subplot_heights, 
         titleX = titleX, titleY = titleY, pr = pr, pc = pc, plot_method = plot_method)
  10: suppressMessages(suppressWarnings(s <- subplot(plots, nrows = nrows, widths = widths, 
         shareX = TRUE, shareY = TRUE, titleX = titleX, titleY = titleY, margin = subplot_margin, 
         heights = heights)))
  ...
  14: subplot(plots, nrows = nrows, widths = widths, shareX = TRUE, shareY = TRUE, titleX = titleX, 
         titleY = titleY, margin = subplot_margin, heights = heights)
  15: lapply(plots, function(d) plotly_build(d, registerFrames = FALSE)[["x"]])
  16: FUN(X[[i]], ...)
  17: plotly_build(d, registerFrames = FALSE)
  18: plotly_build.plotly(d, registerFrames = FALSE)
  19: lapply(traces, function(x) {
         d <- data.frame(x[names(x) %in% x$.plotlyVariableMapping], stringsAsFactors = FALSE)
         d <- group2NA(d, if (has_group(x)) 
             ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) 
             "x", retrace.first = inherits(x, "plotly_polygon"))
         for (i in x$.plotlyVariableMapping) {
             x[[i]] <- structure(if (i %in% npscales()) 
                 uniq(d[[i]])
             else d[[i]], class = oldClass(x[[i]]))
         }
         x
     })
  20: FUN(X[[i]], ...)
  21: group2NA(d, if (has_group(x)) ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) "x", 
         retrace.first = inherits(x, "plotly_polygon"))
  22: dt[, c(.I, NA), by = keyVars]
  23: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 37. Error: heatmaply mtcars (cscols, col dend) (@test_heatmaply.R#88)  ──────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: expect_warning(h <- heatmaply(mtcars, dendrogram = "col", col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)) at testthat/test_heatmaply.R:88
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: heatmaply(mtcars, dendrogram = "col", col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  7: heatmaply.default(mtcars, dendrogram = "col", col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  8: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  9: heatmap_subplot_from_ggplotly(p = p, px = px, py = py, row_dend_left = row_dend_left, 
         subplot_margin = subplot_margin, widths = subplot_widths, heights = subplot_heights, 
         titleX = titleX, titleY = titleY, pr = pr, pc = pc, plot_method = plot_method)
  10: suppressMessages(suppressWarnings(s <- subplot(plots, nrows = nrows, widths = widths, 
         shareX = TRUE, shareY = TRUE, titleX = titleX, titleY = titleY, margin = subplot_margin, 
         heights = heights)))
  ...
  14: subplot(plots, nrows = nrows, widths = widths, shareX = TRUE, shareY = TRUE, titleX = titleX, 
         titleY = titleY, margin = subplot_margin, heights = heights)
  15: lapply(plots, function(d) plotly_build(d, registerFrames = FALSE)[["x"]])
  16: FUN(X[[i]], ...)
  17: plotly_build(d, registerFrames = FALSE)
  18: plotly_build.plotly(d, registerFrames = FALSE)
  19: lapply(traces, function(x) {
         d <- data.frame(x[names(x) %in% x$.plotlyVariableMapping], stringsAsFactors = FALSE)
         d <- group2NA(d, if (has_group(x)) 
             ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) 
             "x", retrace.first = inherits(x, "plotly_polygon"))
         for (i in x$.plotlyVariableMapping) {
             x[[i]] <- structure(if (i %in% npscales()) 
                 uniq(d[[i]])
             else d[[i]], class = oldClass(x[[i]]))
         }
         x
     })
  20: FUN(X[[i]], ...)
  21: group2NA(d, if (has_group(x)) ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) "x", 
         retrace.first = inherits(x, "plotly_polygon"))
  22: dt[, c(.I, NA), by = keyVars]
  23: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 38. Error: heatmaply mtcars (cscols, row dend) (@test_heatmaply.R#98)  ──────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: expect_warning(h <- heatmaply(mtcars, dendrogram = "row", col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)) at testthat/test_heatmaply.R:98
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: heatmaply(mtcars, dendrogram = "row", col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  7: heatmaply.default(mtcars, dendrogram = "row", col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  8: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  9: heatmap_subplot_from_ggplotly(p = p, px = px, py = py, row_dend_left = row_dend_left, 
         subplot_margin = subplot_margin, widths = subplot_widths, heights = subplot_heights, 
         titleX = titleX, titleY = titleY, pr = pr, pc = pc, plot_method = plot_method)
  10: suppressMessages(suppressWarnings(s <- subplot(plots, nrows = nrows, widths = widths, 
         shareX = TRUE, shareY = TRUE, titleX = titleX, titleY = titleY, margin = subplot_margin, 
         heights = heights)))
  ...
  14: subplot(plots, nrows = nrows, widths = widths, shareX = TRUE, shareY = TRUE, titleX = titleX, 
         titleY = titleY, margin = subplot_margin, heights = heights)
  15: lapply(plots, function(d) plotly_build(d, registerFrames = FALSE)[["x"]])
  16: FUN(X[[i]], ...)
  17: plotly_build(d, registerFrames = FALSE)
  18: plotly_build.plotly(d, registerFrames = FALSE)
  19: lapply(traces, function(x) {
         d <- data.frame(x[names(x) %in% x$.plotlyVariableMapping], stringsAsFactors = FALSE)
         d <- group2NA(d, if (has_group(x)) 
             ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) 
             "x", retrace.first = inherits(x, "plotly_polygon"))
         for (i in x$.plotlyVariableMapping) {
             x[[i]] <- structure(if (i %in% npscales()) 
                 uniq(d[[i]])
             else d[[i]], class = oldClass(x[[i]]))
         }
         x
     })
  20: FUN(X[[i]], ...)
  21: group2NA(d, if (has_group(x)) ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) "x", 
         retrace.first = inherits(x, "plotly_polygon"))
  22: dt[, c(.I, NA), by = keyVars]
  23: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 39. Error: heatmaply mtcars (rcscols, both dend) (@test_heatmaply.R#118)  ───
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: expect_warning(h <- heatmaply(mtcars, row_side_colors = mtcars[, 1:2], col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)) at testthat/test_heatmaply.R:118
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: heatmaply(mtcars, row_side_colors = mtcars[, 1:2], col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  7: heatmaply.default(mtcars, row_side_colors = mtcars[, 1:2], col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  8: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  9: heatmap_subplot_from_ggplotly(p = p, px = px, py = py, row_dend_left = row_dend_left, 
         subplot_margin = subplot_margin, widths = subplot_widths, heights = subplot_heights, 
         titleX = titleX, titleY = titleY, pr = pr, pc = pc, plot_method = plot_method)
  10: suppressMessages(suppressWarnings(s <- subplot(plots, nrows = nrows, widths = widths, 
         shareX = TRUE, shareY = TRUE, titleX = titleX, titleY = titleY, margin = subplot_margin, 
         heights = heights)))
  ...
  14: subplot(plots, nrows = nrows, widths = widths, shareX = TRUE, shareY = TRUE, titleX = titleX, 
         titleY = titleY, margin = subplot_margin, heights = heights)
  15: lapply(plots, function(d) plotly_build(d, registerFrames = FALSE)[["x"]])
  16: FUN(X[[i]], ...)
  17: plotly_build(d, registerFrames = FALSE)
  18: plotly_build.plotly(d, registerFrames = FALSE)
  19: lapply(traces, function(x) {
         d <- data.frame(x[names(x) %in% x$.plotlyVariableMapping], stringsAsFactors = FALSE)
         d <- group2NA(d, if (has_group(x)) 
             ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) 
             "x", retrace.first = inherits(x, "plotly_polygon"))
         for (i in x$.plotlyVariableMapping) {
             x[[i]] <- structure(if (i %in% npscales()) 
                 uniq(d[[i]])
             else d[[i]], class = oldClass(x[[i]]))
         }
         x
     })
  20: FUN(X[[i]], ...)
  21: group2NA(d, if (has_group(x)) ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) "x", 
         retrace.first = inherits(x, "plotly_polygon"))
  22: dt[, c(.I, NA), by = keyVars]
  23: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 40. Error: heatmaply mtcars (rcscols, col dend) (@test_heatmaply.R#129)  ────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: expect_warning(h <- heatmaply(mtcars, dendrogram = "col", row_side_colors = mtcars[, 
         1:2], col_side_colors = data.frame(t(mtcars[1:2, ])), row_dend_left = bool, plot_method = plot_method)) at testthat/test_heatmaply.R:129
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: heatmaply(mtcars, dendrogram = "col", row_side_colors = mtcars[, 1:2], col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  7: heatmaply.default(mtcars, dendrogram = "col", row_side_colors = mtcars[, 1:2], col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  8: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  9: heatmap_subplot_from_ggplotly(p = p, px = px, py = py, row_dend_left = row_dend_left, 
         subplot_margin = subplot_margin, widths = subplot_widths, heights = subplot_heights, 
         titleX = titleX, titleY = titleY, pr = pr, pc = pc, plot_method = plot_method)
  10: suppressMessages(suppressWarnings(s <- subplot(plots, nrows = nrows, widths = widths, 
         shareX = TRUE, shareY = TRUE, titleX = titleX, titleY = titleY, margin = subplot_margin, 
         heights = heights)))
  ...
  14: subplot(plots, nrows = nrows, widths = widths, shareX = TRUE, shareY = TRUE, titleX = titleX, 
         titleY = titleY, margin = subplot_margin, heights = heights)
  15: lapply(plots, function(d) plotly_build(d, registerFrames = FALSE)[["x"]])
  16: FUN(X[[i]], ...)
  17: plotly_build(d, registerFrames = FALSE)
  18: plotly_build.plotly(d, registerFrames = FALSE)
  19: lapply(traces, function(x) {
         d <- data.frame(x[names(x) %in% x$.plotlyVariableMapping], stringsAsFactors = FALSE)
         d <- group2NA(d, if (has_group(x)) 
             ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) 
             "x", retrace.first = inherits(x, "plotly_polygon"))
         for (i in x$.plotlyVariableMapping) {
             x[[i]] <- structure(if (i %in% npscales()) 
                 uniq(d[[i]])
             else d[[i]], class = oldClass(x[[i]]))
         }
         x
     })
  20: FUN(X[[i]], ...)
  21: group2NA(d, if (has_group(x)) ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) "x", 
         retrace.first = inherits(x, "plotly_polygon"))
  22: dt[, c(.I, NA), by = keyVars]
  23: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 41. Error: heatmaply mtcars (rcscols, row dend) (@test_heatmaply.R#140)  ────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: expect_warning(h <- heatmaply(mtcars, dendrogram = "row", row_side_colors = mtcars[, 
         1:2], col_side_colors = data.frame(t(mtcars[1:2, ])), row_dend_left = bool, plot_method = plot_method)) at testthat/test_heatmaply.R:140
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: heatmaply(mtcars, dendrogram = "row", row_side_colors = mtcars[, 1:2], col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  7: heatmaply.default(mtcars, dendrogram = "row", row_side_colors = mtcars[, 1:2], col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  8: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  9: heatmap_subplot_from_ggplotly(p = p, px = px, py = py, row_dend_left = row_dend_left, 
         subplot_margin = subplot_margin, widths = subplot_widths, heights = subplot_heights, 
         titleX = titleX, titleY = titleY, pr = pr, pc = pc, plot_method = plot_method)
  10: suppressMessages(suppressWarnings(s <- subplot(plots, nrows = nrows, widths = widths, 
         shareX = TRUE, shareY = TRUE, titleX = titleX, titleY = titleY, margin = subplot_margin, 
         heights = heights)))
  ...
  14: subplot(plots, nrows = nrows, widths = widths, shareX = TRUE, shareY = TRUE, titleX = titleX, 
         titleY = titleY, margin = subplot_margin, heights = heights)
  15: lapply(plots, function(d) plotly_build(d, registerFrames = FALSE)[["x"]])
  16: FUN(X[[i]], ...)
  17: plotly_build(d, registerFrames = FALSE)
  18: plotly_build.plotly(d, registerFrames = FALSE)
  19: lapply(traces, function(x) {
         d <- data.frame(x[names(x) %in% x$.plotlyVariableMapping], stringsAsFactors = FALSE)
         d <- group2NA(d, if (has_group(x)) 
             ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) 
             "x", retrace.first = inherits(x, "plotly_polygon"))
         for (i in x$.plotlyVariableMapping) {
             x[[i]] <- structure(if (i %in% npscales()) 
                 uniq(d[[i]])
             else d[[i]], class = oldClass(x[[i]]))
         }
         x
     })
  20: FUN(X[[i]], ...)
  21: group2NA(d, if (has_group(x)) ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) "x", 
         retrace.first = inherits(x, "plotly_polygon"))
  22: dt[, c(.I, NA), by = keyVars]
  23: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 42. Error: heatmaply mtcars (both dend) (@test_heatmaply.R#6)  ──────────────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: heatmaply(mtcars, row_dend_left = bool, plot_method = plot_method) at testthat/test_heatmaply.R:6
  2: heatmaply.default(mtcars, row_dend_left = bool, plot_method = plot_method)
  3: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  4: heatmap_subplot_from_ggplotly(p = p, px = px, py = py, row_dend_left = row_dend_left, 
         subplot_margin = subplot_margin, widths = subplot_widths, heights = subplot_heights, 
         titleX = titleX, titleY = titleY, pr = pr, pc = pc, plot_method = plot_method)
  5: suppressMessages(suppressWarnings(s <- subplot(plots, nrows = nrows, widths = widths, 
         shareX = TRUE, shareY = TRUE, titleX = titleX, titleY = titleY, margin = subplot_margin, 
         heights = heights)))
  6: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
  7: suppressWarnings(s <- subplot(plots, nrows = nrows, widths = widths, shareX = TRUE, 
         shareY = TRUE, titleX = titleX, titleY = titleY, margin = subplot_margin, heights = heights))
  8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  9: subplot(plots, nrows = nrows, widths = widths, shareX = TRUE, shareY = TRUE, titleX = titleX, 
         titleY = titleY, margin = subplot_margin, heights = heights)
  10: lapply(plots, function(d) plotly_build(d, registerFrames = FALSE)[["x"]])
  11: FUN(X[[i]], ...)
  12: plotly_build(d, registerFrames = FALSE)
  13: plotly_build.plotly(d, registerFrames = FALSE)
  14: lapply(traces, function(x) {
         d <- data.frame(x[names(x) %in% x$.plotlyVariableMapping], stringsAsFactors = FALSE)
         d <- group2NA(d, if (has_group(x)) 
             ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) 
             "x", retrace.first = inherits(x, "plotly_polygon"))
         for (i in x$.plotlyVariableMapping) {
             x[[i]] <- structure(if (i %in% npscales()) 
                 uniq(d[[i]])
             else d[[i]], class = oldClass(x[[i]]))
         }
         x
     })
  15: FUN(X[[i]], ...)
  16: group2NA(d, if (has_group(x)) ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) "x", 
         retrace.first = inherits(x, "plotly_polygon"))
  17: dt[, c(.I, NA), by = keyVars]
  18: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 43. Error: heatmaply mtcars (coldend only) (@test_heatmaply.R#22)  ──────────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: heatmaply(mtcars, dendrogram = "col", row_dend_left = bool, plot_method = plot_method) at testthat/test_heatmaply.R:22
  2: heatmaply.default(mtcars, dendrogram = "col", row_dend_left = bool, plot_method = plot_method)
  3: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  4: heatmap_subplot_from_ggplotly(p = p, px = px, py = py, row_dend_left = row_dend_left, 
         subplot_margin = subplot_margin, widths = subplot_widths, heights = subplot_heights, 
         titleX = titleX, titleY = titleY, pr = pr, pc = pc, plot_method = plot_method)
  5: suppressMessages(suppressWarnings(s <- subplot(plots, nrows = nrows, widths = widths, 
         shareX = TRUE, shareY = TRUE, titleX = titleX, titleY = titleY, margin = subplot_margin, 
         heights = heights)))
  6: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
  7: suppressWarnings(s <- subplot(plots, nrows = nrows, widths = widths, shareX = TRUE, 
         shareY = TRUE, titleX = titleX, titleY = titleY, margin = subplot_margin, heights = heights))
  8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  9: subplot(plots, nrows = nrows, widths = widths, shareX = TRUE, shareY = TRUE, titleX = titleX, 
         titleY = titleY, margin = subplot_margin, heights = heights)
  10: lapply(plots, function(d) plotly_build(d, registerFrames = FALSE)[["x"]])
  11: FUN(X[[i]], ...)
  12: plotly_build(d, registerFrames = FALSE)
  13: plotly_build.plotly(d, registerFrames = FALSE)
  14: lapply(traces, function(x) {
         d <- data.frame(x[names(x) %in% x$.plotlyVariableMapping], stringsAsFactors = FALSE)
         d <- group2NA(d, if (has_group(x)) 
             ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) 
             "x", retrace.first = inherits(x, "plotly_polygon"))
         for (i in x$.plotlyVariableMapping) {
             x[[i]] <- structure(if (i %in% npscales()) 
                 uniq(d[[i]])
             else d[[i]], class = oldClass(x[[i]]))
         }
         x
     })
  15: FUN(X[[i]], ...)
  16: group2NA(d, if (has_group(x)) ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) "x", 
         retrace.first = inherits(x, "plotly_polygon"))
  17: dt[, c(.I, NA), by = keyVars]
  18: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 44. Error: heatmaply mtcars (rowdend only) (@test_heatmaply.R#30)  ──────────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: heatmaply(mtcars, dendrogram = "row", row_dend_left = bool, plot_method = plot_method) at testthat/test_heatmaply.R:30
  2: heatmaply.default(mtcars, dendrogram = "row", row_dend_left = bool, plot_method = plot_method)
  3: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  4: heatmap_subplot_from_ggplotly(p = p, px = px, py = py, row_dend_left = row_dend_left, 
         subplot_margin = subplot_margin, widths = subplot_widths, heights = subplot_heights, 
         titleX = titleX, titleY = titleY, pr = pr, pc = pc, plot_method = plot_method)
  5: suppressMessages(suppressWarnings(s <- subplot(plots, nrows = nrows, widths = widths, 
         shareX = TRUE, shareY = TRUE, titleX = titleX, titleY = titleY, margin = subplot_margin, 
         heights = heights)))
  6: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
  7: suppressWarnings(s <- subplot(plots, nrows = nrows, widths = widths, shareX = TRUE, 
         shareY = TRUE, titleX = titleX, titleY = titleY, margin = subplot_margin, heights = heights))
  8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  9: subplot(plots, nrows = nrows, widths = widths, shareX = TRUE, shareY = TRUE, titleX = titleX, 
         titleY = titleY, margin = subplot_margin, heights = heights)
  10: lapply(plots, function(d) plotly_build(d, registerFrames = FALSE)[["x"]])
  11: FUN(X[[i]], ...)
  12: plotly_build(d, registerFrames = FALSE)
  13: plotly_build.plotly(d, registerFrames = FALSE)
  14: lapply(traces, function(x) {
         d <- data.frame(x[names(x) %in% x$.plotlyVariableMapping], stringsAsFactors = FALSE)
         d <- group2NA(d, if (has_group(x)) 
             ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) 
             "x", retrace.first = inherits(x, "plotly_polygon"))
         for (i in x$.plotlyVariableMapping) {
             x[[i]] <- structure(if (i %in% npscales()) 
                 uniq(d[[i]])
             else d[[i]], class = oldClass(x[[i]]))
         }
         x
     })
  15: FUN(X[[i]], ...)
  16: group2NA(d, if (has_group(x)) ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) "x", 
         retrace.first = inherits(x, "plotly_polygon"))
  17: dt[, c(.I, NA), by = keyVars]
  18: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 45. Error: heatmaply mtcars (rscols, both dend) (@test_heatmaply.R#39)  ─────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: heatmaply(mtcars, row_side_colors = mtcars[, 1:2], row_dend_left = bool, plot_method = plot_method) at testthat/test_heatmaply.R:39
  2: heatmaply.default(mtcars, row_side_colors = mtcars[, 1:2], row_dend_left = bool, 
         plot_method = plot_method)
  3: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  4: heatmap_subplot_from_ggplotly(p = p, px = px, py = py, row_dend_left = row_dend_left, 
         subplot_margin = subplot_margin, widths = subplot_widths, heights = subplot_heights, 
         titleX = titleX, titleY = titleY, pr = pr, pc = pc, plot_method = plot_method)
  5: suppressMessages(suppressWarnings(s <- subplot(plots, nrows = nrows, widths = widths, 
         shareX = TRUE, shareY = TRUE, titleX = titleX, titleY = titleY, margin = subplot_margin, 
         heights = heights)))
  6: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
  7: suppressWarnings(s <- subplot(plots, nrows = nrows, widths = widths, shareX = TRUE, 
         shareY = TRUE, titleX = titleX, titleY = titleY, margin = subplot_margin, heights = heights))
  8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  9: subplot(plots, nrows = nrows, widths = widths, shareX = TRUE, shareY = TRUE, titleX = titleX, 
         titleY = titleY, margin = subplot_margin, heights = heights)
  10: lapply(plots, function(d) plotly_build(d, registerFrames = FALSE)[["x"]])
  11: FUN(X[[i]], ...)
  12: plotly_build(d, registerFrames = FALSE)
  13: plotly_build.plotly(d, registerFrames = FALSE)
  14: lapply(traces, function(x) {
         d <- data.frame(x[names(x) %in% x$.plotlyVariableMapping], stringsAsFactors = FALSE)
         d <- group2NA(d, if (has_group(x)) 
             ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) 
             "x", retrace.first = inherits(x, "plotly_polygon"))
         for (i in x$.plotlyVariableMapping) {
             x[[i]] <- structure(if (i %in% npscales()) 
                 uniq(d[[i]])
             else d[[i]], class = oldClass(x[[i]]))
         }
         x
     })
  15: FUN(X[[i]], ...)
  16: group2NA(d, if (has_group(x)) ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) "x", 
         retrace.first = inherits(x, "plotly_polygon"))
  17: dt[, c(.I, NA), by = keyVars]
  18: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 46. Error: heatmaply mtcars (rscols, row dend) (@test_heatmaply.R#59)  ──────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: heatmaply(mtcars, dendrogram = "col", row_side_colors = mtcars[, 1:2], row_dend_left = bool, 
         plot_method = plot_method) at testthat/test_heatmaply.R:59
  2: heatmaply.default(mtcars, dendrogram = "col", row_side_colors = mtcars[, 1:2], row_dend_left = bool, 
         plot_method = plot_method)
  3: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  4: heatmap_subplot_from_ggplotly(p = p, px = px, py = py, row_dend_left = row_dend_left, 
         subplot_margin = subplot_margin, widths = subplot_widths, heights = subplot_heights, 
         titleX = titleX, titleY = titleY, pr = pr, pc = pc, plot_method = plot_method)
  5: suppressMessages(suppressWarnings(s <- subplot(plots, nrows = nrows, widths = widths, 
         shareX = TRUE, shareY = TRUE, titleX = titleX, titleY = titleY, margin = subplot_margin, 
         heights = heights)))
  6: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
  7: suppressWarnings(s <- subplot(plots, nrows = nrows, widths = widths, shareX = TRUE, 
         shareY = TRUE, titleX = titleX, titleY = titleY, margin = subplot_margin, heights = heights))
  8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  9: subplot(plots, nrows = nrows, widths = widths, shareX = TRUE, shareY = TRUE, titleX = titleX, 
         titleY = titleY, margin = subplot_margin, heights = heights)
  10: lapply(plots, function(d) plotly_build(d, registerFrames = FALSE)[["x"]])
  11: FUN(X[[i]], ...)
  12: plotly_build(d, registerFrames = FALSE)
  13: plotly_build.plotly(d, registerFrames = FALSE)
  14: lapply(traces, function(x) {
         d <- data.frame(x[names(x) %in% x$.plotlyVariableMapping], stringsAsFactors = FALSE)
         d <- group2NA(d, if (has_group(x)) 
             ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) 
             "x", retrace.first = inherits(x, "plotly_polygon"))
         for (i in x$.plotlyVariableMapping) {
             x[[i]] <- structure(if (i %in% npscales()) 
                 uniq(d[[i]])
             else d[[i]], class = oldClass(x[[i]]))
         }
         x
     })
  15: FUN(X[[i]], ...)
  16: group2NA(d, if (has_group(x)) ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) "x", 
         retrace.first = inherits(x, "plotly_polygon"))
  17: dt[, c(.I, NA), by = keyVars]
  18: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 47. Error: heatmaply mtcars (cscols, both dend) (@test_heatmaply.R#78)  ─────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: expect_warning(h <- heatmaply(mtcars, col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)) at testthat/test_heatmaply.R:78
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: heatmaply(mtcars, col_side_colors = data.frame(t(mtcars[1:2, ])), row_dend_left = bool, 
         plot_method = plot_method)
  7: heatmaply.default(mtcars, col_side_colors = data.frame(t(mtcars[1:2, ])), row_dend_left = bool, 
         plot_method = plot_method)
  8: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  9: heatmap_subplot_from_ggplotly(p = p, px = px, py = py, row_dend_left = row_dend_left, 
         subplot_margin = subplot_margin, widths = subplot_widths, heights = subplot_heights, 
         titleX = titleX, titleY = titleY, pr = pr, pc = pc, plot_method = plot_method)
  10: suppressMessages(suppressWarnings(s <- subplot(plots, nrows = nrows, widths = widths, 
         shareX = TRUE, shareY = TRUE, titleX = titleX, titleY = titleY, margin = subplot_margin, 
         heights = heights)))
  ...
  14: subplot(plots, nrows = nrows, widths = widths, shareX = TRUE, shareY = TRUE, titleX = titleX, 
         titleY = titleY, margin = subplot_margin, heights = heights)
  15: lapply(plots, function(d) plotly_build(d, registerFrames = FALSE)[["x"]])
  16: FUN(X[[i]], ...)
  17: plotly_build(d, registerFrames = FALSE)
  18: plotly_build.plotly(d, registerFrames = FALSE)
  19: lapply(traces, function(x) {
         d <- data.frame(x[names(x) %in% x$.plotlyVariableMapping], stringsAsFactors = FALSE)
         d <- group2NA(d, if (has_group(x)) 
             ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) 
             "x", retrace.first = inherits(x, "plotly_polygon"))
         for (i in x$.plotlyVariableMapping) {
             x[[i]] <- structure(if (i %in% npscales()) 
                 uniq(d[[i]])
             else d[[i]], class = oldClass(x[[i]]))
         }
         x
     })
  20: FUN(X[[i]], ...)
  21: group2NA(d, if (has_group(x)) ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) "x", 
         retrace.first = inherits(x, "plotly_polygon"))
  22: dt[, c(.I, NA), by = keyVars]
  23: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 48. Error: heatmaply mtcars (cscols, col dend) (@test_heatmaply.R#88)  ──────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: expect_warning(h <- heatmaply(mtcars, dendrogram = "col", col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)) at testthat/test_heatmaply.R:88
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: heatmaply(mtcars, dendrogram = "col", col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  7: heatmaply.default(mtcars, dendrogram = "col", col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  8: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  9: heatmap_subplot_from_ggplotly(p = p, px = px, py = py, row_dend_left = row_dend_left, 
         subplot_margin = subplot_margin, widths = subplot_widths, heights = subplot_heights, 
         titleX = titleX, titleY = titleY, pr = pr, pc = pc, plot_method = plot_method)
  10: suppressMessages(suppressWarnings(s <- subplot(plots, nrows = nrows, widths = widths, 
         shareX = TRUE, shareY = TRUE, titleX = titleX, titleY = titleY, margin = subplot_margin, 
         heights = heights)))
  ...
  14: subplot(plots, nrows = nrows, widths = widths, shareX = TRUE, shareY = TRUE, titleX = titleX, 
         titleY = titleY, margin = subplot_margin, heights = heights)
  15: lapply(plots, function(d) plotly_build(d, registerFrames = FALSE)[["x"]])
  16: FUN(X[[i]], ...)
  17: plotly_build(d, registerFrames = FALSE)
  18: plotly_build.plotly(d, registerFrames = FALSE)
  19: lapply(traces, function(x) {
         d <- data.frame(x[names(x) %in% x$.plotlyVariableMapping], stringsAsFactors = FALSE)
         d <- group2NA(d, if (has_group(x)) 
             ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) 
             "x", retrace.first = inherits(x, "plotly_polygon"))
         for (i in x$.plotlyVariableMapping) {
             x[[i]] <- structure(if (i %in% npscales()) 
                 uniq(d[[i]])
             else d[[i]], class = oldClass(x[[i]]))
         }
         x
     })
  20: FUN(X[[i]], ...)
  21: group2NA(d, if (has_group(x)) ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) "x", 
         retrace.first = inherits(x, "plotly_polygon"))
  22: dt[, c(.I, NA), by = keyVars]
  23: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 49. Error: heatmaply mtcars (cscols, row dend) (@test_heatmaply.R#98)  ──────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: expect_warning(h <- heatmaply(mtcars, dendrogram = "row", col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)) at testthat/test_heatmaply.R:98
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: heatmaply(mtcars, dendrogram = "row", col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  7: heatmaply.default(mtcars, dendrogram = "row", col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  8: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  9: heatmap_subplot_from_ggplotly(p = p, px = px, py = py, row_dend_left = row_dend_left, 
         subplot_margin = subplot_margin, widths = subplot_widths, heights = subplot_heights, 
         titleX = titleX, titleY = titleY, pr = pr, pc = pc, plot_method = plot_method)
  10: suppressMessages(suppressWarnings(s <- subplot(plots, nrows = nrows, widths = widths, 
         shareX = TRUE, shareY = TRUE, titleX = titleX, titleY = titleY, margin = subplot_margin, 
         heights = heights)))
  ...
  14: subplot(plots, nrows = nrows, widths = widths, shareX = TRUE, shareY = TRUE, titleX = titleX, 
         titleY = titleY, margin = subplot_margin, heights = heights)
  15: lapply(plots, function(d) plotly_build(d, registerFrames = FALSE)[["x"]])
  16: FUN(X[[i]], ...)
  17: plotly_build(d, registerFrames = FALSE)
  18: plotly_build.plotly(d, registerFrames = FALSE)
  19: lapply(traces, function(x) {
         d <- data.frame(x[names(x) %in% x$.plotlyVariableMapping], stringsAsFactors = FALSE)
         d <- group2NA(d, if (has_group(x)) 
             ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) 
             "x", retrace.first = inherits(x, "plotly_polygon"))
         for (i in x$.plotlyVariableMapping) {
             x[[i]] <- structure(if (i %in% npscales()) 
                 uniq(d[[i]])
             else d[[i]], class = oldClass(x[[i]]))
         }
         x
     })
  20: FUN(X[[i]], ...)
  21: group2NA(d, if (has_group(x)) ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) "x", 
         retrace.first = inherits(x, "plotly_polygon"))
  22: dt[, c(.I, NA), by = keyVars]
  23: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 50. Error: heatmaply mtcars (rcscols, both dend) (@test_heatmaply.R#118)  ───
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: expect_warning(h <- heatmaply(mtcars, row_side_colors = mtcars[, 1:2], col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)) at testthat/test_heatmaply.R:118
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: heatmaply(mtcars, row_side_colors = mtcars[, 1:2], col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  7: heatmaply.default(mtcars, row_side_colors = mtcars[, 1:2], col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  8: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  9: heatmap_subplot_from_ggplotly(p = p, px = px, py = py, row_dend_left = row_dend_left, 
         subplot_margin = subplot_margin, widths = subplot_widths, heights = subplot_heights, 
         titleX = titleX, titleY = titleY, pr = pr, pc = pc, plot_method = plot_method)
  10: suppressMessages(suppressWarnings(s <- subplot(plots, nrows = nrows, widths = widths, 
         shareX = TRUE, shareY = TRUE, titleX = titleX, titleY = titleY, margin = subplot_margin, 
         heights = heights)))
  ...
  14: subplot(plots, nrows = nrows, widths = widths, shareX = TRUE, shareY = TRUE, titleX = titleX, 
         titleY = titleY, margin = subplot_margin, heights = heights)
  15: lapply(plots, function(d) plotly_build(d, registerFrames = FALSE)[["x"]])
  16: FUN(X[[i]], ...)
  17: plotly_build(d, registerFrames = FALSE)
  18: plotly_build.plotly(d, registerFrames = FALSE)
  19: lapply(traces, function(x) {
         d <- data.frame(x[names(x) %in% x$.plotlyVariableMapping], stringsAsFactors = FALSE)
         d <- group2NA(d, if (has_group(x)) 
             ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) 
             "x", retrace.first = inherits(x, "plotly_polygon"))
         for (i in x$.plotlyVariableMapping) {
             x[[i]] <- structure(if (i %in% npscales()) 
                 uniq(d[[i]])
             else d[[i]], class = oldClass(x[[i]]))
         }
         x
     })
  20: FUN(X[[i]], ...)
  21: group2NA(d, if (has_group(x)) ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) "x", 
         retrace.first = inherits(x, "plotly_polygon"))
  22: dt[, c(.I, NA), by = keyVars]
  23: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 51. Error: heatmaply mtcars (rcscols, col dend) (@test_heatmaply.R#129)  ────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: expect_warning(h <- heatmaply(mtcars, dendrogram = "col", row_side_colors = mtcars[, 
         1:2], col_side_colors = data.frame(t(mtcars[1:2, ])), row_dend_left = bool, plot_method = plot_method)) at testthat/test_heatmaply.R:129
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: heatmaply(mtcars, dendrogram = "col", row_side_colors = mtcars[, 1:2], col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  7: heatmaply.default(mtcars, dendrogram = "col", row_side_colors = mtcars[, 1:2], col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  8: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  9: heatmap_subplot_from_ggplotly(p = p, px = px, py = py, row_dend_left = row_dend_left, 
         subplot_margin = subplot_margin, widths = subplot_widths, heights = subplot_heights, 
         titleX = titleX, titleY = titleY, pr = pr, pc = pc, plot_method = plot_method)
  10: suppressMessages(suppressWarnings(s <- subplot(plots, nrows = nrows, widths = widths, 
         shareX = TRUE, shareY = TRUE, titleX = titleX, titleY = titleY, margin = subplot_margin, 
         heights = heights)))
  ...
  14: subplot(plots, nrows = nrows, widths = widths, shareX = TRUE, shareY = TRUE, titleX = titleX, 
         titleY = titleY, margin = subplot_margin, heights = heights)
  15: lapply(plots, function(d) plotly_build(d, registerFrames = FALSE)[["x"]])
  16: FUN(X[[i]], ...)
  17: plotly_build(d, registerFrames = FALSE)
  18: plotly_build.plotly(d, registerFrames = FALSE)
  19: lapply(traces, function(x) {
         d <- data.frame(x[names(x) %in% x$.plotlyVariableMapping], stringsAsFactors = FALSE)
         d <- group2NA(d, if (has_group(x)) 
             ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) 
             "x", retrace.first = inherits(x, "plotly_polygon"))
         for (i in x$.plotlyVariableMapping) {
             x[[i]] <- structure(if (i %in% npscales()) 
                 uniq(d[[i]])
             else d[[i]], class = oldClass(x[[i]]))
         }
         x
     })
  20: FUN(X[[i]], ...)
  21: group2NA(d, if (has_group(x)) ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) "x", 
         retrace.first = inherits(x, "plotly_polygon"))
  22: dt[, c(.I, NA), by = keyVars]
  23: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 52. Error: heatmaply mtcars (rcscols, row dend) (@test_heatmaply.R#140)  ────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: expect_warning(h <- heatmaply(mtcars, dendrogram = "row", row_side_colors = mtcars[, 
         1:2], col_side_colors = data.frame(t(mtcars[1:2, ])), row_dend_left = bool, plot_method = plot_method)) at testthat/test_heatmaply.R:140
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: heatmaply(mtcars, dendrogram = "row", row_side_colors = mtcars[, 1:2], col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  7: heatmaply.default(mtcars, dendrogram = "row", row_side_colors = mtcars[, 1:2], col_side_colors = data.frame(t(mtcars[1:2, 
         ])), row_dend_left = bool, plot_method = plot_method)
  8: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  9: heatmap_subplot_from_ggplotly(p = p, px = px, py = py, row_dend_left = row_dend_left, 
         subplot_margin = subplot_margin, widths = subplot_widths, heights = subplot_heights, 
         titleX = titleX, titleY = titleY, pr = pr, pc = pc, plot_method = plot_method)
  10: suppressMessages(suppressWarnings(s <- subplot(plots, nrows = nrows, widths = widths, 
         shareX = TRUE, shareY = TRUE, titleX = titleX, titleY = titleY, margin = subplot_margin, 
         heights = heights)))
  ...
  14: subplot(plots, nrows = nrows, widths = widths, shareX = TRUE, shareY = TRUE, titleX = titleX, 
         titleY = titleY, margin = subplot_margin, heights = heights)
  15: lapply(plots, function(d) plotly_build(d, registerFrames = FALSE)[["x"]])
  16: FUN(X[[i]], ...)
  17: plotly_build(d, registerFrames = FALSE)
  18: plotly_build.plotly(d, registerFrames = FALSE)
  19: lapply(traces, function(x) {
         d <- data.frame(x[names(x) %in% x$.plotlyVariableMapping], stringsAsFactors = FALSE)
         d <- group2NA(d, if (has_group(x)) 
             ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) 
             "x", retrace.first = inherits(x, "plotly_polygon"))
         for (i in x$.plotlyVariableMapping) {
             x[[i]] <- structure(if (i %in% npscales()) 
                 uniq(d[[i]])
             else d[[i]], class = oldClass(x[[i]]))
         }
         x
     })
  20: FUN(X[[i]], ...)
  21: group2NA(d, if (has_group(x)) ".plotlyGroupIndex", ordered = if (inherits(x, "plotly_line")) "x", 
         retrace.first = inherits(x, "plotly_polygon"))
  22: dt[, c(.I, NA), by = keyVars]
  23: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 53. Error: node argument works (@test_heatmaply_misc.R#11)  ─────────────────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: heatmaply(r, node_type = "scatter", point_size_name = "p", point_size_mat = -log10(p)) at testthat/test_heatmaply_misc.R:11
  2: heatmaply.default(r, node_type = "scatter", point_size_name = "p", point_size_mat = -log10(p))
  3: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  4: ggplotly(px, tooltip = "y", dynamicTicks = dynamicTicks) %>% layout(showlegend = FALSE)
  5: eval(lhs, parent, parent)
  6: eval(lhs, parent, parent)
  7: ggplotly(px, tooltip = "y", dynamicTicks = dynamicTicks)
  8: ggplotly.ggplot(px, tooltip = "y", dynamicTicks = dynamicTicks)
  9: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  10: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  11: layers2traces(data, prestats_data, layout$panel_layout, plot)
  12: Map(geom2trace, dl, paramz[i], list(p))
  13: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  14: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  15: geom2trace.GeomPath(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  16: group2NA(data)
  17: dt[, c(.I, NA), by = keyVars]
  18: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 54. Error: non-numerics moved to row_side_colors (@test_heatmaply_misc.R#20) 
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: heatmaply(mtcars, row_side_colors = mtcars[, 1:2]) at testthat/test_heatmaply_misc.R:20
  2: heatmaply.default(mtcars, row_side_colors = mtcars[, 1:2])
  3: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  4: ggplotly(pr)
  5: ggplotly.ggplot(pr)
  6: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  7: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  8: layers2traces(data, prestats_data, layout$panel_layout, plot)
  9: Map(geom2trace, dl, paramz[i], list(p))
  10: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  11: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  12: geom2trace.GeomPolygon(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  13: group2NA(data)
  14: dt[, c(.I, .I[1], NA), by = keyVars]
  15: `[.data.table`(dt, , c(.I, .I[1], NA), by = keyVars)
  
  ── 55. Error: heatmaply on matrix, and cexRow/Col (@test_heatmaply_misc.R#30)  ─
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: heatmaply(mtcars, cexRow = 5, cexCol = 5) at testthat/test_heatmaply_misc.R:30
  2: heatmaply.default(mtcars, cexRow = 5, cexCol = 5)
  3: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  4: ggplotly(px, tooltip = "y", dynamicTicks = dynamicTicks) %>% layout(showlegend = FALSE)
  5: eval(lhs, parent, parent)
  6: eval(lhs, parent, parent)
  7: ggplotly(px, tooltip = "y", dynamicTicks = dynamicTicks)
  8: ggplotly.ggplot(px, tooltip = "y", dynamicTicks = dynamicTicks)
  9: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  10: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  11: layers2traces(data, prestats_data, layout$panel_layout, plot)
  12: Map(geom2trace, dl, paramz[i], list(p))
  13: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  14: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  15: geom2trace.GeomPath(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  16: group2NA(data)
  17: dt[, c(.I, NA), by = keyVars]
  18: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 56. Error: grid_color and hide_colorbar (@test_heatmaply_misc.R#38)  ────────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: heatmaply(mtcars[1:5, 1:5], grid_color = "black", hide_colorbar = TRUE) at testthat/test_heatmaply_misc.R:38
  2: heatmaply.default(mtcars[1:5, 1:5], grid_color = "black", hide_colorbar = TRUE)
  3: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  4: ggplotly(p, dynamicTicks = dynamicTicks, tooltip = "text") %>% layout(showlegend = TRUE)
  5: eval(lhs, parent, parent)
  6: eval(lhs, parent, parent)
  7: ggplotly(p, dynamicTicks = dynamicTicks, tooltip = "text")
  8: ggplotly.ggplot(p, dynamicTicks = dynamicTicks, tooltip = "text")
  9: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  10: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  11: layers2traces(data, prestats_data, layout$panel_layout, plot)
  12: Map(geom2trace, dl, paramz[i], list(p))
  13: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  14: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  15: geom2trace.GeomPath(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  16: group2NA(data)
  17: dt[, c(.I, NA), by = keyVars]
  18: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 57. Error: SideColors (@test_heatmaply_misc.R#51)  ──────────────────────────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: heatmaply(mtcars, RowSideColors = rs) at testthat/test_heatmaply_misc.R:51
  2: heatmaply.default(mtcars, RowSideColors = rs)
  3: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  4: ggplotly(pr)
  5: ggplotly.ggplot(pr)
  6: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  7: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  8: layers2traces(data, prestats_data, layout$panel_layout, plot)
  9: Map(geom2trace, dl, paramz[i], list(p))
  10: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  11: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  12: geom2trace.GeomPolygon(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  13: group2NA(data)
  14: dt[, c(.I, .I[1], NA), by = keyVars]
  15: `[.data.table`(dt, , c(.I, .I[1], NA), by = keyVars)
  
  ── 58. Error: limits (@test_heatmaply_misc.R#58)  ──────────────────────────────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: heatmaply(t(mtcars), limits = range(as.matrix(mtcars))) at testthat/test_heatmaply_misc.R:58
  2: heatmaply.default(t(mtcars), limits = range(as.matrix(mtcars)))
  3: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  4: ggplotly(px, tooltip = "y", dynamicTicks = dynamicTicks) %>% layout(showlegend = FALSE)
  5: eval(lhs, parent, parent)
  6: eval(lhs, parent, parent)
  7: ggplotly(px, tooltip = "y", dynamicTicks = dynamicTicks)
  8: ggplotly.ggplot(px, tooltip = "y", dynamicTicks = dynamicTicks)
  9: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  10: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  11: layers2traces(data, prestats_data, layout$panel_layout, plot)
  12: Map(geom2trace, dl, paramz[i], list(p))
  13: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  14: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  15: geom2trace.GeomPath(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  16: group2NA(data)
  17: dt[, c(.I, NA), by = keyVars]
  18: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 59. Error: cellnote (@test_heatmaply_misc.R#67)  ────────────────────────────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: heatmaply(mtcars, draw_cellnote = TRUE) at testthat/test_heatmaply_misc.R:67
  2: heatmaply.default(mtcars, draw_cellnote = TRUE)
  3: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  4: ggplotly(px, tooltip = "y", dynamicTicks = dynamicTicks) %>% layout(showlegend = FALSE)
  5: eval(lhs, parent, parent)
  6: eval(lhs, parent, parent)
  7: ggplotly(px, tooltip = "y", dynamicTicks = dynamicTicks)
  8: ggplotly.ggplot(px, tooltip = "y", dynamicTicks = dynamicTicks)
  9: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  10: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  11: layers2traces(data, prestats_data, layout$panel_layout, plot)
  12: Map(geom2trace, dl, paramz[i], list(p))
  13: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  14: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  15: geom2trace.GeomPath(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  16: group2NA(data)
  17: dt[, c(.I, NA), by = keyVars]
  18: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 60. Error: showticklabels (@test_heatmaply_misc.R#72)  ──────────────────────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: heatmaply(mtcars, showticklabels = TRUE) at testthat/test_heatmaply_misc.R:72
  2: heatmaply.default(mtcars, showticklabels = TRUE)
  3: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  4: ggplotly(px, tooltip = "y", dynamicTicks = dynamicTicks) %>% layout(showlegend = FALSE)
  5: eval(lhs, parent, parent)
  6: eval(lhs, parent, parent)
  7: ggplotly(px, tooltip = "y", dynamicTicks = dynamicTicks)
  8: ggplotly.ggplot(px, tooltip = "y", dynamicTicks = dynamicTicks)
  9: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  10: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  11: layers2traces(data, prestats_data, layout$panel_layout, plot)
  12: Map(geom2trace, dl, paramz[i], list(p))
  13: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  14: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  15: geom2trace.GeomPath(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  16: group2NA(data)
  17: dt[, c(.I, NA), by = keyVars]
  18: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 61. Error: correlation arguments work (@test_heatmaply_misc.R#93)  ──────────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: lapply(c("pearson", "spearman", "kendall"), function(method) {
         expect_is(heatmaply(mtcars, distfun = method), "plotly")
     }) at testthat/test_heatmaply_misc.R:93
  2: FUN(X[[i]], ...)
  3: expect_is(heatmaply(mtcars, distfun = method), "plotly") at testthat/test_heatmaply_misc.R:94
  4: quasi_label(enquo(object), label)
  5: eval_bare(get_expr(quo), get_env(quo))
  6: heatmaply(mtcars, distfun = method)
  7: heatmaply.default(mtcars, distfun = method)
  8: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  9: ggplotly(px, tooltip = "y", dynamicTicks = dynamicTicks) %>% layout(showlegend = FALSE)
  10: eval(lhs, parent, parent)
  ...
  14: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  15: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  16: layers2traces(data, prestats_data, layout$panel_layout, plot)
  17: Map(geom2trace, dl, paramz[i], list(p))
  18: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  19: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  20: geom2trace.GeomPath(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  21: group2NA(data)
  22: dt[, c(.I, NA), by = keyVars]
  23: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 62. Error: long_data works (@test_heatmaply_misc.R#101)  ────────────────────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: expect_is(heatmaply(long_data = mdf), "plotly") at testthat/test_heatmaply_misc.R:101
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: heatmaply(long_data = mdf)
  5: heatmaply.default(long_data = mdf)
  6: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  7: ggplotly(px, tooltip = "y", dynamicTicks = dynamicTicks) %>% layout(showlegend = FALSE)
  8: eval(lhs, parent, parent)
  9: eval(lhs, parent, parent)
  10: ggplotly(px, tooltip = "y", dynamicTicks = dynamicTicks)
  11: ggplotly.ggplot(px, tooltip = "y", dynamicTicks = dynamicTicks)
  12: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  13: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  14: layers2traces(data, prestats_data, layout$panel_layout, plot)
  15: Map(geom2trace, dl, paramz[i], list(p))
  16: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  17: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  18: geom2trace.GeomPath(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  19: group2NA(data)
  20: dt[, c(.I, NA), by = keyVars]
  21: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 63. Error: heatmaply_na works (@test_heatmaply_misc.R#108)  ─────────────────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: expect_is(heatmaply_na(m), "plotly") at testthat/test_heatmaply_misc.R:108
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: heatmaply_na(m)
  5: heatmaply(is.na10(x), grid_gap = grid_gap, colors = colors, ...)
  6: heatmaply.default(is.na10(x), grid_gap = grid_gap, colors = colors, ...)
  7: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  8: ggplotly(px, tooltip = "y", dynamicTicks = dynamicTicks) %>% layout(showlegend = FALSE)
  9: eval(lhs, parent, parent)
  10: eval(lhs, parent, parent)
  ...
  13: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  14: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  15: layers2traces(data, prestats_data, layout$panel_layout, plot)
  16: Map(geom2trace, dl, paramz[i], list(p))
  17: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  18: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  19: geom2trace.GeomPath(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  20: group2NA(data)
  21: dt[, c(.I, NA), by = keyVars]
  22: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 64. Error: heatmaply_cor works (@test_heatmaply_misc.R#113)  ────────────────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: expect_is(heatmaply_cor(m), "plotly") at testthat/test_heatmaply_misc.R:113
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: heatmaply_cor(m)
  5: heatmaply(x, limits = limits, colors = colors, ...)
  6: heatmaply.default(x, limits = limits, colors = colors, ...)
  7: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  8: ggplotly(px, tooltip = "y", dynamicTicks = dynamicTicks) %>% layout(showlegend = FALSE)
  9: eval(lhs, parent, parent)
  10: eval(lhs, parent, parent)
  ...
  13: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  14: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  15: layers2traces(data, prestats_data, layout$panel_layout, plot)
  16: Map(geom2trace, dl, paramz[i], list(p))
  17: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  18: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  19: geom2trace.GeomPath(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  20: group2NA(data)
  21: dt[, c(.I, NA), by = keyVars]
  22: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 65. Error: dengrogram=TRUE works (@test_heatmaply_misc.R#118)  ──────────────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: expect_is(heatmaply(mtcars, dendrogram = TRUE), "plotly") at testthat/test_heatmaply_misc.R:118
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: heatmaply(mtcars, dendrogram = TRUE)
  5: heatmaply.default(mtcars, dendrogram = TRUE)
  6: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  7: ggplotly(px, tooltip = "y", dynamicTicks = dynamicTicks) %>% layout(showlegend = FALSE)
  8: eval(lhs, parent, parent)
  9: eval(lhs, parent, parent)
  10: ggplotly(px, tooltip = "y", dynamicTicks = dynamicTicks)
  11: ggplotly.ggplot(px, tooltip = "y", dynamicTicks = dynamicTicks)
  12: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  13: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  14: layers2traces(data, prestats_data, layout$panel_layout, plot)
  15: Map(geom2trace, dl, paramz[i], list(p))
  16: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  17: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  18: geom2trace.GeomPath(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  19: group2NA(data)
  20: dt[, c(.I, NA), by = keyVars]
  21: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 66. Error: limits warning (@test_heatmaply_misc.R#122)  ─────────────────────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: expect_warning(heatmaply(mtcars, limits = c(4, 5)), "Lower limit is not*") at testthat/test_heatmaply_misc.R:122
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: heatmaply(mtcars, limits = c(4, 5))
  7: heatmaply.default(mtcars, limits = c(4, 5))
  8: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  9: ggplotly(px, tooltip = "y", dynamicTicks = dynamicTicks) %>% layout(showlegend = FALSE)
  10: eval(lhs, parent, parent)
  ...
  14: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  15: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  16: layers2traces(data, prestats_data, layout$panel_layout, plot)
  17: Map(geom2trace, dl, paramz[i], list(p))
  18: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  19: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  20: geom2trace.GeomPath(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  21: group2NA(data)
  22: dt[, c(.I, NA), by = keyVars]
  23: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 67. Error: grid_gap works (@test_heatmaply_misc.R#129)  ─────────────────────
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: expect_is(heatmaply(mtcars, grid_gap = 1), "plotly") at testthat/test_heatmaply_misc.R:129
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: heatmaply(mtcars, grid_gap = 1)
  5: heatmaply.default(mtcars, grid_gap = 1)
  6: heatmaply.heatmapr(hm, colors = colors, limits = limits, scale_fill_gradient_fun = scale_fill_gradient_fun, 
         grid_color = grid_color, grid_gap = grid_gap, row_text_angle = row_text_angle, 
         column_text_angle = column_text_angle, subplot_margin = subplot_margin, row_dend_left = row_dend_left, 
         xlab = xlab, ylab = ylab, main = main, titleX = titleX, titleY = titleY, hide_colorbar = hide_colorbar, 
         key.title = key.title, return_ppxpy = return_ppxpy, margins = margins, row_side_palette = row_side_palette, 
         col_side_palette = col_side_palette, heatmap_layers = heatmap_layers, side_color_layers = side_color_layers, 
         ColSideColors = ColSideColors, RowSideColors = RowSideColors, branches_lwd = branches_lwd, 
         label_names = label_names, plot_method = plot_method, draw_cellnote = draw_cellnote, 
         cellnote_textposition = cellnote_textposition, cellnote_size = cellnote_size, 
         cellnote_color = cellnote_color, fontsize_row = fontsize_row, fontsize_col = fontsize_col, 
         subplot_widths = subplot_widths, subplot_heights = subplot_heights, colorbar_len = colorbar_len, 
         colorbar_xanchor = colorbar_xanchor, colorbar_yanchor = colorbar_yanchor, colorbar_xpos = colorbar_xpos, 
         colorbar_ypos = colorbar_ypos, showticklabels = showticklabels, dynamicTicks = dynamicTicks, 
         grid_size = grid_size, node_type = node_type, point_size_name = point_size_name, 
         label_format_fun = label_format_fun, labRow = labRow, labCol = labCol)
  7: ggplotly(px, tooltip = "y", dynamicTicks = dynamicTicks) %>% layout(showlegend = FALSE)
  8: eval(lhs, parent, parent)
  9: eval(lhs, parent, parent)
  10: ggplotly(px, tooltip = "y", dynamicTicks = dynamicTicks)
  11: ggplotly.ggplot(px, tooltip = "y", dynamicTicks = dynamicTicks)
  12: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  13: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  14: layers2traces(data, prestats_data, layout$panel_layout, plot)
  15: Map(geom2trace, dl, paramz[i], list(p))
  16: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  17: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  18: geom2trace.GeomPath(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  19: group2NA(data)
  20: dt[, c(.I, NA), by = keyVars]
  21: `[.data.table`(dt, , c(.I, NA), by = keyVars)
  
  ── 68. Failure: custom_hovertext works (@test_heatmaply_misc.R#142)  ───────────
  `heatmaply(mtcars, plot_method = plot_method, custom_hovertext = mat)` threw an error.
  Message: SETLENGTH() cannot be applied to an ALTVEC object.
  Class:   simpleError/error/condition
  
  ── 69. Failure: custom_hovertext works (@test_heatmaply_misc.R#142)  ───────────
  `heatmaply(mtcars, plot_method = plot_method, custom_hovertext = mat)` threw an error.
  Message: SETLENGTH() cannot be applied to an ALTVEC object.
  Class:   simpleError/error/condition
  
  ── 70. Failure: ggplot_side_color_plot works (@test_plots.R#46)  ───────────────
  `ggplotly(g)` threw an error.
  Message: SETLENGTH() cannot be applied to an ALTVEC object.
  Class:   simpleError/error/condition
  
  ── 71. Failure: ggplot_side_color_plot works (@test_plots.R#51)  ───────────────
  `ggplotly(g)` threw an error.
  Message: SETLENGTH() cannot be applied to an ALTVEC object.
  Class:   simpleError/error/condition
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 156 SKIPPED: 0 FAILED: 71
  1. Error: heatmaply mtcars (both dend) (@test_heatmaply.R#6) 
  2. Error: heatmaply mtcars (coldend only) (@test_heatmaply.R#22) 
  3. Error: heatmaply mtcars (rowdend only) (@test_heatmaply.R#30) 
  4. Error: heatmaply mtcars (rscols, both dend) (@test_heatmaply.R#39) 
  5. Error: heatmaply mtcars (rscols, row dend) (@test_heatmaply.R#49) 
  6. Error: heatmaply mtcars (rscols, row dend) (@test_heatmaply.R#59) 
  7. Error: heatmaply mtcars (rscols, no dends) (@test_heatmaply.R#69) 
  8. Error: heatmaply mtcars (cscols, both dend) (@test_heatmaply.R#78) 
  9. Error: heatmaply mtcars (cscols, col dend) (@test_heatmaply.R#88) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted