Making bw argument in stat_density case insensitive. Fixes #5941 (#6041)

tidyverse · Aug 15, 2024 · c4c826a · c4c826a
1 parent c706a01
commit c4c826a
Showing 1 changed file with 1 addition and 0 deletions.
diff --git 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),