R/restrictionNotificationModule.R

In cwolk/ShinyConc: Build custom concordancers with Shiny

#' Title
#'
#' @param id
#'
#' @return
#' @export
#'
#' @examples
restrictionNotificationUI <- function(id) {

  ns <- NS(id)

  conditionalPanel(condition = paste0("output['", ns("restrictionactive"),
                                      "']"),
                   wellPanel(fluidRow(
                     column(8, htmlOutput(ns("restrictionDisplay"))),
                     column(4, actionButton(ns("resetRestrictionButton"),
                                            "Remove restrictions")))))
}


#' Title
#'
#' @param input
#' @param output
#' @param session
#' @param mainCorpus
#'
#' @return
#' @export
#'
#' @examples
restrictionNotificationModule <- function(input, output, session, mainCorpus) {

  output$restrictionactive <- reactive(
    mainCorpus$restrictions$activeRestrictions$isActive)

  outputOptions(output, 'restrictionactive', suspendWhenHidden=FALSE)

  output$restrictionDisplay <- renderText(
    sprintf("There are additional restrictions active. Only searching material matching: <br> %s", paste(sapply(
      mainCorpus$restrictions$activeRestrictions$restrictions, function(x)
        attributes(x$querystring)$searchterm), collapse=" <br> ")))

  restrictionRemover <- observeEvent(input$resetRestrictionButton, {
    mainCorpus$restrictions$clearRestrictions()
  })

}