use data_frame0

R/anno-.R

@@ -100,9 +100,11 @@ methods::setClass(
     )
 )
 
+#' Show `anno` object
 #' @param object A `anno` object.
+#' @importFrom methods show
 #' @export
-#' @rdname anno
+#' @keywords internal
 methods::setMethod("show", "anno", function(object) {
     print(sprintf("A %s object", fclass(object)))
     invisible(object)

R/anno-build.R

@@ -49,7 +49,7 @@ anno_build_data <- function(data, panels, index, position) {
         data <- as_tibble0(data, rownames = ".row_names")
         data$.row_index <- seq_len(nrow(data))
     }
-    coords <- tibble0(.panel = panels[index], .index = index)
+    coords <- data_frame0(.panel = panels[index], .index = index)
     coords[[paste0(".", to_coord_axis(position))]] <- seq_along(index)
     merge(data, coords,
         by.x = ".row_index", by.y = ".index",

R/plot-build.R

@@ -370,12 +370,12 @@ ggheat_default_scale <- function(scale_name, panels, index, labels, nudge,
 
 ggheat_build_data <- function(matrix, row_panels, row_index,
                               column_panels, column_index) {
-    row_coords <- tibble0(
+    row_coords <- data_frame0(
         .row_panel = row_panels[row_index],
         .row_index = row_index,
         .y = seq_along(row_index)
     )
-    column_coords <- tibble0(
+    column_coords <- data_frame0(
         .column_panel = column_panels[column_index],
         .column_index = column_index,
         .x = seq_along(column_index)

R/utils.R

@@ -62,10 +62,10 @@ data_frame0 <- function(...) {
     quickdf(list(...))
 }
 
-quickdf <- function(l) {
-    class(l) <- "data.frame"
-    attr(l, "row.names") <- .set_row_names(length(l[[1]]))
-    l
+quickdf <- function(x) {
+    class(x) <- "data.frame"
+    attr(x, "row.names") <- .set_row_names(length(.subset2(x, 1L)))
+    x
 }
 
 as_tibble0 <- function(data, ...) {