From e3ab9b1d22ca3ce74ddaee5c12b248450b638878 Mon Sep 17 00:00:00 2001
From: Achim Zeileis <Achim.Zeileis@uibk.ac.at>
Date: Wed, 19 Mar 2025 21:48:14 +0100
Subject: [PATCH] only map xaxt='s' to 'l' but allow all other xaxt

---
 R/type_barplot.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/type_barplot.R b/R/type_barplot.R
index bd531148..b3314d33 100644
--- a/R/type_barplot.R
+++ b/R/type_barplot.R
@@ -57,7 +57,7 @@ type_barplot = function(width = 5/6, beside = FALSE, FUN = NULL, xlevels = NULL,
 
 #' @importFrom stats aggregate
 data_barplot = function(width = 5/6, beside = FALSE, FUN = NULL, xlevels = NULL, drop.zeros = FALSE) {
-    fun = function(datapoints, col, bg, lty, lwd, palette, xlab = NULL, ylab = NULL, xlim = NULL, ylim = ylim, yaxt, axes = TRUE, facet_by, ...) {
+    fun = function(datapoints, col, bg, lty, lwd, palette, xlab = NULL, ylab = NULL, xlim = NULL, ylim = NULL, xaxt = NULL, yaxt = NULL, axes = TRUE, facet_by = NULL, ...) {
 
         ## tabulate/aggregate datapoints
         if (is.null(datapoints$y)) {
@@ -149,7 +149,7 @@ data_barplot = function(width = 5/6, beside = FALSE, FUN = NULL, xlevels = NULL,
           xlabs = xlabs, 
           frame.plot = FALSE,
           xaxs = "r",
-          xaxt = "l",
+          xaxt = if (xaxt == "s") "l" else xaxt,
           yaxs = "i",
           col = col,
           bg = bg