R/ui_body.R

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

ui_body = function() {
  shinydashboard::dashboardBody(
    tags$head(
      tags$script(htmlwidgets::JS("setTimeout(function(){history.pushState({}, 'Page Title', window.location.pathname);},2000);")),
      shiny::includeCSS(cemrepboot_file("www", "buttons.css")),
    ),
    shinyjs::useShinyjs(),
    shinyalert::useShinyalert(),
    shinydashboard::tabItems(
      tabItemCustom(
        tabName = "datos",
        moduleUI = datosUI,
        moduleID = "datos"
      ),
      tabItemCustom(
        tabName = "indicadores",
        moduleUI = indicadoresUI,
        moduleID = "indicadores"
      )
    )
  )
}