R/observe_row_selection.R

In KotulskaLab/AmyloGraph: AmyloGraph: a comprehensive database of amyloid-amyloid interactions

#' Enable/disable element with CSS styling
#' 
#' @description Toggles element state and sets CSS class to allow customizing
#' the look of elements when disabled (very useful to differentiate them from
#' enabled elements).
#' 
#' @param selector \[\code{character(1)}\]\cr
#'  Query selector of the elements to target.
#' @param class \[\code{character(1)}\]\cr
#'  Class to add when condition is not satisfied.
#' @param condition \[\code{function(1)}\]\cr
#'  Function that takes no parameters and evaluates to either `TRUE` or `FALSE`.
#' 
#' @importFrom shinyjs toggleState toggleCssClass
toggle_state_and_css <- function(selector, class, condition) observe({
  toggleState(
    selector = selector,
    condition = condition()
  )
  toggleCssClass(
    class = class,
    selector = selector,
    condition = !condition()
  )
})

#' Observe buttons to disable/enable them
#' 
#' @description Toggles button on and off based on whether any row is selected
#' in a table.
#' 
#' @param ns \[\code{function(1)}\]\cr
#'  Namespace-generating function that takes single string as the only argument.
#' @param any_row_selected \[\code{reactive(logical(1))}\]\cr
#'  A reactive value telling whether any row is selected in a table.
#' 
#' @rdname observe-disable-buttons
observe_download_buttons <- function(ns, any_row_selected) toggle_state_and_css(
  glue("#{ns('button_bar')} .ag-download-button"),
  "ag-download-button-disabled",
  any_row_selected
)

#' @rdname observe-disable-buttons
observe_deselect_buttons <- function(ns, any_row_selected) toggle_state_and_css(
  glue("#{ns('button_bar')} .ag-deselection-button"),
  "ag-deselection-button-disabled",
  any_row_selected
)

#' Observe "Transfer selection" button
#' 
#' @description Toggles button on and off based on whether any row is selected
#' in a table.
#' 
#' @param ns \[\code{function(1)}\]\cr
#'  Namespace-generating function that takes single string as the only argument.
#' @param any_row_selected \[\code{reactive(logical(1))}\]\cr
#'  A reactive value telling whether any row is selected in a table.
observe_select_in_table_button <- function(ns, any_row_selected) toggle_state_and_css(
  glue("#{ns('select_in_table')}"),
  "ag-moveselection-button-disabled",
  any_row_selected
)