gnoblet/visualizeR
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix typo in scale_color_visualizer_continuous guide argument

Browse source
This commit is contained in:
gnoblet 2025-07-02 13:41:22 +02:00
parent 1584bdca30
commit 186fce48da
1 changed files with 21 additions and 25 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

46
R/scale.R
View file

@ -9,12 +9,11 @@
#' #'
#' @export #' @export
scale_color_visualizer_discrete <- function( scale_color_visualizer_discrete <- function(
palette = "cat_5_main", palette = "cat_5_main",
direction = 1, direction = 1,
reverse_guide = TRUE, reverse_guide = TRUE,
title_position = NULL, title_position = NULL,
... ...) {
) {
if (!(is.null(palette))) { if (!(is.null(palette))) {
ggplot2::discrete_scale( ggplot2::discrete_scale(
"color", "color",
@ -47,12 +46,11 @@ scale_color_visualizer_discrete <- function(
#' #'
#' @export #' @export
scale_fill_visualizer_discrete <- function( scale_fill_visualizer_discrete <- function(
palette = "cat_5_main", palette = "cat_5_main",
direction = 1, direction = 1,
reverse_guide = TRUE, reverse_guide = TRUE,
title_position = NULL, title_position = NULL,
... ...) {
) {
if (!(is.null(palette))) { if (!(is.null(palette))) {
ggplot2::discrete_scale( ggplot2::discrete_scale(
"fill", "fill",
@ -85,12 +83,11 @@ scale_fill_visualizer_discrete <- function(
#' #'
#' @export #' @export
scale_fill_visualizer_continuous <- function( scale_fill_visualizer_continuous <- function(
palette = "seq_5_main", palette = "seq_5_main",
direction = 1, direction = 1,
reverse_guide = TRUE, reverse_guide = TRUE,
title_position = NULL, title_position = NULL,
... ...) {
) {
if (!(is.null(palette))) { if (!(is.null(palette))) {
pal <- palette_gen(palette, "continuous", direction) pal <- palette_gen(palette, "continuous", direction)
@ -124,12 +121,11 @@ scale_fill_visualizer_continuous <- function(
#' #'
#' @export #' @export
scale_color_visualizer_continuous <- function( scale_color_visualizer_continuous <- function(
palette = "seq_5_main", palette = "seq_5_main",
direction = 1, direction = 1,
reverse_guide = TRUE, reverse_guide = TRUE,
title_position = NULL, title_position = NULL,
... ...) {
) {
if (!(is.null(palette))) { if (!(is.null(palette))) {
pal <- palette_gen(palette, "continuous", direction) pal <- palette_gen(palette, "continuous", direction)
@ -154,7 +150,7 @@ scale_color_visualizer_continuous <- function(
# ticks.colour = "#F1F3F5", # ticks.colour = "#F1F3F5",
reverse = reverse_guide reverse = reverse_guide
), ),
.... ...
) )
} }
} }