Function for Observing a click and changing a tab in a tabsetpanel

gauge_chart_observers.R

#' Gauge Chart Oberserver Function
#'
#' Apply's on.click functionality to change tab when a gauge chart is clicked
#'
#' @param gauge_id id of gauge chart
#' @param tab_to_select tab to move to
#' @param tab_id equals histogram_tab_box for all cases
#' @param session shiny server session
#'
#' @return invisible - used for side effects
observe_gauge_click <- function(gauge_id,
                                tab_to_select,
                                tab_id = "histogram_tab_box",
                                session = getDefaultReactiveDomain()) {

  shinyjs::onclick(
    id = gauge_id,
    expr = {
      updateTabsetPanel(session, inputId = tab_id, selected = tab_to_select);
      shinyjs::runjs(
        "$('html, body').animate({scrollTop:$(document).height()}, 'slow');"
      )
    }
  )

}