Running ‘testthat.R’ [13s/13s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(iheatmapr)
  > 
  > test_check("iheatmapr")
  ── 1. Error: adding a main heatmap of same size to right gives correct sizing (@
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_main_heatmap(a, size = 1, buffer = 0.015) at testthat/test_adjust_x_domains.R:5
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_main_heatmap(., a, size = 1, buffer = 0.015)
  10: add_main_heatmap(., a, size = 1, buffer = 0.015)
  ...
  14: .local(p, new_axis, ...)
  15: sort(xaxes(p))
  16: sort(xaxes(p))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 2. Error: adding a main heatmap of different size to right gives right size (
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_main_heatmap(a, size = 0.5, buffer = 0.015) at testthat/test_adjust_x_domains.R:21
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_main_heatmap(., a, size = 0.5, buffer = 0.015)
  10: add_main_heatmap(., a, size = 0.5, buffer = 0.015)
  ...
  14: .local(p, new_axis, ...)
  15: sort(xaxes(p))
  16: sort(xaxes(p))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 3. Error: adding a main heatmap of same size to left gives correct sizing (@t
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_main_heatmap(a, size = 1, buffer = 0.015, side = "left") at testthat/test_adjust_x_domains.R:37
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_main_heatmap(., a, size = 1, buffer = 0.015, side = "left")
  10: add_main_heatmap(., a, size = 1, buffer = 0.015, side = "left")
  ...
  14: .local(p, new_axis, ...)
  15: sort(xaxes(p))
  16: sort(xaxes(p))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 4. Error: adding a main heatmap of different size to left gives right size (@
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_main_heatmap(a, size = 0.2, buffer = 0.035, side = "left") at testthat/test_adjust_x_domains.R:53
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_main_heatmap(., a, size = 0.2, buffer = 0.035, side = "left")
  10: add_main_heatmap(., a, size = 0.2, buffer = 0.035, side = "left")
  ...
  14: .local(p, new_axis, ...)
  15: sort(xaxes(p))
  16: sort(xaxes(p))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 5. Error: adding a third plot to right gives correct sizing (@test_adjust_x_d
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_main_heatmap(a, size = 1, buffer = 0.015) %>% add_row_signal(1:20, 
         "test", side = "right", size = 0.2, buffer = 0.2) at testthat/test_adjust_x_domains.R:69
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  8: add_main_heatmap(., a, size = 1, buffer = 0.015)
  9: add_main_heatmap(., a, size = 1, buffer = 0.015)
  10: .local(p, data, ...)
  ...
  13: .local(p, new_axis, ...)
  14: sort(xaxes(p))
  15: sort(xaxes(p))
  16: .local(x, decreasing, ...)
  17: order(domain_start(x), decreasing = decreasing)
  18: standardGeneric("order")
  19: eval(mc, env)
  20: eval(mc, env)
  21: eval(mc, env)
  22: order(..., decreasing = decreasing)
  
  ── 6. Error: adding a col_plot on top gives correct sizing (@test_adjust_y_domai
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_col_signal(1:10, "test", size = 0.2, buffer = 0.015) at testthat/test_adjust_y_domains.R:6
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_col_signal(., 1:10, "test", size = 0.2, buffer = 0.015)
  10: add_col_signal(., 1:10, "test", size = 0.2, buffer = 0.015)
  ...
  14: .local(p, new_axis, ...)
  15: sort(yaxes(p, xname))
  16: sort(yaxes(p, xname))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 7. Error: adding a col_plot on bottom gives correct sizing (@test_adjust_y_do
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_col_signal(1:10, "test", size = 0.2, buffer = 0.015, side = "bottom") at testthat/test_adjust_y_domains.R:24
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_col_signal(., 1:10, "test", size = 0.2, buffer = 0.015, side = "bottom")
  10: add_col_signal(., 1:10, "test", size = 0.2, buffer = 0.015, side = "bottom")
  ...
  14: .local(p, new_axis, ...)
  15: sort(yaxes(p, xname))
  16: sort(yaxes(p, xname))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 8. Error: can add a row barplot to single horizontal heatmap (@test_barplot.R
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_row_barplot(row_sig, name = "Test") at testthat/test_barplot.R:4
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_row_barplot(., row_sig, name = "Test")
  10: add_row_barplot(., row_sig, name = "Test")
  ...
  14: .local(p, new_axis, ...)
  15: sort(xaxes(p))
  16: sort(xaxes(p))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 9. Error: can add a row barplot to single vertical heatmap (@test_barplot.R#9
  could not find function ".makeSortEnum"
  1: main_heatmap(a, orientation = "vertical") %>% add_row_barplot(row_sig, name = "Test") at testthat/test_barplot.R:9
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_row_barplot(., row_sig, name = "Test")
  10: add_row_barplot(., row_sig, name = "Test")
  ...
  14: .local(p, new_axis, ...)
  15: sort(xaxes(p, yname))
  16: sort(xaxes(p, yname))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 10. Error: can add a column barplot to single horizontal heatmap (@test_barpl
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_col_barplot(col_sig, name = "Test") at testthat/test_barplot.R:15
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_col_barplot(., col_sig, name = "Test")
  10: add_col_barplot(., col_sig, name = "Test")
  ...
  14: .local(p, new_axis, ...)
  15: sort(yaxes(p, xname))
  16: sort(yaxes(p, xname))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 11. Error: can add a column barplot to single vertical heatmap (@test_barplot
  could not find function ".makeSortEnum"
  1: main_heatmap(a, orientation = "vertical") %>% add_col_barplot(col_sig, name = "Test") at testthat/test_barplot.R:20
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_col_barplot(., col_sig, name = "Test")
  10: add_col_barplot(., col_sig, name = "Test")
  ...
  14: .local(p, new_axis, ...)
  15: sort(yaxes(p))
  16: sort(yaxes(p))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 12. Error: can add row clustering with dendrogram to single horizontal heatma
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_row_clustering() at testthat/test_clustering.R:7
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_row_clustering(.)
  10: add_row_clustering(.)
  ...
  17: .local(p, new_axis, ...)
  18: sort(xaxes(p))
  19: sort(xaxes(p))
  20: .local(x, decreasing, ...)
  21: order(domain_start(x), decreasing = decreasing)
  22: standardGeneric("order")
  23: eval(mc, env)
  24: eval(mc, env)
  25: eval(mc, env)
  26: order(..., decreasing = decreasing)
  
  ── 13. Error: can add row clustering with dendrogram single vertical heatmap (@t
  could not find function ".makeSortEnum"
  1: main_heatmap(a, orientation = "vertical") %>% add_row_clustering() at testthat/test_clustering.R:12
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_row_clustering(.)
  10: add_row_clustering(.)
  ...
  17: .local(p, new_axis, ...)
  18: sort(xaxes(p, yname))
  19: sort(xaxes(p, yname))
  20: .local(x, decreasing, ...)
  21: order(domain_start(x), decreasing = decreasing)
  22: standardGeneric("order")
  23: eval(mc, env)
  24: eval(mc, env)
  25: eval(mc, env)
  26: order(..., decreasing = decreasing)
  
  ── 14. Error: can add col clustering with dendrogram to single horizontal heatma
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_col_clustering() at testthat/test_clustering.R:19
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_col_clustering(.)
  10: add_col_clustering(.)
  ...
  17: .local(p, new_axis, ...)
  18: sort(yaxes(p, xname))
  19: sort(yaxes(p, xname))
  20: .local(x, decreasing, ...)
  21: order(domain_start(x), decreasing = decreasing)
  22: standardGeneric("order")
  23: eval(mc, env)
  24: eval(mc, env)
  25: eval(mc, env)
  26: order(..., decreasing = decreasing)
  
  ── 15. Error: can add col clustering with dendrogram  to single vertical heatmap
  could not find function ".makeSortEnum"
  1: main_heatmap(a, orientation = "vertical") %>% add_col_clustering() at testthat/test_clustering.R:24
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_col_clustering(.)
  10: add_col_clustering(.)
  ...
  17: .local(p, new_axis, ...)
  18: sort(yaxes(p))
  19: sort(yaxes(p))
  20: .local(x, decreasing, ...)
  21: order(domain_start(x), decreasing = decreasing)
  22: standardGeneric("order")
  23: eval(mc, env)
  24: eval(mc, env)
  25: eval(mc, env)
  26: order(..., decreasing = decreasing)
  
  ── 16. Error: can add row clustering with dendrogram and k to single horizontal 
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_row_clustering(k = 3) at testthat/test_clustering.R:34
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_row_clustering(., k = 3)
  10: add_row_clustering(., k = 3)
  ...
  17: .local(p, new_axis, ...)
  18: sort(xaxes(p))
  19: sort(xaxes(p))
  20: .local(x, decreasing, ...)
  21: order(domain_start(x), decreasing = decreasing)
  22: standardGeneric("order")
  23: eval(mc, env)
  24: eval(mc, env)
  25: eval(mc, env)
  26: order(..., decreasing = decreasing)
  
  ── 17. Error: can add row clustering with dendrogram and k to single vertheatmap
  could not find function ".makeSortEnum"
  1: main_heatmap(a, orientation = "vertical") %>% add_row_clustering(k = 3) at testthat/test_clustering.R:39
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_row_clustering(., k = 3)
  10: add_row_clustering(., k = 3)
  ...
  17: .local(p, new_axis, ...)
  18: sort(xaxes(p, yname))
  19: sort(xaxes(p, yname))
  20: .local(x, decreasing, ...)
  21: order(domain_start(x), decreasing = decreasing)
  22: standardGeneric("order")
  23: eval(mc, env)
  24: eval(mc, env)
  25: eval(mc, env)
  26: order(..., decreasing = decreasing)
  
  ── 18. Error: can add col clustering with dendrogram and k to single hor heatmap
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_col_clustering(k = 3) at testthat/test_clustering.R:45
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_col_clustering(., k = 3)
  10: add_col_clustering(., k = 3)
  ...
  17: .local(p, new_axis, ...)
  18: sort(yaxes(p, xname))
  19: sort(yaxes(p, xname))
  20: .local(x, decreasing, ...)
  21: order(domain_start(x), decreasing = decreasing)
  22: standardGeneric("order")
  23: eval(mc, env)
  24: eval(mc, env)
  25: eval(mc, env)
  26: order(..., decreasing = decreasing)
  
  ── 19. Error: can add col clustering with dendrogram and k to single verheatmap 
  could not find function ".makeSortEnum"
  1: main_heatmap(a, orientation = "vertical") %>% add_col_clustering(k = 3) at testthat/test_clustering.R:50
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_col_clustering(., k = 3)
  10: add_col_clustering(., k = 3)
  ...
  17: .local(p, new_axis, ...)
  18: sort(yaxes(p))
  19: sort(yaxes(p))
  20: .local(x, decreasing, ...)
  21: order(domain_start(x), decreasing = decreasing)
  22: standardGeneric("order")
  23: eval(mc, env)
  24: eval(mc, env)
  25: eval(mc, env)
  26: order(..., decreasing = decreasing)
  
  ── 20. Error: can add row clustering with kmeans to single horizontal 
           
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_row_clustering(method = "kmeans", k = 3) at testthat/test_clustering.R:59
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_row_clustering(., method = "kmeans", k = 3)
  10: add_row_clustering(., method = "kmeans", k = 3)
  11: .local(p, ...)
  12: add_row_clusters(p, groups, colors = colors, name = name, side = side, show_colorbar = show_colorbar)
  13: add_row_clusters(p, groups, colors = colors, name = name, side = side, show_colorbar = show_colorbar)
  14: .local(p, clusters, ...)
  15: order(clusters)
  16: standardGeneric("order")
  17: eval(mc, env)
  18: eval(mc, env)
  19: eval(mc, env)
  20: order(...)
  
  ── 21. Error: can add row clustering with kmeans to single vertical 
            h
  could not find function ".makeSortEnum"
  1: main_heatmap(a, orientation = "vertical") %>% add_row_clustering(method = "kmeans", 
         k = 3) at testthat/test_clustering.R:68
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_row_clustering(., method = "kmeans", k = 3)
  10: add_row_clustering(., method = "kmeans", k = 3)
  11: .local(p, ...)
  12: add_row_clusters(p, groups, colors = colors, name = name, side = side, show_colorbar = show_colorbar)
  13: add_row_clusters(p, groups, colors = colors, name = name, side = side, show_colorbar = show_colorbar)
  14: .local(p, clusters, ...)
  15: order(clusters)
  16: standardGeneric("order")
  17: eval(mc, env)
  18: eval(mc, env)
  19: eval(mc, env)
  20: order(...)
  
  ── 22. Error: can add col clustering with kmeans to single horizontal heatmap (@
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_col_clustering(method = "kmeans", k = 3) at testthat/test_clustering.R:75
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_col_clustering(., method = "kmeans", k = 3)
  10: add_col_clustering(., method = "kmeans", k = 3)
  11: .local(p, ...)
  12: add_col_clusters(p, groups, name = name, colors = colors, side = side, show_colorbar = show_colorbar)
  13: add_col_clusters(p, groups, name = name, colors = colors, side = side, show_colorbar = show_colorbar)
  14: .local(p, clusters, ...)
  15: order(clusters)
  16: standardGeneric("order")
  17: eval(mc, env)
  18: eval(mc, env)
  19: eval(mc, env)
  20: order(...)
  
  ── 23. Error: can add col clustering with kmeans to single vertical heatmap (@te
  could not find function ".makeSortEnum"
  1: main_heatmap(a, orientation = "vertical") %>% add_col_clustering(method = "kmeans", 
         k = 3) at testthat/test_clustering.R:81
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_col_clustering(., method = "kmeans", k = 3)
  10: add_col_clustering(., method = "kmeans", k = 3)
  11: .local(p, ...)
  12: add_col_clusters(p, groups, name = name, colors = colors, side = side, show_colorbar = show_colorbar)
  13: add_col_clusters(p, groups, name = name, colors = colors, side = side, show_colorbar = show_colorbar)
  14: .local(p, clusters, ...)
  15: order(clusters)
  16: standardGeneric("order")
  17: eval(mc, env)
  18: eval(mc, env)
  19: eval(mc, env)
  20: order(...)
  
  ── 24. Error: Can make shared axes on bottom with gap in one column (@test_compl
  could not find function ".makeSortEnum"
  1: iheatmap(a) %>% add_subplot(x = 1:10, y = 1:10, side = "top") %>% add_iheatmap(b, 
         side = "left") %>% add_subplot(x = 1:10, y = 1:10, side = "bottom", yname = "bah") %>% 
         add_subplot(x = 1:10, y = 1:10, side = "top") %>% add_subplot(x = 1:10, y = 1:10, 
         side = "bottom", xname = "x") %>% add_subplot(x = 1:10, y = 1:10, side = "bottom", 
         xname = "x", yname = "bah") %>% add_subplot(x = 1:10, y = 1:10, side = "bottom") at testthat/test_complex_examples.R:4
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  8: add_subplot(., x = 1:10, y = 1:10, side = "top")
  9: add_subplot(., x = 1:10, y = 1:10, side = "top")
  10: .local(p, ...)
  ...
  16: .local(p, new_axis, ...)
  17: sort(yaxes(p, xname))
  18: sort(yaxes(p, xname))
  19: .local(x, decreasing, ...)
  20: order(domain_start(x), decreasing = decreasing)
  21: standardGeneric("order")
  22: eval(mc, env)
  23: eval(mc, env)
  24: eval(mc, env)
  25: order(..., decreasing = decreasing)
  
  ── 25. Error: Can make shared axes on top with gap in one column (@test_complex_
  could not find function ".makeSortEnum"
  1: iheatmap(a) %>% add_subplot(x = 1:10, y = 1:10, side = "top") %>% add_iheatmap(b, 
         side = "left") %>% add_subplot(x = 1:10, y = 1:10, side = "top", yname = "bah") %>% 
         add_subplot(x = 1:10, y = 1:10, side = "top") %>% add_subplot(x = 1:10, y = 1:10, 
         side = "bottom", xname = "x") %>% add_subplot(x = 1:10, y = 1:10, side = "top", 
         xname = "x", yname = "bah") %>% add_subplot(x = 1:10, y = 1:10, side = "bottom") at testthat/test_complex_examples.R:17
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  8: add_subplot(., x = 1:10, y = 1:10, side = "top")
  9: add_subplot(., x = 1:10, y = 1:10, side = "top")
  10: .local(p, ...)
  ...
  16: .local(p, new_axis, ...)
  17: sort(yaxes(p, xname))
  18: sort(yaxes(p, xname))
  19: .local(x, decreasing, ...)
  20: order(domain_start(x), decreasing = decreasing)
  21: standardGeneric("order")
  22: eval(mc, env)
  23: eval(mc, env)
  24: eval(mc, env)
  25: order(..., decreasing = decreasing)
  
  ── 26. Error: Can make shared axes on left with gap in one row (@test_complex_ex
  could not find function ".makeSortEnum"
  1: iheatmap(a, orientation = "vertical") %>% add_subplot(x = 1:10, y = 1:10, side = "right") %>% 
         add_iheatmap(b, side = "bottom") %>% add_subplot(x = 1:10, y = 1:10, side = "left", 
         xname = "bah") %>% add_subplot(x = 1:10, y = 1:10, side = "right") %>% add_subplot(x = 1:10, 
         y = 1:10, side = "left", yname = "y") %>% add_subplot(x = 1:10, y = 1:10, side = "left", 
         yname = "y", xname = "bah") %>% add_subplot(x = 1:10, y = 1:10, side = "left") at testthat/test_complex_examples.R:29
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  8: add_subplot(., x = 1:10, y = 1:10, side = "right")
  9: add_subplot(., x = 1:10, y = 1:10, side = "right")
  10: .local(p, ...)
  ...
  16: .local(p, new_axis, ...)
  17: sort(xaxes(p, yname))
  18: sort(xaxes(p, yname))
  19: .local(x, decreasing, ...)
  20: order(domain_start(x), decreasing = decreasing)
  21: standardGeneric("order")
  22: eval(mc, env)
  23: eval(mc, env)
  24: eval(mc, env)
  25: order(..., decreasing = decreasing)
  
  ── 27. Error: Can make shared axes on right with gap in one row (@test_complex_e
  could not find function ".makeSortEnum"
  1: iheatmap(a, orientation = "vertical") %>% add_subplot(x = 1:10, y = 1:10, side = "right") %>% 
         add_iheatmap(b, side = "bottom") %>% add_subplot(x = 1:10, y = 1:10, side = "right", 
         xname = "bah") %>% add_subplot(x = 1:10, y = 1:10, side = "right") %>% add_subplot(x = 1:10, 
         y = 1:10, side = "left", yname = "y") %>% add_subplot(x = 1:10, y = 1:10, side = "right", 
         yname = "y", xname = "bah") %>% add_subplot(x = 1:10, y = 1:10, side = "left") at testthat/test_complex_examples.R:42
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  8: add_subplot(., x = 1:10, y = 1:10, side = "right")
  9: add_subplot(., x = 1:10, y = 1:10, side = "right")
  10: .local(p, ...)
  ...
  16: .local(p, new_axis, ...)
  17: sort(xaxes(p, yname))
  18: sort(xaxes(p, yname))
  19: .local(x, decreasing, ...)
  20: order(domain_start(x), decreasing = decreasing)
  21: standardGeneric("order")
  22: eval(mc, env)
  23: eval(mc, env)
  24: eval(mc, env)
  25: order(..., decreasing = decreasing)
  
  ── 28. Error: Can make plot with many components (@test_complex_examples.R#55)  
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_row_groups(row_grp) %>% add_row_clustering() %>% add_col_clustering(k = 2) %>% 
         add_main_heatmap(b) %>% add_col_summary(groups = TRUE) %>% add_row_labels(side = "right") %>% 
         add_col_signal(col_sig, "Test", xname = "x", side = "bottom") %>% add_col_labels() at testthat/test_complex_examples.R:55
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  8: add_row_groups(., row_grp)
  9: add_row_groups(., row_grp)
  10: .local(p, groups, ...)
  ...
  13: .local(p, new_axis, ...)
  14: sort(xaxes(p))
  15: sort(xaxes(p))
  16: .local(x, decreasing, ...)
  17: order(domain_start(x), decreasing = decreasing)
  18: standardGeneric("order")
  19: eval(mc, env)
  20: eval(mc, env)
  21: eval(mc, env)
  22: order(..., decreasing = decreasing)
  
  ── 29. Error: Can make plot with many components vertically (@test_complex_examp
  could not find function ".makeSortEnum"
  1: main_heatmap(a, orientation = "vertical") %>% add_row_clustering() %>% add_row_groups(row_grp, 
         side = "right") %>% add_col_clustering(k = 2) %>% add_main_heatmap(b) %>% add_col_groups(col_grp, 
         side = "bottom", name = "Groups") %>% add_row_summary(groups = "Groups") %>% 
         add_row_labels(side = "right", y = "y", tickvals = c(1, 20)) %>% add_col_signal(col_sig, 
         "Test", side = "bottom") %>% add_col_labels() %>% add_col_title("Test!") at testthat/test_complex_examples.R:68
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  8: add_row_clustering(.)
  9: add_row_clustering(.)
  10: .local(p, ...)
  ...
  16: .local(p, new_axis, ...)
  17: sort(xaxes(p, yname))
  18: sort(xaxes(p, yname))
  19: .local(x, decreasing, ...)
  20: order(domain_start(x), decreasing = decreasing)
  21: standardGeneric("order")
  22: eval(mc, env)
  23: eval(mc, env)
  24: eval(mc, env)
  25: order(..., decreasing = decreasing)
  
  ── 30. Error: can add a row signal to single horizontal heatmap (@test_dendro.R#
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_row_dendro(row_dendro) at testthat/test_dendro.R:4
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_row_dendro(., row_dendro)
  10: add_row_dendro(., row_dendro)
  ...
  14: .local(p, new_axis, ...)
  15: sort(xaxes(p))
  16: sort(xaxes(p))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 31. Error: can add a row signal to single vertical heatmap (@test_dendro.R#9)
  could not find function ".makeSortEnum"
  1: main_heatmap(a, orientation = "vertical") %>% add_row_dendro(row_dendro) at testthat/test_dendro.R:9
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_row_dendro(., row_dendro)
  10: add_row_dendro(., row_dendro)
  ...
  14: .local(p, new_axis, ...)
  15: sort(xaxes(p, yname))
  16: sort(xaxes(p, yname))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 32. Error: can add a column signal to single horizontal heatmap (@test_dendro
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_col_dendro(col_dendro) at testthat/test_dendro.R:15
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_col_dendro(., col_dendro)
  10: add_col_dendro(., col_dendro)
  ...
  14: .local(p, new_axis, ...)
  15: sort(yaxes(p, xname))
  16: sort(yaxes(p, xname))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 33. Error: can add a column signal to single vertical heatmap (@test_dendro.R
  could not find function ".makeSortEnum"
  1: main_heatmap(a, orientation = "vertical") %>% add_col_dendro(col_dendro) at testthat/test_dendro.R:20
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_col_dendro(., col_dendro)
  10: add_col_dendro(., col_dendro)
  ...
  14: .local(p, new_axis, ...)
  15: sort(yaxes(p))
  16: sort(yaxes(p))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 34. Error: can add a row groups to single horizontal heatmap (@test_groups.R#
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_row_groups(row_grp, "Test") at testthat/test_groups.R:4
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_row_groups(., row_grp, "Test")
  10: add_row_groups(., row_grp, "Test")
  ...
  14: .local(p, new_axis, ...)
  15: sort(xaxes(p))
  16: sort(xaxes(p))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 35. Error: can add a row groups to single vertical heatmap (@test_groups.R#9)
  could not find function ".makeSortEnum"
  1: main_heatmap(a, orientation = "vertical") %>% add_row_groups(row_grp, "Test") at testthat/test_groups.R:9
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_row_groups(., row_grp, "Test")
  10: add_row_groups(., row_grp, "Test")
  ...
  14: .local(p, new_axis, ...)
  15: sort(xaxes(p, yname))
  16: sort(xaxes(p, yname))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 36. Error: can add a column groups to single horizontal heatmap (@test_groups
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_col_groups(col_grp, "Test") at testthat/test_groups.R:15
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_col_groups(., col_grp, "Test")
  10: add_col_groups(., col_grp, "Test")
  ...
  14: .local(p, new_axis, ...)
  15: sort(yaxes(p, xname))
  16: sort(yaxes(p, xname))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 37. Error: can add a column groups to single vertical heatmap (@test_groups.R
  could not find function ".makeSortEnum"
  1: main_heatmap(a, orientation = "vertical") %>% add_col_groups(col_grp, "Test") at testthat/test_groups.R:20
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_col_groups(., col_grp, "Test")
  10: add_col_groups(., col_grp, "Test")
  ...
  14: .local(p, new_axis, ...)
  15: sort(yaxes(p))
  16: sort(yaxes(p))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 38. Error: can add a row labels to single horizontal heatmap (@test_labels.R#
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_row_labels() at testthat/test_labels.R:6
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_row_labels(.)
  10: add_row_labels(.)
  ...
  14: .local(p, new_axis, ...)
  15: sort(xaxes(p))
  16: sort(xaxes(p))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 39. Error: can add a row labels to single vertical heatmap (@test_labels.R#11
  could not find function ".makeSortEnum"
  1: main_heatmap(a, orientation = "vertical") %>% add_row_labels() at testthat/test_labels.R:11
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_row_labels(.)
  10: add_row_labels(.)
  ...
  14: .local(p, new_axis, ...)
  15: sort(xaxes(p, yname))
  16: sort(xaxes(p, yname))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 40. Error: can add a column labels to single horizontal heatmap (@test_labels
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_col_labels() at testthat/test_labels.R:17
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_col_labels(.)
  10: add_col_labels(.)
  ...
  14: .local(p, new_axis, ...)
  15: sort(yaxes(p, xname))
  16: sort(yaxes(p, xname))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 41. Error: can add a column labels to single vertical heatmap (@test_labels.R
  could not find function ".makeSortEnum"
  1: main_heatmap(a, orientation = "vertical") %>% add_col_labels() at testthat/test_labels.R:22
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_col_labels(.)
  10: add_col_labels(.)
  ...
  14: .local(p, new_axis, ...)
  15: sort(yaxes(p))
  16: sort(yaxes(p))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 42. Error: can add a row labels with custom ticktext of same length (@test_la
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_row_labels(ticktext = as.character(1:20 - 5)) at testthat/test_labels.R:30
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_row_labels(., ticktext = as.character(1:20 - 5))
  10: add_row_labels(., ticktext = as.character(1:20 - 5))
  ...
  14: .local(p, new_axis, ...)
  15: sort(xaxes(p))
  16: sort(xaxes(p))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 43. Error: can add a row labels with custom ticktext selection (@test_labels.
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_row_labels(ticktext = c("1", "5")) at testthat/test_labels.R:36
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_row_labels(., ticktext = c("1", "5"))
  10: add_row_labels(., ticktext = c("1", "5"))
  ...
  14: .local(p, new_axis, ...)
  15: sort(xaxes(p))
  16: sort(xaxes(p))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 44. Error: can add a row labels with custom tickvals selection (@test_labels.
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_row_labels(ticktext = c(1, 5)) at testthat/test_labels.R:50
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_row_labels(., ticktext = c(1, 5))
  10: add_row_labels(., ticktext = c(1, 5))
  ...
  14: .local(p, new_axis, ...)
  15: sort(xaxes(p))
  16: sort(xaxes(p))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 45. Error: can add a row labels with custom tickvals and ticktext selection (
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_row_labels(tickvals = c(1, 5), ticktext = c("A", "B")) at testthat/test_labels.R:63
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_row_labels(., tickvals = c(1, 5), ticktext = c("A", "B"))
  10: add_row_labels(., tickvals = c(1, 5), ticktext = c("A", "B"))
  ...
  14: .local(p, new_axis, ...)
  15: sort(xaxes(p))
  16: sort(xaxes(p))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 46. Error: can add a row labels to single horizontal heatmap (@test_labels.R#
  could not find function ".makeSortEnum"
  1: main_heatmap(a, y_categorical = TRUE) %>% add_row_labels() at testthat/test_labels.R:76
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_row_labels(.)
  10: add_row_labels(.)
  ...
  14: .local(p, new_axis, ...)
  15: sort(xaxes(p))
  16: sort(xaxes(p))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 47. Error: can add a row labels to single vertical heatmap (@test_labels.R#81
  could not find function ".makeSortEnum"
  1: main_heatmap(a, orientation = "vertical", y_categorical = TRUE) %>% add_row_labels() at testthat/test_labels.R:81
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_row_labels(.)
  10: add_row_labels(.)
  ...
  14: .local(p, new_axis, ...)
  15: sort(xaxes(p, yname))
  16: sort(xaxes(p, yname))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 48. Error: can add a column labels to single horizontal heatmap (@test_labels
  could not find function ".makeSortEnum"
  1: main_heatmap(a, x_categorical = TRUE) %>% add_col_labels() at testthat/test_labels.R:88
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_col_labels(.)
  10: add_col_labels(.)
  ...
  14: .local(p, new_axis, ...)
  15: sort(yaxes(p, xname))
  16: sort(yaxes(p, xname))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 49. Error: can add a column labels to single vertical heatmap (@test_labels.R
  could not find function ".makeSortEnum"
  1: main_heatmap(a, orientation = "vertical", x_categorical = TRUE) %>% add_col_labels() at testthat/test_labels.R:93
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_col_labels(.)
  10: add_col_labels(.)
  ...
  14: .local(p, new_axis, ...)
  15: sort(yaxes(p))
  16: sort(yaxes(p))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 50. Error: can add continuous row labels with custom ticktext of same length 
  could not find function ".makeSortEnum"
  1: main_heatmap(a, y_categorical = TRUE) %>% add_row_labels(ticktext = as.character(1:20 - 
         5)) at testthat/test_labels.R:102
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_row_labels(., ticktext = as.character(1:20 - 5))
  10: add_row_labels(., ticktext = as.character(1:20 - 5))
  ...
  14: .local(p, new_axis, ...)
  15: sort(xaxes(p))
  16: sort(xaxes(p))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 51. Error: can add continuous row labels with custom ticktext selection (@tes
  could not find function ".makeSortEnum"
  1: main_heatmap(a, y_categorical = TRUE) %>% add_row_labels(ticktext = c("1", "5")) at testthat/test_labels.R:108
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_row_labels(., ticktext = c("1", "5"))
  10: add_row_labels(., ticktext = c("1", "5"))
  ...
  14: .local(p, new_axis, ...)
  15: sort(xaxes(p))
  16: sort(xaxes(p))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 52. Error: can add continuous row labels with custom tickvals selection (@tes
  could not find function ".makeSortEnum"
  1: main_heatmap(a, y_categorical = TRUE) %>% add_row_labels(ticktext = c(1, 5)) at testthat/test_labels.R:122
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_row_labels(., ticktext = c(1, 5))
  10: add_row_labels(., ticktext = c(1, 5))
  ...
  14: .local(p, new_axis, ...)
  15: sort(xaxes(p))
  16: sort(xaxes(p))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 53. Error: can add continuous row labels with custom tickvals and ticktext (@
  could not find function ".makeSortEnum"
  1: main_heatmap(a, y_categorical = TRUE) %>% add_row_labels(tickvals = c(1, 5), ticktext = c("A", 
         "B")) at testthat/test_labels.R:135
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_row_labels(., tickvals = c(1, 5), ticktext = c("A", "B"))
  10: add_row_labels(., tickvals = c(1, 5), ticktext = c("A", "B"))
  ...
  14: .local(p, new_axis, ...)
  15: sort(xaxes(p))
  16: sort(xaxes(p))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 54. Error: can add a main heatmap horizontally (@test_main_heatmap.R#6)  ────
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_main_heatmap(b) at testthat/test_main_heatmap.R:6
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_main_heatmap(., b)
  10: add_main_heatmap(., b)
  ...
  14: .local(p, new_axis, ...)
  15: sort(xaxes(p))
  16: sort(xaxes(p))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 55. Error: can add a main heatmap vertically (@test_main_heatmap.R#11)  ─────
  could not find function ".makeSortEnum"
  1: main_heatmap(a, orientation = "vertical") %>% add_main_heatmap(b) at testthat/test_main_heatmap.R:11
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_main_heatmap(., b)
  10: add_main_heatmap(., b)
  ...
  14: .local(p, new_axis, ...)
  15: sort(yaxes(p))
  16: sort(yaxes(p))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 56. Error: main_heatmap returns IHeatmap object (@test_main_heatmap.R#18)  ──
  could not find function ".makeSortEnum"
  1: expect_iheatmap(test_plot, "main_heatmap") at testthat/test_main_heatmap.R:18
  2: test_plot %>% to_widget() at /data/gannet/ripley/R/packages/tests-clang/iheatmapr.Rcheck/tests/testthat/helper_expectation.R:32
  3: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: eval(quote(`_fseq`(`_lhs`)), env, env)
  6: `_fseq`(`_lhs`)
  7: freduce(value, `_function_list`)
  8: withVisible(function_list[[k]](value))
  9: function_list[[k]](value)
  10: to_widget(.)
  ...
  21: .local(x, ...)
  22: colorscale(cb, get_data(x))
  23: colorscale(cb, get_data(x))
  24: .local(colorbar, ...)
  25: order(vals, decreasing = FALSE)
  26: standardGeneric("order")
  27: eval(mc, env)
  28: eval(mc, env)
  29: eval(mc, env)
  30: order(..., decreasing = decreasing)
  
  ── 57. Error: orientation = 'vertical' returns IHeatmapVertical (@test_main_heat
  could not find function ".makeSortEnum"
  1: expect_iheatmap(test_plot, "main_heatmap_vertical", "vertical") at testthat/test_main_heatmap.R:23
  2: test_plot %>% to_widget() at /data/gannet/ripley/R/packages/tests-clang/iheatmapr.Rcheck/tests/testthat/helper_expectation.R:32
  3: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: eval(quote(`_fseq`(`_lhs`)), env, env)
  6: `_fseq`(`_lhs`)
  7: freduce(value, `_function_list`)
  8: withVisible(function_list[[k]](value))
  9: function_list[[k]](value)
  10: to_widget(.)
  ...
  21: .local(x, ...)
  22: colorscale(cb, get_data(x))
  23: colorscale(cb, get_data(x))
  24: .local(colorbar, ...)
  25: order(vals, decreasing = FALSE)
  26: standardGeneric("order")
  27: eval(mc, env)
  28: eval(mc, env)
  29: eval(mc, env)
  30: order(..., decreasing = decreasing)
  
  ── 58. Error: can add a row plot to single horizontal heatmap (@test_row_and_col
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_row_plot(row_sig, name = "Test") at testthat/test_row_and_col_plot.R:4
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_row_plot(., row_sig, name = "Test")
  10: add_row_plot(., row_sig, name = "Test")
  ...
  14: .local(p, new_axis, ...)
  15: sort(xaxes(p))
  16: sort(xaxes(p))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 59. Error: can add a row plot to single vertical heatmap (@test_row_and_col_p
  could not find function ".makeSortEnum"
  1: main_heatmap(a, orientation = "vertical") %>% add_row_plot(row_sig, name = "Test") at testthat/test_row_and_col_plot.R:9
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_row_plot(., row_sig, name = "Test")
  10: add_row_plot(., row_sig, name = "Test")
  ...
  14: .local(p, new_axis, ...)
  15: sort(xaxes(p, yname))
  16: sort(xaxes(p, yname))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 60. Error: can add a column plot to single horizontal heatmap (@test_row_and_
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_col_plot(col_sig, name = "Test") at testthat/test_row_and_col_plot.R:15
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_col_plot(., col_sig, name = "Test")
  10: add_col_plot(., col_sig, name = "Test")
  ...
  14: .local(p, new_axis, ...)
  15: sort(yaxes(p, xname))
  16: sort(yaxes(p, xname))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 61. Error: can add a column plot to single vertical heatmap (@test_row_and_co
  could not find function ".makeSortEnum"
  1: main_heatmap(a, orientation = "vertical") %>% add_col_plot(col_sig, name = "Test") at testthat/test_row_and_col_plot.R:20
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_col_plot(., col_sig, name = "Test")
  10: add_col_plot(., col_sig, name = "Test")
  ...
  14: .local(p, new_axis, ...)
  15: sort(yaxes(p))
  16: sort(yaxes(p))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 62. Error: can add a row scatter plot to single horizontal heatmap (@test_row
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_row_plot(row_sig, name = "Test", mode = "markers") at testthat/test_row_and_col_plot.R:26
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_row_plot(., row_sig, name = "Test", mode = "markers")
  10: add_row_plot(., row_sig, name = "Test", mode = "markers")
  ...
  14: .local(p, new_axis, ...)
  15: sort(xaxes(p))
  16: sort(xaxes(p))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 63. Error: can add a row scatter plot to single vertical heatmap (@test_row_a
  could not find function ".makeSortEnum"
  1: main_heatmap(a, orientation = "vertical") %>% add_row_plot(row_sig, name = "Test", 
         mode = "markers") at testthat/test_row_and_col_plot.R:32
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_row_plot(., row_sig, name = "Test", mode = "markers")
  10: add_row_plot(., row_sig, name = "Test", mode = "markers")
  ...
  14: .local(p, new_axis, ...)
  15: sort(xaxes(p, yname))
  16: sort(xaxes(p, yname))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 64. Error: can add a column scatter plot to single horizontal heatmap (@test_
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_col_plot(col_sig, name = "Test", mode = "markers") at testthat/test_row_and_col_plot.R:38
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_col_plot(., col_sig, name = "Test", mode = "markers")
  10: add_col_plot(., col_sig, name = "Test", mode = "markers")
  ...
  14: .local(p, new_axis, ...)
  15: sort(yaxes(p, xname))
  16: sort(yaxes(p, xname))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 65. Error: can add a column scatter plot to single vertical heatmap (@test_ro
  could not find function ".makeSortEnum"
  1: main_heatmap(a, orientation = "vertical") %>% add_col_plot(col_sig, name = "Test", 
         mode = "markers") at testthat/test_row_and_col_plot.R:44
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_col_plot(., col_sig, name = "Test", mode = "markers")
  10: add_col_plot(., col_sig, name = "Test", mode = "markers")
  ...
  14: .local(p, new_axis, ...)
  15: sort(yaxes(p))
  16: sort(yaxes(p))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 66. Error: can add a row signal to single horizontal heatmap (@test_signal.R#
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_row_signal(row_sig, "Test") at testthat/test_signal.R:4
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_row_signal(., row_sig, "Test")
  10: add_row_signal(., row_sig, "Test")
  ...
  14: .local(p, new_axis, ...)
  15: sort(xaxes(p))
  16: sort(xaxes(p))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 67. Error: can add a row signal to single vertical heatmap (@test_signal.R#9)
  could not find function ".makeSortEnum"
  1: main_heatmap(a, orientation = "vertical") %>% add_row_signal(row_sig, "Test") at testthat/test_signal.R:9
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_row_signal(., row_sig, "Test")
  10: add_row_signal(., row_sig, "Test")
  ...
  14: .local(p, new_axis, ...)
  15: sort(xaxes(p, yname))
  16: sort(xaxes(p, yname))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 68. Error: can add a column signal to single horizontal heatmap (@test_signal
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_col_signal(col_sig, "Test") at testthat/test_signal.R:15
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_col_signal(., col_sig, "Test")
  10: add_col_signal(., col_sig, "Test")
  ...
  14: .local(p, new_axis, ...)
  15: sort(yaxes(p, xname))
  16: sort(yaxes(p, xname))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 69. Error: can add a column signal to single vertical heatmap (@test_signal.R
  could not find function ".makeSortEnum"
  1: main_heatmap(a, orientation = "vertical") %>% add_col_signal(col_sig, "Test") at testthat/test_signal.R:20
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_col_signal(., col_sig, "Test")
  10: add_col_signal(., col_sig, "Test")
  ...
  14: .local(p, new_axis, ...)
  15: sort(yaxes(p))
  16: sort(yaxes(p))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 70. Error: can add a row summary to single horizontal heatmap (@test_summary.
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_row_summary() at testthat/test_summary.R:4
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_row_summary(.)
  10: add_row_summary(.)
  ...
  18: .local(p, new_axis, ...)
  19: sort(xaxes(p))
  20: sort(xaxes(p))
  21: .local(x, decreasing, ...)
  22: order(domain_start(x), decreasing = decreasing)
  23: standardGeneric("order")
  24: eval(mc, env)
  25: eval(mc, env)
  26: eval(mc, env)
  27: order(..., decreasing = decreasing)
  
  ── 71. Error: can add a row summary to single vertical heatmap (@test_summary.R#
  could not find function ".makeSortEnum"
  1: main_heatmap(a, orientation = "vertical") %>% add_row_summary() at testthat/test_summary.R:9
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_row_summary(.)
  10: add_row_summary(.)
  ...
  18: .local(p, new_axis, ...)
  19: sort(xaxes(p, yname))
  20: sort(xaxes(p, yname))
  21: .local(x, decreasing, ...)
  22: order(domain_start(x), decreasing = decreasing)
  23: standardGeneric("order")
  24: eval(mc, env)
  25: eval(mc, env)
  26: eval(mc, env)
  27: order(..., decreasing = decreasing)
  
  ── 72. Error: can add a column summary to single horizontal heatmap (@test_summa
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_col_summary() at testthat/test_summary.R:15
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_col_summary(.)
  10: add_col_summary(.)
  ...
  18: .local(p, new_axis, ...)
  19: sort(yaxes(p, xname))
  20: sort(yaxes(p, xname))
  21: .local(x, decreasing, ...)
  22: order(domain_start(x), decreasing = decreasing)
  23: standardGeneric("order")
  24: eval(mc, env)
  25: eval(mc, env)
  26: eval(mc, env)
  27: order(..., decreasing = decreasing)
  
  ── 73. Error: can add a column summary to single vertical heatmap (@test_summary
  could not find function ".makeSortEnum"
  1: main_heatmap(a, orientation = "vertical") %>% add_col_summary() at testthat/test_summary.R:20
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_col_summary(.)
  10: add_col_summary(.)
  ...
  18: .local(p, new_axis, ...)
  19: sort(yaxes(p))
  20: sort(yaxes(p))
  21: .local(x, decreasing, ...)
  22: order(domain_start(x), decreasing = decreasing)
  23: standardGeneric("order")
  24: eval(mc, env)
  25: eval(mc, env)
  26: eval(mc, env)
  27: order(..., decreasing = decreasing)
  
  ── 74. Error: can add a row summary with groups to single horizontal heatmap (@t
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_row_summary(groups = col_grp) at testthat/test_summary.R:27
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_row_summary(., groups = col_grp)
  10: add_row_summary(., groups = col_grp)
  ...
  18: .local(p, new_axis, ...)
  19: sort(xaxes(p))
  20: sort(xaxes(p))
  21: .local(x, decreasing, ...)
  22: order(domain_start(x), decreasing = decreasing)
  23: standardGeneric("order")
  24: eval(mc, env)
  25: eval(mc, env)
  26: eval(mc, env)
  27: order(..., decreasing = decreasing)
  
  ── 75. Error: can add a row summary with groups to single vertical heatmap (@tes
  could not find function ".makeSortEnum"
  1: main_heatmap(a, orientation = "vertical") %>% add_row_summary(groups = col_grp) at testthat/test_summary.R:32
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_row_summary(., groups = col_grp)
  10: add_row_summary(., groups = col_grp)
  ...
  18: .local(p, new_axis, ...)
  19: sort(xaxes(p, yname))
  20: sort(xaxes(p, yname))
  21: .local(x, decreasing, ...)
  22: order(domain_start(x), decreasing = decreasing)
  23: standardGeneric("order")
  24: eval(mc, env)
  25: eval(mc, env)
  26: eval(mc, env)
  27: order(..., decreasing = decreasing)
  
  ── 76. Error: can add a column summary with groups to single horizontal heatmap 
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_col_summary(groups = row_grp) at testthat/test_summary.R:38
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_col_summary(., groups = row_grp)
  10: add_col_summary(., groups = row_grp)
  ...
  18: .local(p, new_axis, ...)
  19: sort(yaxes(p, xname))
  20: sort(yaxes(p, xname))
  21: .local(x, decreasing, ...)
  22: order(domain_start(x), decreasing = decreasing)
  23: standardGeneric("order")
  24: eval(mc, env)
  25: eval(mc, env)
  26: eval(mc, env)
  27: order(..., decreasing = decreasing)
  
  ── 77. Error: can add a column summary with groups to single vertical heatmap (@
  could not find function ".makeSortEnum"
  1: main_heatmap(a, orientation = "vertical") %>% add_col_summary(groups = row_grp) at testthat/test_summary.R:43
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_col_summary(., groups = row_grp)
  10: add_col_summary(., groups = row_grp)
  ...
  18: .local(p, new_axis, ...)
  19: sort(yaxes(p))
  20: sort(yaxes(p))
  21: .local(x, decreasing, ...)
  22: order(domain_start(x), decreasing = decreasing)
  23: standardGeneric("order")
  24: eval(mc, env)
  25: eval(mc, env)
  26: eval(mc, env)
  27: order(..., decreasing = decreasing)
  
  ── 78. Error: can add a row title to single horizontal heatmap (@test_titles.R#4
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_row_title("Test") at testthat/test_titles.R:4
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_row_title(., "Test")
  10: add_row_title(., "Test")
  ...
  14: .local(p, new_axis, ...)
  15: sort(xaxes(p))
  16: sort(xaxes(p))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 79. Error: can add a row title to single vertical heatmap (@test_titles.R#9) 
  could not find function ".makeSortEnum"
  1: main_heatmap(a, orientation = "vertical") %>% add_row_title("Test") at testthat/test_titles.R:9
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_row_title(., "Test")
  10: add_row_title(., "Test")
  ...
  14: .local(p, new_axis, ...)
  15: sort(xaxes(p, yname))
  16: sort(xaxes(p, yname))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 80. Error: can add a column title to single horizontal heatmap (@test_titles.
  could not find function ".makeSortEnum"
  1: main_heatmap(a) %>% add_col_title("Test") at testthat/test_titles.R:15
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_col_title(., "Test")
  10: add_col_title(., "Test")
  ...
  14: .local(p, new_axis, ...)
  15: sort(yaxes(p, xname))
  16: sort(yaxes(p, xname))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ── 81. Error: can add a column title to single vertical heatmap (@test_titles.R#
  could not find function ".makeSortEnum"
  1: main_heatmap(a, orientation = "vertical") %>% add_col_title("Test") at testthat/test_titles.R:20
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: add_col_title(., "Test")
  10: add_col_title(., "Test")
  ...
  14: .local(p, new_axis, ...)
  15: sort(yaxes(p))
  16: sort(yaxes(p))
  17: .local(x, decreasing, ...)
  18: order(domain_start(x), decreasing = decreasing)
  19: standardGeneric("order")
  20: eval(mc, env)
  21: eval(mc, env)
  22: eval(mc, env)
  23: order(..., decreasing = decreasing)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 18 SKIPPED: 0 FAILED: 81
  1. Error: adding a main heatmap of same size to right gives correct sizing (@test_adjust_x_domains.R#5) 
  2. Error: adding a main heatmap of different size to right gives right size (@test_adjust_x_domains.R#21) 
  3. Error: adding a main heatmap of same size to left gives correct sizing (@test_adjust_x_domains.R#37) 
  4. Error: adding a main heatmap of different size to left gives right size (@test_adjust_x_domains.R#53) 
  5. Error: adding a third plot to right gives correct sizing (@test_adjust_x_domains.R#69) 
  6. Error: adding a col_plot on top gives correct sizing (@test_adjust_y_domains.R#6) 
  7. Error: adding a col_plot on bottom gives correct sizing (@test_adjust_y_domains.R#24) 
  8. Error: can add a row barplot to single horizontal heatmap (@test_barplot.R#4) 
  9. Error: can add a row barplot to single vertical heatmap (@test_barplot.R#9) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted