Rework ggdist::ramp_colours for version namespacing issues

Ref #397
tidyverts · Mar 2, 2024 · 58b4cc2 · 58b4cc2
1 parent 6483166
commit 58b4cc2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/plot.R b/R/plot.R
@@ -319,7 +319,7 @@ build_fbl_layer <- function(object, data = NULL, level = c(80, 95),
     # Apply ramped fill
     if (!is.null(data[["fill_ramp"]])) {
       if (utils::packageVersion("ggdist") > "3.3.1") {
-        data$fill <- ggdist::ramp_colours(data$fill, data$fill_ramp)
+        data$fill <- get("ramp_colours", asNamespace("ggdist"), mode = "function")(data$fill, data$fill_ramp)
       } else {
         data$fill <- mapply(function(color, amount){
           (scales::seq_gradient_pal(attr(amount, "from") %||% "white", color))(amount %||% NA)