diff --git a/R/plot_euler.R b/R/plot_euler.R index 4dff9de..10156b7 100644 --- a/R/plot_euler.R +++ b/R/plot_euler.R @@ -87,10 +87,11 @@ plot_euler <- function(data, pri, sec, ter = NULL, seed = 2103) { out <- lapply(ds, \(.x){ .x[c(pri, sec)] |> as.data.frame() |> + na.omit() |> plot_euler_single() }) -# names(out) + # names(out) wrap_plot_list(out) # patchwork::wrap_plots(out, guides = "collect") }