R/app_ui.R

In MohammedFCIS/tibbleexplorer: Tibble Explorer

#' @import shiny
#' @import shinydashboard
#' @import dashboardthemes
app_ui <- function() {
  dashboardPage(
    dashboardHeader(title = logo_blue_gradient),
    dashboardSidebar(sidebarMenu(
      menuItem("Overview", tabName = "overview", icon = icon("dashboard")),
      menuItem("Categorical Features", tabName = "categorical",
               icon = icon("chart-bar")),
      menuItem("Numerical Features", tabName = "numerical",
               icon = icon("chart-area")),
      menuItem("DateTime Features", tabName = "datetime",
               icon = icon("hourglass-end")),
      menuItem("Character Features", tabName = "character",
               icon = icon("amilia"))
    )),
    dashboardBody(
      ### changing theme
      shinyDashboardThemes(
        theme = "blue_gradient"
      ),
      tabItems(
        # overview tab content
        tabItem(tabName = "overview",
                tibble_overview_module_ui("myoverview")),
        # categorical tab content
        tabItem(tabName = "categorical",
                h2("Categorical tab content")),
        # numerical tab content
        tabItem(tabName = "numerical",
                h2("Numerical tab content")),
        # categorical tab content
        tabItem(tabName = "datetime",
                h2("DateTime tab content")),
        # categorical tab content
        tabItem(tabName = "character",
                h2("Character tab content"))
        )
    )
  )
}

#' @import shiny
golem_add_external_resources <- function(){
  
  addResourcePath(
    'www', system.file('app/www', package = 'tibbleexplorer')
  )
 
  tags$head(
    golem::activate_js(),
    golem::favicon()
    # Add here all the external resources
    # If you have a custom.css in the inst/app/www
    # Or for example, you can add shinyalert::useShinyalert() here
    #tags$link(rel="stylesheet", type="text/css", href="www/custom.css")
  )
}

### creating custom logo object
logo_blue_gradient <- shinyDashboardLogoDIY(
  
  boldText = "MA"
  ,mainText = "Tibble Explorer"
  ,textSize = 16
  ,badgeText = "Alpha"
  ,badgeTextColor = "white"
  ,badgeTextSize = 2
  ,badgeBackColor = "#40E0D0"
  ,badgeBorderRadius = 3
  
)