R/filter_languages_ui.R

In NicolasJBM/teachR: Create and maintain teaching, learning, and testing materials

#' @name filter_languages_ui
#' @title Filter documents based on languages.
#' @author Nicolas Mangin
#' @description Module allowing the user to find select document based on whether they exist in languages other than the main one.
#' @param id Character. ID of the module to connect the user interface to the appropriate server side.
#' @return Tibble. list of documents.
#' @importFrom shiny NS
#' @importFrom shiny uiOutput
#' @export


filter_languages_ui <- function(id){
  ns <- shiny::NS(id)
  base::list(
    shiny::uiOutput(ns("filtexistinglang")),
    shiny::uiOutput(ns("filtmissinglang"))
  )
}