R/ui_utils.R

In tomicapretto/cemrepboot: What the Package Does (One Line, Title Case)

colInput = function(colwidth, inputFun, inputId, label, disabled = FALSE, ...) {
  if (disabled) {
    column(
      width = colwidth,
      shinyjs::disabled(
        inputFun(inputId = inputId, label = label, ...)
      )
    )
  } else {
    column(
      width = colwidth,
      inputFun(inputId = inputId, label = label, ...)
    )
  }
}

tabItemCustom = function(tabName, moduleUI, moduleID) {
  shinydashboard::tabItem(
    tabName = tabName,
    wellPanel(
      style = "background: transparent; border: transparent; box-shadow: none;",
      moduleUI(moduleID)
    )
  )
}