From 120448783650150db31ddea79d88dfe6303b78a3 Mon Sep 17 00:00:00 2001
From: Andreas Gammelgaard Damsbo <andreas@gdamsbo.dk>
Date: Mon, 5 May 2025 14:44:05 +0200
Subject: [PATCH] prepared for auto ellipsis or circle

---
 R/plot_euler.R | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/R/plot_euler.R b/R/plot_euler.R
index 36c8f91..4dff9de 100644
--- a/R/plot_euler.R
+++ b/R/plot_euler.R
@@ -109,6 +109,12 @@ plot_euler <- function(data, pri, sec, ter = NULL, seed = 2103) {
 #' ) |> plot_euler_single()
 #' mtcars[c("vs", "am")] |> plot_euler_single()
 plot_euler_single <- function(data) {
+  # if (any("categorical" %in% data_type(data))){
+  #   shape <- "ellipse"
+  # } else {
+  #   shape <- "circle"
+  # }
+
   data |>
     ggeulerr(shape = "circle") +
     ggplot2::theme_void() +