Nothing
# "Reset" corpus before each search ---------------------------------------
session_variables$data_365 <-
loaded_data$original_data$data_365
session_variables$data_dok <-
loaded_data$original_data$data_dok
# Og nullstiller subset-flagg
search_arguments$subset_search <- FALSE
# Og korpusinfofanebesøk
session_variables$created_info <- FALSE
# Og dokumentinfo-fane
session_variables$doc_tab_open <- FALSE
# Og info_tab validation flag
session_variables$stop_info_tab <- TRUE
# And corpus info plot
session_variables$corpus_info_plot <- NULL
# Collect search arguments from sidebar -----------------------------------
# Calendar or document wall -----------------------------------------------
previous_mode <- plot_mode$mode
plot_mode$mode <- input$modus
# Save state change in order to update only when changed
if (previous_mode != plot_mode$mode) {
plot_mode$changed <- TRUE
} else {
plot_mode$changed <- FALSE
}
# Time --------------------------------------------------------------------
if (DATE_BASED_CORPUS == TRUE) {
search_arguments$time_filtering_mode <- input$years_or_dates
if (search_arguments$time_filtering_mode == "Year range") {
search_arguments$time_range <- input$date_slider[1]:input$date_slider[2]
} else if (search_arguments$time_filtering_mode == "Date range") {
search_arguments$time_range <- c(input$date_calendar[1], input$date_calendar[2])
}
}
# Case sensitive? ---------------------------------------------------------
search_arguments$case_sensitive <- input$case_sensitivity
# Filtering corpus --------------------------------------------------------
if (!is.null(input$subset_corpus)) {
search_arguments$raw_subset_terms <- collect_subset_terms() # For later argument check
search_arguments$subset_thresholds <- collect_threshold_values(search_arguments$raw_subset_terms)
search_arguments$subset_custom_column <- collect_custom_column(search_arguments$raw_subset_terms)
search_arguments$subset_terms <-
to_lower_if_case_insensitive_search(search_arguments$raw_subset_terms) %>%
clean_terms()
} else {
# "Resetting" variables if no filtering:
search_arguments$subset_search <- FALSE
search_arguments$subset_terms <- NULL
search_arguments$subset_thresholds <- NA
search_arguments$subset_custom_column <- NA
search_arguments$raw_subset_terms <- character(0)
}
# Search terms ------------------------------------------------------------
search_arguments$search_terms <- collect_search_terms() %>%
to_lower_if_case_insensitive_search() %>%
unique() %>%
clean_terms()
# Highlight terms - collect and keep raw for later argument check---------
search_arguments$raw_highlight_terms <- collect_highlight_terms()
# Highlight terms - step 1 ------------------------------------------------
search_arguments$terms_highlight <- search_arguments$raw_highlight_terms %>%
to_lower_if_case_insensitive_search()
# Identifying duplicates --------------------------------------------------
highlight_terms_not_duplicated <- !duplicated(search_arguments$terms_highlight)
# Highlight terms - step 2 ------------------------------------------------
search_arguments$terms_highlight <-
search_arguments$terms_highlight[highlight_terms_not_duplicated] %>%
clean_terms()
# Search arguments for all terms (search terms and highlight terms) -------
search_arguments$thresholds <- collect_threshold_values(search_arguments$raw_highlight_terms) %>%
.[highlight_terms_not_duplicated]
search_arguments$custom_column <- collect_custom_column(search_arguments$raw_highlight_terms) %>%
.[highlight_terms_not_duplicated]
# Checking search arguments -----------------------------------------------
search_arguments$all_ok <- check_all_input()
# Extra session variables -------------------------------------------------
if (INCLUDE_EXTRA == TRUE) {
cx_extra_reset_data()
search_arguments$extra_plot <- input$extra_plot_mode
search_arguments$extra_chart_terms <- input$magic_search_area %>%
stringr::str_split("\n") %>%
unlist(use.names = FALSE) %>%
unique()
# HACKY TODO. This is because otherwise an empty field is character(0) instead of "" and fails cx_validate_input
if (length(search_arguments$extra_chart_terms) > 1) {
search_arguments$extra_chart_terms <-
search_arguments$extra_chart_terms[!stringi::stri_isempty(search_arguments$extra_chart_terms)]
}
if (!identical(search_arguments$extra_chart_terms, "") &
search_arguments$extra_plot != "regular") {
search_arguments$search_terms <- sprintf("PLACEHOLDER", seq_along(search_arguments$extra_chart_terms))
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.