From f7636c94300318aecb3dfeae2c630967db41525f Mon Sep 17 00:00:00 2001
From: Sierra Johnson <sunnyrafter@gmail.com>
Date: Thu, 15 Aug 2024 12:17:33 -0700
Subject: [PATCH] Making bw argument in stat_density case insensitive. Fixes
 #5941

---
 R/stat-density.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/R/stat-density.R b/R/stat-density.R
index 27cafd4b6d..add18570fc 100644
--- a/R/stat-density.R
+++ b/R/stat-density.R
@@ -242,6 +242,7 @@ reflect_density <- function(dens, bounds, from, to) {
 precompute_bw = function(x, bw = "nrd0") {
   bw <- bw[1]
   if (is.character(bw)) {
+    bw <- to_lower_ascii(bw)
     bw <- arg_match0(bw, c("nrd0", "nrd", "ucv", "bcv", "sj", "sj-ste", "sj-dpi"))
     bw <- switch(
       to_lower_ascii(bw),