Nothing
#' @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)
}
)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.