corpus.R
In polmineR: Verbs and Nouns for Corpus Analysis

#' @rdname shiny_helper_functions
#' @export corpusUiInput
corpusUiInput <- function(){
  list(
    corpus = selectInput("corpus_corpus", "corpus", choices = corpus()[["corpus"]], selected = corpus()[["corpus"]][1])
  )
}


#' @rdname shiny_helper_functions
#' @export corpusUiOutput
corpusUiOutput <- function(){
}


#' @rdname shiny_helper_functions
#' @export corpusServer
corpusServer <- function(input, output, session){

  observeEvent(
    input$corpus_corpus,
    {
      infoFile <- registry_get_info(input$corpus_corpus)
      if (file.exists(infoFile)){
        content <- readLines(infoFile)
        if (grepl(".md$", infoFile)){
            content <- markdown::markdownToHTML(text = content)
            content <-  htmltools::HTML(gsub("^.*<body>(.*?)</body>.*?$", "\\1", as.character(content)))
        }
      } else {
        content <- htmltools::HTML("</br><i>no corpus info file available</i>")
      }
      output$corpus_info <- renderUI(content)
    }
  )
  
}