R/modFilterUI.R

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

#' modFilterUI Module
#'
#' Corresponding user interface to \code{\link{modFilter}} to filter a data set based on user input
#'
#' @param id id of the filter
#' @author Jan Philipp Dietrich
#' @seealso \code{\link{modFilter}}, \code{\link{appModelstats}}
#' @importFrom shiny NS
#' @export

modFilterUI <- function(id) {
  ns <- NS(id)
  tags$div(id=ns("filterbox"),
             tags$div(id=ns("filterselector"),
                    selectInput(inputId = ns("filter"),
                       label = "Choose a filter",
                       choices = "")
             ),
             tags$div(id=ns("filterend")),
             uiOutput(ns("moreFilters")),
             tags$hr(),
             textOutput(ns("observations"))
           )
}