# Document text -----------------------------------------------------------
output$doc_tekst <- shiny::renderText({
display_document(
shiny::isolate(session_variables$data_day$Text_original_case[min_rad]),
search_arguments)
})
# Document visualisation --------------------------------------------------
if (length(search_arguments$terms_highlight) > 0) {
output$dok_vis <- shiny::renderPlot({
visualiser_dok(shiny::isolate(session_variables$data_day[min_rad, ]),
search_arguments$terms_highlight,
search_arguments$case_sensitive)
}, height = function(x) {
if (length(search_arguments$terms_highlight) == 0) {
1
} else{
(25 + (length(search_arguments$terms_highlight) * 15))
}
})
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.