From 96c397e8273f8c4cb60cd9fb32085588b539f4a9 Mon Sep 17 00:00:00 2001
From: Andreas Gammelgaard Damsbo <andreas@gdamsbo.dk>
Date: Wed, 5 Mar 2025 21:18:26 +0100
Subject: [PATCH] ...

---
 R/data_plots.R | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/R/data_plots.R b/R/data_plots.R
index d4d0109..4dc44d8 100644
--- a/R/data_plots.R
+++ b/R/data_plots.R
@@ -754,6 +754,7 @@ default_theme <- function() {
 #'
 #' @param color.group
 #' @param colors
+#' @param ... passed to sankey_ready()
 #'
 #' @returns ggplot2 object
 #' @export
@@ -762,8 +763,8 @@ default_theme <- function() {
 #' ds <- data.frame(g = sample(LETTERS[1:2], 100, TRUE), first = REDCapCAST::as_factor(sample(letters[1:4], 100, TRUE)), last = REDCapCAST::as_factor(sample(letters[1:4], 100, TRUE)))
 #' ds |> plot_sankey_single("first", "last")
 #' ds |> plot_sankey_single("first", "last", color.group = "y")
-plot_sankey_single <- function(data,x,y, color.group = "x", colors = NULL){
-  data <- data |> sankey_ready(x = x, y = y)
+plot_sankey_single <- function(data,x,y, color.group = "x", colors = NULL,...){
+  data <- data |> sankey_ready(x = x, y = y,...)
 # browser()
   library(ggalluvial)