Merge pull request #4 from pepijn-devries/work-in-progress

More fixes to pass CRAN checks

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: ggsankeyfier
 Type: Package
 Title: Create Sankey and Alluvial Diagrams Using 'ggplot2'
-Version: 0.1.6
+Version: 0.1.7
 Date: 2024-02-29
 Authors@R: c(person("Pepijn", "de Vries", role = c("aut", "cre", "dtc"),
     email = "pepijn.devries@outlook.com",
@@ -28,7 +28,7 @@ Depends:
     R (>= 4.1.0)
 Imports:
     dplyr,
-    ggplot2 (>= 3.5.0),
+    ggplot2 (>= 3.4.4),
     grid (>= 4.1.0),
     gridBezier,
     methods,

NEWS.md

@@ -1,4 +1,4 @@
-ggsankeyfier v0.1.6 (Release date: 2024-02-29)
+ggsankeyfier v0.1.7 (Release date: 2024-02-29)
 -------------
 
   * Initial release

R/scale_waist.r

@@ -34,28 +34,28 @@
 scale_waist_continuous <- function(..., range = c(0, 1)) {
   rlang::warn(c("Legend is not really suitable for a continuous `waist` scale",
                 i = "Apply a binned scale instead"))
-  ggplot2::continuous_scale("waist", palette = scales::rescale_pal(range), ...)
+  ggplot2::continuous_scale("waist", NULL, palette = scales::rescale_pal(range), ...)
 }
 
 #' @name scale_waist_datetime
 #' @rdname scale_waist
 #' @export
 scale_waist_datetime <- function(..., range = c(0, 1)) {
-  ggplot2::datetime_scale("waist", palette = scales::rescale_pal(range), ...)
+  ggplot2::datetime_scale("waist", NULL, palette = scales::rescale_pal(range), ...)
 }
 
 #' @name scale_waist_binned
 #' @rdname scale_waist
 #' @export
 scale_waist_binned <- function(..., range = c(0, 1)) {
-  ggplot2::binned_scale("waist", palette = scales::rescale_pal(range), ...)
+  ggplot2::binned_scale("waist", NULL, palette = scales::rescale_pal(range), ...)
 }
 
 #' @name scale_waist_discrete
 #' @rdname scale_waist
 #' @export
 scale_waist_discrete <- function(..., range = c(0, 1)) {
-  ggplot2::discrete_scale("waist", palette = function(value) {
+  ggplot2::discrete_scale("waist", NULL, palette = function(value) {
     seq(range[[1]], range[[2]], length.out = value)
   }, ...)
 }
@@ -85,7 +85,7 @@ scale_waist_manual <- function (..., values = NULL, breaks = ggplot2::waiver())
     }
     values
   }
-  ggplot2::discrete_scale("waist", palette = pal,
+  ggplot2::discrete_scale("waist", NULL, palette = pal,
                           breaks = breaks, ...)
 }