Bugfix in dna_barplot.

leifeld · Jan 25, 2024 · ae1cdc3 · ae1cdc3
1 parent 8652e7f
commit ae1cdc3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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