#' 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"))
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.