fix error when breaks not exist

Yunuuuu · Yunuuuu · commit d0274bf7a4e3 · 2025-01-09T08:44:26.000+08:00
diff --git a/R/layout-heatmap-oncoplot.R b/R/layout-heatmap-oncoplot.R
@@ -124,7 +124,7 @@ ggoncoplot.default <- function(data = NULL, mapping = aes(), ...,
         value_list <- strsplit(data$value,
             split = "\\s*[;:,|]\\s*", perl = TRUE
         )
-        lvls <- ggalign_attr(data, ".__ggalign_oncoplot_breaks__")
+        lvls <- .subset2(ggalign_attr_get(data), ".__ggalign_oncoplot_breaks__")
         data <- vec_rep_each(data, list_sizes(value_list))
         value <- unlist(value_list, recursive = FALSE, use.names = FALSE)
         if (!is.null(lvls)) value <- factor(value, levels = lvls)

Original file line number	Diff line number	Diff line change
`@@ -124,7 +124,7 @@ ggoncoplot.default <- function(data = NULL, mapping = aes(), ...,`
`124`	`124`	`value_list <- strsplit(data$value,`
`125`	`125`	`split = "\\s[;:,\|]\\s", perl = TRUE`
`126`	`126`	`)`
`127`		`- lvls <- ggalign_attr(data, ".__ggalign_oncoplot_breaks__")`
	`127`	`+ lvls <- .subset2(ggalign_attr_get(data), ".__ggalign_oncoplot_breaks__")`
`128`	`128`	`data <- vec_rep_each(data, list_sizes(value_list))`
`129`	`129`	`value <- unlist(value_list, recursive = FALSE, use.names = FALSE)`
`130`	`130`	`if (!is.null(lvls)) value <- factor(value, levels = lvls)`