mirror of
https://github.com/agdamsbo/FreesearchR.git
synced 2025-12-16 09:32:10 +01:00
35 lines
1.1 KiB
R
35 lines
1.1 KiB
R
## Inpiration:
|
|
##
|
|
## https://stackoverflow.com/questions/47445260/how-to-enable-syntax-highlighting-in-r-shiny-app-with-htmloutput
|
|
|
|
prismCodeBlock <- function(code) {
|
|
tagList(
|
|
HTML(html_code_wrap(code)),
|
|
tags$script("Prism.highlightAll()")
|
|
)
|
|
}
|
|
|
|
prismDependencies <- tags$head(
|
|
tags$script(src = "https://cdnjs.cloudflare.com/ajax/libs/prism/1.8.4/prism.min.js"),
|
|
tags$link(
|
|
rel = "stylesheet", type = "text/css",
|
|
href = "https://cdnjs.cloudflare.com/ajax/libs/prism/1.8.4/themes/prism.min.css"
|
|
),
|
|
tags$script(src = "https://cdnjs.cloudflare.com/ajax/libs/prism/1.8.4/components/prism-r.min.js"),
|
|
tags$link(
|
|
rel = "stylesheet",
|
|
href = "https://cdnjs.cloudflare.com/ajax/libs/prism/1.29.0/plugins/toolbar/prism-toolbar.min.css"
|
|
),
|
|
tags$script(
|
|
src = "https://cdnjs.cloudflare.com/ajax/libs/prism/1.29.0/plugins/toolbar/prism-toolbar.min.js"
|
|
),
|
|
tags$script(
|
|
src = "https://cdnjs.cloudflare.com/ajax/libs/prism/1.29.0/plugins/copy-to-clipboard/prism-copy-to-clipboard.min.js"
|
|
)
|
|
)
|
|
|
|
|
|
html_code_wrap <- function(string, lang = "r") {
|
|
glue::glue("<pre><code class='language-{lang}'>{string}
|
|
</code></pre>")
|
|
}
|