From 73d60bd9e64490cf8801f3db48772861d6b30842 Mon Sep 17 00:00:00 2001 From: Lukas Wallrich Date: Wed, 17 Apr 2024 22:20:23 +0100 Subject: [PATCH] Add shinyWidgets dependency for picker --- DESCRIPTION | 1 + R/create_app.R | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index d00705a..cc880b4 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -38,6 +38,7 @@ Imports: shinycssloaders, shinyjs, shinythemes, + shinyWidgets, stringr, tibble, tidyr, diff --git a/R/create_app.R b/R/create_app.R index 9c3f5b5..5bddd57 100644 --- a/R/create_app.R +++ b/R/create_app.R @@ -75,7 +75,7 @@ create_about <- function(dataset_name, date = format(Sys.Date(), "%d %b %Y"), ci #' @param options List of more detailed options to customise your app. They all have sensible defaults and are thus rarely needed. #' - `max_forest_plot_rows` Numeric. What is the maximum number of effects for which a forest plot should be displayed? Defaults to 100. If more effect sizes are selected, a message is shown instead. #' - `shiny_theme` Character. One of the shinythemes that style the app. Defaults to "yeti", see `?shinythemes::shinythemes` for all options. -#' - `selection_list_threshold` Numeric. From how many filter levels should a selection box be shown instead of check boxes? Defaults to 11. +#' - `selection_list_threshold` Numeric. From how many filter levels should a selection box be shown instead of check boxes? Defaults to 6. #' @inheritParams create_about #' @inheritDotParams create_about #' @@ -94,7 +94,7 @@ generate_shiny <- function(dataset, dataset_name, eff_size_type_label = NA, save_to_folder = NA, launch_app = is.na(save_to_folder), ..., options = list()) { - defaults <- list(max_forest_plot_rows = 200, shiny_theme = "yeti", selection_list_threshold = 11) + defaults <- list(max_forest_plot_rows = 200, shiny_theme = "yeti", selection_list_threshold = 6) opts <- modifyList(defaults, options) # Evaluate so that it is TRUE when save_to_folder is NA initially