diff --git a/NAMESPACE b/NAMESPACE index 32d2ffe..563f642 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -1,5 +1,6 @@ # Generated by roxygen2: do not edit by hand +export(app_fn) export(classify_vars) export(count_unique) export(extract_last_tick) @@ -17,8 +18,10 @@ export(load_bs_table) export(make_experiment) export(make_plot) export(process_bs_data) +export(server_fn) export(tx_col) export(tx_name) +export(ui_fn) import(dplyr) import(ggplot2) import(janitor) diff --git a/R/app.R b/R/app.R index 2747daa..847a5b0 100644 --- a/R/app.R +++ b/R/app.R @@ -8,6 +8,9 @@ #' @return A [`shinyApp`][shiny::shinyApp] object. #' @examples #' # ADD_EXAMPLES_HERE +#' +#' @export +#' app_fn <- function(...) { shiny_file_size <- getOption("analyzeBehaviorspace.maxFileSize", default = 300) options(shiny.maxRequestSize = shiny_file_size * 1024^2) diff --git a/R/server.R b/R/server.R index d61bded..1229685 100644 --- a/R/server.R +++ b/R/server.R @@ -36,6 +36,8 @@ make_named_list <- function(x, as_list = TRUE) { #' shinyApp(ui, server) #' } #' +#' @export +#' server_fn <- function() { shiny::shinyServer(function(input, output, session) { diff --git a/R/ui.R b/R/ui.R index cb14735..c1c3a3a 100644 --- a/R/ui.R +++ b/R/ui.R @@ -29,6 +29,8 @@ #' shinyApp(ui, server) #' } #' +#' @export +#' ui_fn <- function() { shiny::shinyUI( shiny::fluidPage( diff --git a/man/app_fn.Rd b/man/app_fn.Rd index dff777e..543ed8c 100644 --- a/man/app_fn.Rd +++ b/man/app_fn.Rd @@ -17,4 +17,5 @@ Create a \code{shinyApp} object for \code{analyzeBehaviorspace} } \examples{ # ADD_EXAMPLES_HERE + }