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

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

if (search_arguments$all_ok == FALSE) {

    validate_search_term_length()
    validate_regexes()
    validate_safe_search()

    validate_thresholds(isolate(search_arguments$raw_highlight_terms))

    if (!is.null(isolate(input$subset_corpus))) {
        if (isolate(input$subset_corpus == 'Yes')) {
            validate_thresholds(isolate(search_arguments$raw_subset_terms))
        }
    }

    validate_column_names()

}

shiny::validate(shiny::need(
    nrow(session_variables$data_dok) != 0
    ,
    paste("\nThe filtered corpus does not contain any documents.")
))

validate_max_docs_in_wall()

if (INCLUDE_EXTRA == TRUE) {
    cx_shiny_validate(search_arguments$extra_chart_terms)
}