Running ‘testthat.R’ [20s/27s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(iheatmapr)
  > 
  > test_check("iheatmapr")
  1. Error: can add row clustering with dendrogram and k to single horizontal 
            heatmap (@test_clustering.R#34) 
  failed to coerce 'list(value)' to a IheatmapAxes object of length 1
  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)
  11: .local(p, ...)
  12: add_row_dendro(p, dendro, side = side)
  13: add_row_dendro(p, dendro, side = side)
  14: .local(p, dendro, ...)
  15: add_axis(p, new_x, xname = xname, yname = yname, size = size, buffer = buffer, side = side)
  16: add_axis(p, new_x, xname = xname, yname = yname, size = size, buffer = buffer, side = side)
  17: .local(p, new_axis, ...)
  18: `domain_start<-`(`*tmp*`, value = 1 - ((1 - starts)/norm_factor))
  19: `domain_start<-`(`*tmp*`, value = 1 - ((1 - starts)/norm_factor))
  20: `[[<-`(`*tmp*`, i, value = new("IheatmapX",
     id = "x2", domain_start = 0.128099173553719, 
         domain_end = 0.04739336492891, anchor = "y", layout = list(anchor = "y", title = "", 
             zeroline = FALSE, showline = FALSE, tickvals = list(0), ticktext = list(""), 
             showgrid = FALSE, fixedrange = TRUE, ticks = "", tickangle = -90)))
  21: `[[<-`(`*tmp*`, i, value = new("IheatmapX",
     id = "x2", domain_start = 0.128099173553719, 
         domain_end = 0.04739336492891, anchor = "y", layout = list(anchor = "y", title = "", 
             zeroline = FALSE, showline = FALSE, tickvals = list(0), ticktext = list(""), 
             showgrid = FALSE, fixedrange = TRUE, ticks = "", tickangle = -90)))
  22: setListElement(x, i, value)
  23: setListElement(x, i, value)
  24: .replace_list_element(x, i2, value)
  25: .wrap_in_length_one_list_like_object(value, names(x)[[i]], x)
  26: stop(wmsg("failed to coerce 'list(value)' to a ", class(x), " object of length 1"))
  
  2. Error: can add row clustering with dendrogram and k to single vertheatmap (@test_clustering.R#39) 
  failed to coerce 'list(value)' to a IheatmapAxes object of length 1
  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)
  11: .local(p, ...)
  12: add_row_dendro(p, dendro, side = side)
  13: add_row_dendro(p, dendro, side = side)
  14: .local(p, dendro, ...)
  15: add_axis(p, new_x, xname = xname, yname = yname, size = size, buffer = buffer, side = side)
  16: add_axis(p, new_x, xname = xname, yname = yname, size = size, buffer = buffer, side = side)
  17: .local(p, new_axis, ...)
  18: `[[<-`(`*tmp*`, names(current)[i], value = new("IheatmapX",
     id = "x2", domain_start = 0.128099173553719, 
         domain_end = 0.0473933649289099, anchor = "y", layout = list(anchor = "y", title = "", 
             zeroline = FALSE, showline = FALSE, tickvals = list(0), ticktext = list(""), 
             showgrid = FALSE, fixedrange = TRUE, ticks = "", tickangle = -90)))
  19: `[[<-`(`*tmp*`, names(current)[i], value = new("IheatmapX",
     id = "x2", domain_start = 0.128099173553719, 
         domain_end = 0.0473933649289099, anchor = "y", layout = list(anchor = "y", title = "", 
             zeroline = FALSE, showline = FALSE, tickvals = list(0), ticktext = list(""), 
             showgrid = FALSE, fixedrange = TRUE, ticks = "", tickangle = -90)))
  20: setListElement(x, i, value)
  21: setListElement(x, i, value)
  22: .replace_list_element(x, i2, value)
  23: .wrap_in_length_one_list_like_object(value, names(x)[[i]], x)
  24: stop(wmsg("failed to coerce 'list(value)' to a ", class(x), " object of length 1"))
  
  3. Error: Can make plot with many components vertically (@test_complex_examples.R#68) 
  failed to coerce 'list(value)' to a IheatmapAxes object of length 1
  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_main_heatmap(., b)
  9: add_main_heatmap(., b)
  10: .local(p, data, ...)
  11: add_axis(p, new_y, yname, size, buffer, side)
  12: add_axis(p, new_y, yname, size, buffer, side)
  13: .local(p, new_axis, ...)
  14: `domain_start<-`(`*tmp*`, value = 1 - ((1 - starts)/norm_factor))
  15: `domain_start<-`(`*tmp*`, value = 1 - ((1 - starts)/norm_factor))
  16: `[[<-`(`*tmp*`, i, value = new("IheatmapY",
     id = "y2", domain_start = 0.90929203539823, 
         domain_end = 0.872950819672131, anchor = "x", layout = list(anchor = "x", title = "", 
             zeroline = FALSE, showline = FALSE, tickvals = list(0), ticktext = list(""), 
             showgrid = FALSE, fixedrange = TRUE, ticks = "")))
  17: `[[<-`(`*tmp*`, i, value = new("IheatmapY",
     id = "y2", domain_start = 0.90929203539823, 
         domain_end = 0.872950819672131, anchor = "x", layout = list(anchor = "x", title = "", 
             zeroline = FALSE, showline = FALSE, tickvals = list(0), ticktext = list(""), 
             showgrid = FALSE, fixedrange = TRUE, ticks = "")))
  18: setListElement(x, i, value)
  19: setListElement(x, i, value)
  20: .replace_list_element(x, i2, value)
  21: .wrap_in_length_one_list_like_object(value, names(x)[[i]], x)
  22: stop(wmsg("failed to coerce 'list(value)' to a ", class(x), " object of length 1"))
  
  testthat results ================================================================
  OK: 332 SKIPPED: 0 FAILED: 3
  1. Error: can add row clustering with dendrogram and k to single horizontal 
            heatmap (@test_clustering.R#34) 
  2. Error: can add row clustering with dendrogram and k to single vertheatmap (@test_clustering.R#39) 
  3. Error: Can make plot with many components vertically (@test_complex_examples.R#68) 
  
  Error: testthat unit tests failed
  Execution halted