R/createTabOutput.R

In cusom/CUSOM.ShinyHelpers: CU School of Medicine Helper Functions for Shiny Applications

#'Utility function to create Tab Items
# Requires specfic module format where outputs are a nammed list (outputs) within the module script.
#' @param tabName string - indicates which tab / sidebar to attribute outputs
#' @return returns a shiny tabName object with appropriate UI ouputs
#' @importFrom shinydashboard tabItem
#' @export
createTabOutput <- function(tabName) {

  UIModuleFunctionName <- paste0(tabName,'UI')

  UIObjects <- do.call(UIModuleFunctionName,list(tabName))$Outputs

  tab <- shinydashboard::tabItem(
    tabName = tabName,
    UIObjects
  )

  return(tab)

}