Running ‘testthat.R’ [12s/15s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(iheatmapr)
  > 
  > test_check("iheatmapr")
  1. Error: can add a row barplot to single horizontal heatmap (@test_barplot.R#5) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "row_barplot_horizontal") at testthat/test_barplot.R:5
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  2. Error: can add a row barplot to single vertical heatmap (@test_barplot.R#11) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "row_barplot_vertical", "vertical") at testthat/test_barplot.R:11
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  3. Error: can add a column barplot to single horizontal heatmap (@test_barplot.R#16) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "col_barplot_horizontal") at testthat/test_barplot.R:16
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  4. Error: can add a column barplot to single vertical heatmap (@test_barplot.R#22) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "col_barplot_vertical", "vertical") at testthat/test_barplot.R:22
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  5. Error: can add row clustering with dendrogram to single horizontal heatmap (@test_clustering.R#7) 
  attempt to extract less than one element
  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(.)
  11: .local(p, ...)
  12: get_heatmap(p, xname = xname, yname = yname, side = side)
  13: get_heatmap(p, xname = xname, yname = yname, side = side)
  14: .local(p, ...)
  15: plots(p)[[candidates[which(xcand == left)]]]
  16: plots(p)[[candidates[which(xcand == left)]]]
  17: getListElement(x, i, ...)
  18: getListElement(x, i, ...)
  19: getListElement(x@listData, i, exact = exact)
  20: getListElement(x@listData, i, exact = exact)
  21: normalizeDoubleBracketSubscript(i, x, exact = exact, allow.NA = TRUE, allow.nomatch = TRUE)
  22: stop("attempt to extract less than one element")
  
  6. Error: can add row clustering with dendrogram single vertical heatmap (@test_clustering.R#12) 
  attempt to extract less than one element
  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(.)
  11: .local(p, ...)
  12: get_heatmap(p, xname = xname, yname = yname, side = side)
  13: get_heatmap(p, xname = xname, yname = yname, side = side)
  14: .local(p, ...)
  15: plots(p)[[candidates[which(ycand == yname)]]]
  16: plots(p)[[candidates[which(ycand == yname)]]]
  17: getListElement(x, i, ...)
  18: getListElement(x, i, ...)
  19: getListElement(x@listData, i, exact = exact)
  20: getListElement(x@listData, i, exact = exact)
  21: normalizeDoubleBracketSubscript(i, x, exact = exact, allow.NA = TRUE, allow.nomatch = TRUE)
  22: stop("attempt to extract less than one element")
  
  7. Error: can add col clustering with dendrogram to single horizontal heatmap (@test_clustering.R#19) 
  attempt to extract less than one element
  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(.)
  11: .local(p, ...)
  12: get_heatmap(p, xname = xname, yname = yname, side = side)
  13: get_heatmap(p, xname = xname, yname = yname, side = side)
  14: .local(p, ...)
  15: plots(p)[[candidates[which(xcand == xname)]]]
  16: plots(p)[[candidates[which(xcand == xname)]]]
  17: getListElement(x, i, ...)
  18: getListElement(x, i, ...)
  19: getListElement(x@listData, i, exact = exact)
  20: getListElement(x@listData, i, exact = exact)
  21: normalizeDoubleBracketSubscript(i, x, exact = exact, allow.NA = TRUE, allow.nomatch = TRUE)
  22: stop("attempt to extract less than one element")
  
  8. Error: can add col clustering with dendrogram  to single vertical heatmap (@test_clustering.R#24) 
  attempt to extract less than one element
  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(.)
  11: .local(p, ...)
  12: get_heatmap(p, xname = xname, yname = yname, side = side)
  13: get_heatmap(p, xname = xname, yname = yname, side = side)
  14: .local(p, ...)
  15: plots(p)[[candidates[which(ycand == top)]]]
  16: plots(p)[[candidates[which(ycand == top)]]]
  17: getListElement(x, i, ...)
  18: getListElement(x, i, ...)
  19: getListElement(x@listData, i, exact = exact)
  20: getListElement(x@listData, i, exact = exact)
  21: normalizeDoubleBracketSubscript(i, x, exact = exact, allow.NA = TRUE, allow.nomatch = TRUE)
  22: stop("attempt to extract less than one element")
  
  9. Error: can add row clustering with dendrogram and k to single horizontal 
            heatmap (@test_clustering.R#34) 
  attempt to extract less than one element
  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: get_heatmap(p, xname = xname, yname = yname, side = side)
  13: get_heatmap(p, xname = xname, yname = yname, side = side)
  14: .local(p, ...)
  15: plots(p)[[candidates[which(xcand == left)]]]
  16: plots(p)[[candidates[which(xcand == left)]]]
  17: getListElement(x, i, ...)
  18: getListElement(x, i, ...)
  19: getListElement(x@listData, i, exact = exact)
  20: getListElement(x@listData, i, exact = exact)
  21: normalizeDoubleBracketSubscript(i, x, exact = exact, allow.NA = TRUE, allow.nomatch = TRUE)
  22: stop("attempt to extract less than one element")
  
  10. Error: can add row clustering with dendrogram and k to single vertheatmap (@test_clustering.R#39) 
  attempt to extract less than one element
  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: get_heatmap(p, xname = xname, yname = yname, side = side)
  13: get_heatmap(p, xname = xname, yname = yname, side = side)
  14: .local(p, ...)
  15: plots(p)[[candidates[which(ycand == yname)]]]
  16: plots(p)[[candidates[which(ycand == yname)]]]
  17: getListElement(x, i, ...)
  18: getListElement(x, i, ...)
  19: getListElement(x@listData, i, exact = exact)
  20: getListElement(x@listData, i, exact = exact)
  21: normalizeDoubleBracketSubscript(i, x, exact = exact, allow.NA = TRUE, allow.nomatch = TRUE)
  22: stop("attempt to extract less than one element")
  
  11. Error: can add col clustering with dendrogram and k to single hor heatmap (@test_clustering.R#45) 
  attempt to extract less than one element
  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)
  11: .local(p, ...)
  12: get_heatmap(p, xname = xname, yname = yname, side = side)
  13: get_heatmap(p, xname = xname, yname = yname, side = side)
  14: .local(p, ...)
  15: plots(p)[[candidates[which(xcand == xname)]]]
  16: plots(p)[[candidates[which(xcand == xname)]]]
  17: getListElement(x, i, ...)
  18: getListElement(x, i, ...)
  19: getListElement(x@listData, i, exact = exact)
  20: getListElement(x@listData, i, exact = exact)
  21: normalizeDoubleBracketSubscript(i, x, exact = exact, allow.NA = TRUE, allow.nomatch = TRUE)
  22: stop("attempt to extract less than one element")
  
  12. Error: can add col clustering with dendrogram and k to single verheatmap (@test_clustering.R#50) 
  attempt to extract less than one element
  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)
  11: .local(p, ...)
  12: get_heatmap(p, xname = xname, yname = yname, side = side)
  13: get_heatmap(p, xname = xname, yname = yname, side = side)
  14: .local(p, ...)
  15: plots(p)[[candidates[which(ycand == top)]]]
  16: plots(p)[[candidates[which(ycand == top)]]]
  17: getListElement(x, i, ...)
  18: getListElement(x, i, ...)
  19: getListElement(x@listData, i, exact = exact)
  20: getListElement(x@listData, i, exact = exact)
  21: normalizeDoubleBracketSubscript(i, x, exact = exact, allow.NA = TRUE, allow.nomatch = TRUE)
  22: stop("attempt to extract less than one element")
  
  13. Error: can add row clustering with kmeans to single horizontal 
            heatmap (@test_clustering.R#59) 
  attempt to extract less than one element
  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: get_heatmap(p, xname = xname, yname = yname, side = side)
  13: get_heatmap(p, xname = xname, yname = yname, side = side)
  14: .local(p, ...)
  15: plots(p)[[candidates[which(xcand == left)]]]
  16: plots(p)[[candidates[which(xcand == left)]]]
  17: getListElement(x, i, ...)
  18: getListElement(x, i, ...)
  19: getListElement(x@listData, i, exact = exact)
  20: getListElement(x@listData, i, exact = exact)
  21: normalizeDoubleBracketSubscript(i, x, exact = exact, allow.NA = TRUE, allow.nomatch = TRUE)
  22: stop("attempt to extract less than one element")
  
  14. Error: can add row clustering with kmeans to single vertical 
            heatmap (@test_clustering.R#68) 
  attempt to extract less than one element
  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: get_heatmap(p, xname = xname, yname = yname, side = side)
  13: get_heatmap(p, xname = xname, yname = yname, side = side)
  14: .local(p, ...)
  15: plots(p)[[candidates[which(ycand == yname)]]]
  16: plots(p)[[candidates[which(ycand == yname)]]]
  17: getListElement(x, i, ...)
  18: getListElement(x, i, ...)
  19: getListElement(x@listData, i, exact = exact)
  20: getListElement(x@listData, i, exact = exact)
  21: normalizeDoubleBracketSubscript(i, x, exact = exact, allow.NA = TRUE, allow.nomatch = TRUE)
  22: stop("attempt to extract less than one element")
  
  15. Error: can add col clustering with kmeans to single horizontal heatmap (@test_clustering.R#75) 
  attempt to extract less than one element
  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: get_heatmap(p, xname = xname, yname = yname, side = side)
  13: get_heatmap(p, xname = xname, yname = yname, side = side)
  14: .local(p, ...)
  15: plots(p)[[candidates[which(xcand == xname)]]]
  16: plots(p)[[candidates[which(xcand == xname)]]]
  17: getListElement(x, i, ...)
  18: getListElement(x, i, ...)
  19: getListElement(x@listData, i, exact = exact)
  20: getListElement(x@listData, i, exact = exact)
  21: normalizeDoubleBracketSubscript(i, x, exact = exact, allow.NA = TRUE, allow.nomatch = TRUE)
  22: stop("attempt to extract less than one element")
  
  16. Error: can add col clustering with kmeans to single vertical heatmap (@test_clustering.R#81) 
  attempt to extract less than one element
  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: get_heatmap(p, xname = xname, yname = yname, side = side)
  13: get_heatmap(p, xname = xname, yname = yname, side = side)
  14: .local(p, ...)
  15: plots(p)[[candidates[which(ycand == top)]]]
  16: plots(p)[[candidates[which(ycand == top)]]]
  17: getListElement(x, i, ...)
  18: getListElement(x, i, ...)
  19: getListElement(x@listData, i, exact = exact)
  20: getListElement(x@listData, i, exact = exact)
  21: normalizeDoubleBracketSubscript(i, x, exact = exact, allow.NA = TRUE, allow.nomatch = TRUE)
  22: stop("attempt to extract less than one element")
  
  17. Error: Can make shared axes on bottom with gap in one column (@test_complex_examples.R#13) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "shared_axes_gap_bottom_horizontal") at testthat/test_complex_examples.R:13
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  18. Error: Can make shared axes on top with gap in one column (@test_complex_examples.R#25) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "shared_axes_gap_top_horizontal") at testthat/test_complex_examples.R:25
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  19. Error: Can make shared axes on left with gap in one row (@test_complex_examples.R#38) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "shared_axes_gap_left_vertical", "vertical") at testthat/test_complex_examples.R:38
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  20. Error: Can make shared axes on right with gap in one row (@test_complex_examples.R#51) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "shared_axes_gap_right_vertical", "vertical") at testthat/test_complex_examples.R:51
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  21. Error: Can make plot with many components (@test_complex_examples.R#55) ----
  attempt to extract less than one element
  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_clustering(.)
  9: add_row_clustering(.)
  10: .local(p, ...)
  11: get_heatmap(p, xname = xname, yname = yname, side = side)
  12: get_heatmap(p, xname = xname, yname = yname, side = side)
  13: .local(p, ...)
  14: plots(p)[[candidates[which(xcand == left)]]]
  15: plots(p)[[candidates[which(xcand == left)]]]
  16: getListElement(x, i, ...)
  17: getListElement(x, i, ...)
  18: getListElement(x@listData, i, exact = exact)
  19: getListElement(x@listData, i, exact = exact)
  20: normalizeDoubleBracketSubscript(i, x, exact = exact, allow.NA = TRUE, allow.nomatch = TRUE)
  21: stop("attempt to extract less than one element")
  
  22. Error: Can make plot with many components vertically (@test_complex_examples.R#68) 
  attempt to extract less than one element
  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, ...)
  11: get_heatmap(p, xname = xname, yname = yname, side = side)
  12: get_heatmap(p, xname = xname, yname = yname, side = side)
  13: .local(p, ...)
  14: plots(p)[[candidates[which(ycand == yname)]]]
  15: plots(p)[[candidates[which(ycand == yname)]]]
  16: getListElement(x, i, ...)
  17: getListElement(x, i, ...)
  18: getListElement(x@listData, i, exact = exact)
  19: getListElement(x@listData, i, exact = exact)
  20: normalizeDoubleBracketSubscript(i, x, exact = exact, allow.NA = TRUE, allow.nomatch = TRUE)
  21: stop("attempt to extract less than one element")
  
  23. Error: can add a row signal to single horizontal heatmap (@test_dendro.R#5) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "row_dendro_horizontal") at testthat/test_dendro.R:5
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  24. Error: can add a row signal to single vertical heatmap (@test_dendro.R#11) -
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "row_dendro_vertical", "vertical") at testthat/test_dendro.R:11
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  25. Error: can add a column signal to single horizontal heatmap (@test_dendro.R#16) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "col_dendro_horizontal") at testthat/test_dendro.R:16
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  26. Error: can add a column signal to single vertical heatmap (@test_dendro.R#22) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "col_dendro_vertical", "vertical") at testthat/test_dendro.R:22
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  27. Error: can add a row groups to single horizontal heatmap (@test_groups.R#5) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "row_groups_horizontal") at testthat/test_groups.R:5
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  28. Error: can add a row groups to single vertical heatmap (@test_groups.R#11) -
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "row_groups_vertical", "vertical") at testthat/test_groups.R:11
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  29. Error: can add a column groups to single horizontal heatmap (@test_groups.R#16) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "col_groups_horizontal") at testthat/test_groups.R:16
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  30. Error: can add a column groups to single vertical heatmap (@test_groups.R#22) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "col_groups_vertical", "vertical") at testthat/test_groups.R:22
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  31. Error: can add a row labels to single horizontal heatmap (@test_labels.R#7) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "row_labels_horizontal") at testthat/test_labels.R:7
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  32. Error: can add a row labels to single vertical heatmap (@test_labels.R#13) -
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "row_labels_vertical", "vertical") at testthat/test_labels.R:13
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  33. Error: can add a column labels to single horizontal heatmap (@test_labels.R#18) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "col_labels_horizontal") at testthat/test_labels.R:18
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  34. Error: can add a column labels to single vertical heatmap (@test_labels.R#24) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "col_labels_vertical", "vertical") at testthat/test_labels.R:24
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  35. Error: can add a row labels with custom ticktext of same length (@test_labels.R#32) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "row_labels_custom_ticktext1_horizontal") at testthat/test_labels.R:32
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  36. Error: can add a row labels with custom ticktext selection (@test_labels.R#38) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "row_labels_custom_ticktext2_horizontal") at testthat/test_labels.R:38
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  37. Error: can add a row labels with custom tickvals selection (@test_labels.R#52) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "row_labels_custom_tickvals_horizontal") at testthat/test_labels.R:52
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  38. Error: can add a row labels with custom tickvals and ticktext selection (@test_labels.R#65) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "row_labels_custom_ticktext_tickvals_horizontal") at testthat/test_labels.R:65
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  39. Error: can add a row labels to single horizontal heatmap (@test_labels.R#77) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "row_labels_continuous_horizontal") at testthat/test_labels.R:77
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  40. Error: can add a row labels to single vertical heatmap (@test_labels.R#84) -
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "row_labels_continuous_vertical", "vertical") at testthat/test_labels.R:84
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  41. Error: can add a column labels to single horizontal heatmap (@test_labels.R#89) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "col_labels_continuous_horizontal") at testthat/test_labels.R:89
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  42. Error: can add a column labels to single vertical heatmap (@test_labels.R#96) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "col_labels_continuous_vertical", "vertical") at testthat/test_labels.R:96
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  43. Error: can add continuous row labels with custom ticktext of same length (@test_labels.R#104) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "row_labels_custom_ticktext1_horizontal") at testthat/test_labels.R:104
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  44. Error: can add continuous row labels with custom ticktext selection (@test_labels.R#110) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "row_labels_custom_ticktext2_horizontal") at testthat/test_labels.R:110
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  45. Error: can add continuous row labels with custom tickvals selection (@test_labels.R#124) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "row_labels_custom_tickvals_horizontal") at testthat/test_labels.R:124
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  46. Error: can add continuous row labels with custom tickvals and ticktext (@test_labels.R#137) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "row_labels_custom_ticktext_tickvals_horizontal") at testthat/test_labels.R:137
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  47. Error: can add a main heatmap horizontally (@test_main_heatmap.R#7) --------
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "two_main_heatmap_horizontal") at testthat/test_main_heatmap.R:7
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  48. Error: can add a main heatmap vertically (@test_main_heatmap.R#13) ---------
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "two_main_heatmap_vertical", "vertical") at testthat/test_main_heatmap.R:13
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  49. Error: main_heatmap returns IHeatmap object (@test_main_heatmap.R#18) ------
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "main_heatmap") at testthat/test_main_heatmap.R:18
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  50. Error: orientation = 'vertical' returns IHeatmapVertical (@test_main_heatmap.R#23) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "main_heatmap_vertical", "vertical") at testthat/test_main_heatmap.R:23
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  51. Error: can add a row plot to single horizontal heatmap (@test_row_and_col_plot.R#5) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "row_plot_horizontal") at testthat/test_row_and_col_plot.R:5
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  52. Error: can add a row plot to single vertical heatmap (@test_row_and_col_plot.R#11) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "row_plot_vertical", "vertical") at testthat/test_row_and_col_plot.R:11
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  53. Error: can add a column plot to single horizontal heatmap (@test_row_and_col_plot.R#16) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "col_plot_horizontal") at testthat/test_row_and_col_plot.R:16
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  54. Error: can add a column plot to single vertical heatmap (@test_row_and_col_plot.R#22) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "col_plot_vertical", "vertical") at testthat/test_row_and_col_plot.R:22
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  55. Error: can add a row scatter plot to single horizontal heatmap (@test_row_and_col_plot.R#28) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "row_scatter_plot_horizontal") at testthat/test_row_and_col_plot.R:28
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  56. Error: can add a row scatter plot to single vertical heatmap (@test_row_and_col_plot.R#34) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "row_scatter_plot_vertical", "vertical") at testthat/test_row_and_col_plot.R:34
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  57. Error: can add a column scatter plot to single horizontal heatmap (@test_row_and_col_plot.R#40) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "col_scatter_plot_horizontal") at testthat/test_row_and_col_plot.R:40
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  58. Error: can add a column scatter plot to single vertical heatmap (@test_row_and_col_plot.R#46) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "col_scatter_plot_vertical", "vertical") at testthat/test_row_and_col_plot.R:46
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  59. Error: can add a row signal to single horizontal heatmap (@test_signal.R#5) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "row_signal_horizontal") at testthat/test_signal.R:5
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  60. Error: can add a row signal to single vertical heatmap (@test_signal.R#11) -
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "row_signal_vertical", "vertical") at testthat/test_signal.R:11
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  61. Error: can add a column signal to single horizontal heatmap (@test_signal.R#16) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "col_signal_horizontal") at testthat/test_signal.R:16
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  62. Error: can add a column signal to single vertical heatmap (@test_signal.R#22) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "col_signal_vertical", "vertical") at testthat/test_signal.R:22
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  63. Error: can add a row summary to single horizontal heatmap (@test_summary.R#4) 
  attempt to extract less than one element
  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(.)
  11: .local(p, ...)
  12: get_heatmap(p, xname = xname, yname = yname, side = side)
  13: get_heatmap(p, xname = xname, yname = yname, side = side)
  14: .local(p, ...)
  15: plots(p)[[candidates[which(xcand == right)]]]
  16: plots(p)[[candidates[which(xcand == right)]]]
  17: getListElement(x, i, ...)
  18: getListElement(x, i, ...)
  19: getListElement(x@listData, i, exact = exact)
  20: getListElement(x@listData, i, exact = exact)
  21: normalizeDoubleBracketSubscript(i, x, exact = exact, allow.NA = TRUE, allow.nomatch = TRUE)
  22: stop("attempt to extract less than one element")
  
  64. Error: can add a row summary to single vertical heatmap (@test_summary.R#9) 
  attempt to extract less than one element
  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(.)
  11: .local(p, ...)
  12: get_heatmap(p, xname = xname, yname = yname, side = side)
  13: get_heatmap(p, xname = xname, yname = yname, side = side)
  14: .local(p, ...)
  15: plots(p)[[candidates[which(ycand == yname)]]]
  16: plots(p)[[candidates[which(ycand == yname)]]]
  17: getListElement(x, i, ...)
  18: getListElement(x, i, ...)
  19: getListElement(x@listData, i, exact = exact)
  20: getListElement(x@listData, i, exact = exact)
  21: normalizeDoubleBracketSubscript(i, x, exact = exact, allow.NA = TRUE, allow.nomatch = TRUE)
  22: stop("attempt to extract less than one element")
  
  65. Error: can add a column summary to single horizontal heatmap (@test_summary.R#15) 
  attempt to extract less than one element
  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(.)
  11: .local(p, ...)
  12: get_heatmap(p, xname = xname, yname = yname, side = side)
  13: get_heatmap(p, xname = xname, yname = yname, side = side)
  14: .local(p, ...)
  15: plots(p)[[candidates[which(xcand == xname)]]]
  16: plots(p)[[candidates[which(xcand == xname)]]]
  17: getListElement(x, i, ...)
  18: getListElement(x, i, ...)
  19: getListElement(x@listData, i, exact = exact)
  20: getListElement(x@listData, i, exact = exact)
  21: normalizeDoubleBracketSubscript(i, x, exact = exact, allow.NA = TRUE, allow.nomatch = TRUE)
  22: stop("attempt to extract less than one element")
  
  66. Error: can add a column summary to single vertical heatmap (@test_summary.R#20) 
  attempt to extract less than one element
  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(.)
  11: .local(p, ...)
  12: get_heatmap(p, xname = xname, yname = yname, side = side)
  13: get_heatmap(p, xname = xname, yname = yname, side = side)
  14: .local(p, ...)
  15: plots(p)[[candidates[which(ycand == top)]]]
  16: plots(p)[[candidates[which(ycand == top)]]]
  17: getListElement(x, i, ...)
  18: getListElement(x, i, ...)
  19: getListElement(x@listData, i, exact = exact)
  20: getListElement(x@listData, i, exact = exact)
  21: normalizeDoubleBracketSubscript(i, x, exact = exact, allow.NA = TRUE, allow.nomatch = TRUE)
  22: stop("attempt to extract less than one element")
  
  67. Error: can add a row summary with groups to single horizontal heatmap (@test_summary.R#27) 
  attempt to extract less than one element
  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)
  11: .local(p, ...)
  12: get_heatmap(p, xname = xname, yname = yname, side = side)
  13: get_heatmap(p, xname = xname, yname = yname, side = side)
  14: .local(p, ...)
  15: plots(p)[[candidates[which(xcand == right)]]]
  16: plots(p)[[candidates[which(xcand == right)]]]
  17: getListElement(x, i, ...)
  18: getListElement(x, i, ...)
  19: getListElement(x@listData, i, exact = exact)
  20: getListElement(x@listData, i, exact = exact)
  21: normalizeDoubleBracketSubscript(i, x, exact = exact, allow.NA = TRUE, allow.nomatch = TRUE)
  22: stop("attempt to extract less than one element")
  
  68. Error: can add a row summary with groups to single vertical heatmap (@test_summary.R#32) 
  attempt to extract less than one element
  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)
  11: .local(p, ...)
  12: get_heatmap(p, xname = xname, yname = yname, side = side)
  13: get_heatmap(p, xname = xname, yname = yname, side = side)
  14: .local(p, ...)
  15: plots(p)[[candidates[which(ycand == yname)]]]
  16: plots(p)[[candidates[which(ycand == yname)]]]
  17: getListElement(x, i, ...)
  18: getListElement(x, i, ...)
  19: getListElement(x@listData, i, exact = exact)
  20: getListElement(x@listData, i, exact = exact)
  21: normalizeDoubleBracketSubscript(i, x, exact = exact, allow.NA = TRUE, allow.nomatch = TRUE)
  22: stop("attempt to extract less than one element")
  
  69. Error: can add a column summary with groups to single horizontal heatmap (@test_summary.R#38) 
  attempt to extract less than one element
  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)
  11: .local(p, ...)
  12: get_heatmap(p, xname = xname, yname = yname, side = side)
  13: get_heatmap(p, xname = xname, yname = yname, side = side)
  14: .local(p, ...)
  15: plots(p)[[candidates[which(xcand == xname)]]]
  16: plots(p)[[candidates[which(xcand == xname)]]]
  17: getListElement(x, i, ...)
  18: getListElement(x, i, ...)
  19: getListElement(x@listData, i, exact = exact)
  20: getListElement(x@listData, i, exact = exact)
  21: normalizeDoubleBracketSubscript(i, x, exact = exact, allow.NA = TRUE, allow.nomatch = TRUE)
  22: stop("attempt to extract less than one element")
  
  70. Error: can add a column summary with groups to single vertical heatmap (@test_summary.R#43) 
  attempt to extract less than one element
  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)
  11: .local(p, ...)
  12: get_heatmap(p, xname = xname, yname = yname, side = side)
  13: get_heatmap(p, xname = xname, yname = yname, side = side)
  14: .local(p, ...)
  15: plots(p)[[candidates[which(ycand == top)]]]
  16: plots(p)[[candidates[which(ycand == top)]]]
  17: getListElement(x, i, ...)
  18: getListElement(x, i, ...)
  19: getListElement(x@listData, i, exact = exact)
  20: getListElement(x@listData, i, exact = exact)
  21: normalizeDoubleBracketSubscript(i, x, exact = exact, allow.NA = TRUE, allow.nomatch = TRUE)
  22: stop("attempt to extract less than one element")
  
  71. Error: can add a row title to single horizontal heatmap (@test_titles.R#5) -
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "row_title_horizontal") at testthat/test_titles.R:5
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  72. Error: can add a row title to single vertical heatmap (@test_titles.R#11) --
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "row_title_vertical", "vertical") at testthat/test_titles.R:11
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  73. Error: can add a column title to single horizontal heatmap (@test_titles.R#16) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "col_title_horizontal") at testthat/test_titles.R:16
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  74. Error: can add a column title to single vertical heatmap (@test_titles.R#22) 
  unable to find an inherited method for function 'make_trace' for signature '"IheatmapPlot"'
  1: expect_iheatmap(test_plot, "col_title_vertical", "vertical") at testthat/test_titles.R:22
  2: test_plot %>% to_widget() at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/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(.)
  11: to_widget(.)
  12: .local(p, ...)
  13: to_plotly_list(p)
  14: unname(lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid))
  15: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  16: lapply(p@plots, make_trace, xaxes = xaxes(p), yaxes = yaxes(p), colorbars = p@colorbars, 
         colorbar_grid = p@colorbar_grid)
  17: lapply(as.list(X), FUN = FUN, ...)
  18: lapply(as.list(X), FUN = FUN, ...)
  19: FUN(X[[i]], ...)
  20: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list(structure("IheatmapPlot", package = "iheatmapr")), structure(function (x, 
         ...) 
     standardGeneric("make_trace"), generic = structure("make_trace", package = "iheatmapr"), package = "iheatmapr", group = list(), valueClass = character(0), signature = "x", default = `\001NULL\001`, skeleton = (function (x, 
         ...) 
     stop("invalid call in method dispatch to 'make_trace' (no default method)", domain = NA))(x, 
         ...), class = structure("standardGeneric", package = "methods")), <environment>)
  21: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  testthat results ================================================================
  OK: 48 SKIPPED: 0 FAILED: 74
  1. Error: can add a row barplot to single horizontal heatmap (@test_barplot.R#5) 
  2. Error: can add a row barplot to single vertical heatmap (@test_barplot.R#11) 
  3. Error: can add a column barplot to single horizontal heatmap (@test_barplot.R#16) 
  4. Error: can add a column barplot to single vertical heatmap (@test_barplot.R#22) 
  5. Error: can add row clustering with dendrogram to single horizontal heatmap (@test_clustering.R#7) 
  6. Error: can add row clustering with dendrogram single vertical heatmap (@test_clustering.R#12) 
  7. Error: can add col clustering with dendrogram to single horizontal heatmap (@test_clustering.R#19) 
  8. Error: can add col clustering with dendrogram  to single vertical heatmap (@test_clustering.R#24) 
  9. Error: can add row clustering with dendrogram and k to single horizontal 
            heatmap (@test_clustering.R#34) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted