inst/explorer/server/function_collect_edited_info_plot_legend_keys.R

#' Collect edited legend keys for corpus info plot
#'
#' @param terms Terms included in plot
#'
#' @return Character vector of terms in the UI input fields
collect_info_plot_legends <- function(terms) {

    new_terms <- character(0)

    for (i in seq_along(terms)) {
        new_terms[i] <- shiny::isolate(input[[paste0('info_legend_', i)]])
    }

    return(new_terms)
}

Try the corporaexplorer package in your browser

Any scripts or data that you put into this service are public.

corporaexplorer documentation built on Sept. 11, 2024, 7:21 p.m.