inst/explorer/server/2_event_search_button/UI_element_control.R

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

# Scroll to top
shinyjs::runjs('window.scrollTo(0, 0);')

# Tømmer ved nytt søk
output$doc_tekst <- shiny::renderText({
    NULL
})
output$dok_vis <-
    shiny::renderPlot({
        NULL
    }, height = function() {
        1
    })
output$dag_kart <-
    shiny::renderPlot({
        NULL
    }, height = function() {
        1
    })

hide_ui("day_corpus_box")
hide_ui("document_box")

# Edit info plot legend keys UI
shinyWidgets::updateCheckboxGroupButtons(session,
                                         "edit_info_plot_legend_keys",
                                         selected = "No")
shinyjs::hideElement("edit_info_plot_legend_keys")

# Update date inputs, making sure they remain within corpus date range
if (DATE_BASED_CORPUS == TRUE) {
  if (search_arguments$time_filtering_mode == "Year range") {
    updateDateRangeInput(
      session,
      "date_calendar",
      start = if (as.Date(paste0(input$date_slider[1], "-01-01")) >
        min(loaded_data$original_data$data_dok$Date)) {
        as.Date(paste0(input$date_slider[1], "-01-01"))
      } else {
        min(loaded_data$original_data$data_dok$Date)
      },
      end = if (as.Date(paste0(input$date_slider[2], "-12-31")) <
        max(loaded_data$original_data$data_dok$Date)) {
        as.Date(paste0(input$date_slider[2], "-12-31"))
      } else {
        max(loaded_data$original_data$data_dok$Date)
      }
    )
  } else if (search_arguments$time_filtering_mode == "Date range") {
    updateSliderInput(session,
      "date_slider",
      value = c(
        lubridate::year(input$date_calendar[1]),
        lubridate::year(input$date_calendar[2])
      )
    )
  }
}

# Fjerner faner (relevant for data_dok)
remove_tab_doc_info()
remove_tab_doc_tekst()
if (INCLUDE_EXTRA == TRUE) {
  remove_tab_extra()
}

# Setter tab-tittel på korpuskart hvis ny tittel
if (plot_mode$changed == TRUE) {
  output$korpuskarttittel <- shiny::renderText({
    corpus_map_title(plot_mode$mode)
  })
}