R/modRunSelectUI.R

In pik-piam/shinyresults: A collection of shiny apps and modules to visualize/handle model results

#' modRunSelectUI Module
#'
#' Corresponding user interface to \code{\link{modRunSelect}} to select modules runs for further analysis
#'
#' @param id id of the filter
#' @author Jan Philipp Dietrich
#' @seealso \code{\link{modFilter}}, \code{\link{appModelstats}}
#' @importFrom shiny NS
#' @export
modRunSelectUI <- function(id) {
  ns <- NS(id)
  tags$div(id = ns("runselectbox"),
           tags$div(id = "title", titlePanel("Run Selection")),
           modFilterUI(ns("runfilter")),
           tags$hr(),
           actionButton(ns("load"), "Load selection"))
}