inst/explorer/server/4_event_day_map_click/document_text_vis_tab.R

In corporaexplorer: A 'Shiny' App for Exploration of Text Collections

# 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))
        }
    })
}