inst/explorer/server/3_event_corpus_map_click.R

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

shiny::observeEvent(input$plot_click, {

# Identifying which row in df the click position refers to, if any --------
min_rad <-
        finn_min_rad(input$plot_click, session_variables$plot_build_info)

# Data 365 ----------------------------------------------------------------
    if (plot_mode$mode == "data_365") {
        if (length(min_rad) > 0) {
            if (session_variables[[plot_mode$mode]]$Invisible_fake_date[min_rad] == FALSE) {


# UI element control ------------------------------------------------------
source("./server/3_event_corpus_map_click/UI_element_control_data_365.R", local = TRUE)

# Preparing the day's corpus ----------------------------------------------
source("./server/3_event_corpus_map_click/preparing_day_corpus.R", local = TRUE)

# List of document titles in tab ------------------------------------------
source("./server/3_event_corpus_map_click/title_list.R", local = TRUE)

# Corpus day map ----------------------------------------------------------
source("./server/3_event_corpus_map_click/rendering_day_corpus_map.R", local = TRUE)

# Auto-scroll document and day corpus map to top
source("./server/3_event_corpus_map_click/js_auto_scroll.R", local = TRUE)
            }
        }

# Data_dok ----------------------------------------------------------------

    } else if (plot_mode$mode == "data_dok") {
                if (length(min_rad) > 0) {

# UI element control ------------------------------------------------------
source("./server/3_event_corpus_map_click/UI_element_control_data_dok.R", local = TRUE)

# Text highlighting and text document display -----------------------------
source("./server/3_event_corpus_map_click/display_document_text.R", local = TRUE)

# Document info tab -------------------------------------------------------
source("./server/3_event_corpus_map_click/document_info_tab_data_dok.R", local = TRUE)

# Document visualisation --------------------------------------------------
source("./server/3_event_corpus_map_click/document_visualisation.R", local = TRUE)

# Potential "extra" tab ---------------------------------------------------
if (INCLUDE_EXTRA == TRUE) {
    create_extra_tab_content(plot_mode$mode, min_rad)
}

# Auto-scroll document to top
source("./server/3_event_corpus_map_click/js_auto_scroll.R", local = TRUE)

        }
    }

# JS positioning of UI elements --------------------------------------
source("./server/3_event_corpus_map_click/ui_positioning.R", local = TRUE)

})