From ae1cdc317e47a20d456aadcc631b2205c052e107 Mon Sep 17 00:00:00 2001
From: TimHenrichsen <tim.henrichsen@santannapisa.it>
Date: Thu, 25 Jan 2024 16:03:20 +0000
Subject: [PATCH] Bugfix in dna_barplot.

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

diff --git a/rDNA/rDNA/R/rDNA.R b/rDNA/rDNA/R/rDNA.R
index c29a6ba3..167626f7 100644
--- a/rDNA/rDNA/R/rDNA.R
+++ b/rDNA/rDNA/R/rDNA.R
@@ -2229,7 +2229,7 @@ autoplot.dna_barplot <- function(object,
   if (binary) { # Bars for the binary case
     g <- g + ggplot2::geom_bar(ggplot2::aes(fill = .data[["color"]],
                                                    color = .data[["text_color"]]),
-                               stat = .data[["identity"]],
+                               stat = "identity",
                                width = barWidth,
                                show.legend = FALSE)
     # For the integer case with positive and negative values