andreas/FreesearchR
1
0
Fork 0
mirror of https://github.com/agdamsbo/FreesearchR.git synced 2026-06-19 12:37:30 +02:00
Code Issues Projects Releases Packages Wiki Activity

feat: default to 5 preview colors

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2026-04-10 21:04:20 +02:00
commit b2745f5628
No known key found for this signature in database
1 changed files with 17 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

22
R/data_plots.R
View file

@ -38,7 +38,7 @@ data_visuals_ui <- function(id, tab_title = "Plots", ...) {
inputId = ns("act_plot"), inputId = ns("act_plot"),
label = i18n$t("Plot"), label = i18n$t("Plot"),
width = "100%", width = "100%",
icon = phosphoricons::ph("paint-brush"), icon = phosphoricons::ph("paint-brush",weight = "bold"),
# icon = shiny::icon("palette"), # icon = shiny::icon("palette"),
disabled = FALSE disabled = FALSE
), ),
@ -243,7 +243,8 @@ data_visuals_server <- function(id,
colorSelectInput( colorSelectInput(
inputId = ns("color_palette"), inputId = ns("color_palette"),
label = i18n$t("Choose color palette"), label = i18n$t("Choose color palette"),
choices = palettes choices = palettes,
previews = 5
) )
}) })
@ -721,6 +722,7 @@ wrap_plot_list <- function(data,
guides = "collect", guides = "collect",
axes = "collect", axes = "collect",
axis_titles = "collect", axis_titles = "collect",
y.axis.percentage = FALSE,
...) { ...) {
if (ggplot2::is_ggplot(data[[1]])) { if (ggplot2::is_ggplot(data[[1]])) {
if (length(data) > 1) { if (length(data) > 1) {
@ -734,7 +736,7 @@ wrap_plot_list <- function(data,
.x .x
} }
})() |> })() |>
align_axes() |> align_axes(percentage=y.axis.percentage) |>
patchwork::wrap_plots(guides = guides, patchwork::wrap_plots(guides = guides,
axes = axes, axes = axes,
axis_titles = axis_titles, axis_titles = axis_titles,
@ -779,7 +781,8 @@ wrap_plot_list <- function(data,
#' #'
align_axes <- function(..., align_axes <- function(...,
x.axis = TRUE, x.axis = TRUE,
y.axis = TRUE) { y.axis = TRUE,
percentage = FALSE) {
# https://stackoverflow.com/questions/62818776/get-axis-limits-from-ggplot-object # https://stackoverflow.com/questions/62818776/get-axis-limits-from-ggplot-object
# https://github.com/thomasp85/patchwork/blob/main/R/plot_multipage.R#L150 # https://github.com/thomasp85/patchwork/blob/main/R/plot_multipage.R#L150
if (ggplot2::is_ggplot(..1)) { if (ggplot2::is_ggplot(..1)) {
@ -797,7 +800,7 @@ align_axes <- function(...,
xr <- clean_common_axis(p, "x") xr <- clean_common_axis(p, "x")
suppressWarnings({ suppressWarnings({
purrr::map(p, \(.x) { p_out <- purrr::map(p, \(.x) {
out <- .x out <- .x
if (isTRUE(x.axis)) { if (isTRUE(x.axis)) {
out <- out + ggplot2::xlim(xr) out <- out + ggplot2::xlim(xr)
@ -808,6 +811,15 @@ align_axes <- function(...,
out out
}) })
}) })
if(isTRUE(percentage)){
lapply(p_out,\(.x){
.x+
ggplot2::scale_y_continuous(labels = scales::percent)
})
} else {
p_out
}
} }
#' Extract and clean axis ranges #' Extract and clean axis ranges