From ebc54d28d6cb00e801e20799359eb010d6699995 Mon Sep 17 00:00:00 2001
From: Markus Riedl <markus.riedl@boku.ac.at>
Date: Thu, 15 Jun 2023 15:56:14 +0200
Subject: [PATCH] Fix typo for UpSet left annotation

---
 R/Upset.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/Upset.R b/R/Upset.R
index 0bfd600..0200dd3 100644
--- a/R/Upset.R
+++ b/R/Upset.R
@@ -1458,7 +1458,7 @@ UpSet = function(m,
 		}
 		la = left_annotation
 		if(length(la) == 1) {
-			ta_call = substitute(right_annotation)
+			ta_call = substitute(left_annotation)
 			ta_call = as.list(ta_call)
 			if(as.character(ta_call[[1]]) == "upset_left_annotation") {
 				if(!"gp" %in% names(as.list(ta_call))) {