Render some collapsible markdown text

write some text in markdown format and it will help you render to markdown, use shiny::markdown but it is collapsible.

renderDesc(id, desc)

Arguments

id

element ID

desc

one character string in markdown format

Value

HTML elements

Examples

if(interactive()){
    desc <-
        "
    # Some desc
    - xxxx
    - bbbb

    This is a [link](https://www.google.com/).

    `Some other things`
    > other markdown things

    1. aaa
    2. bbb
    3. ccc
    "
    ui <- fluidPage(
        renderDesc(id = "desc", desc),
    )

    server <- function(input, output, session) {

    }

    shinyApp(ui, server)
}