add method for S4 matrix

Yunuuuu · Jan 1, 2025 · a65b355 · a65b355
1 parent b7a9f47
commit a65b355
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 0 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -117,6 +117,8 @@ S3method(element_vec_fields,element_text)
 S3method(element_vec_fields,ggalign_element_polygon)
 S3method(format,ggalign_area)
 S3method(fortify_data_frame,"NULL")
+S3method(fortify_data_frame,DelayedMatrix)
+S3method(fortify_data_frame,Matrix)
 S3method(fortify_data_frame,character)
 S3method(fortify_data_frame,complex)
 S3method(fortify_data_frame,default)

diff --git a/R/fortify-data_frame.R b/R/fortify-data_frame.R
@@ -95,3 +95,13 @@ fortify_data_frame.matrix <- function(data, ...) {
     if (!is.null(col_nms)) data$.column_names <- col_nms[data$.column_index]
     data
 }
+
+#' @export
+fortify_data_frame.DelayedMatrix <- function(data, ...) {
+    fortify_data_frame(as.matrix(data))
+}
+
+#' @export
+fortify_data_frame.Matrix <- function(data, ...) {
+    fortify_data_frame(as.matrix(data))
+}