#
# This is the UI of a Shiny web application. You can run the
# application by clicking 'Run App' above.
# :::::::Asitav Sen:::::::
# :::LaNubia Consulting:::
# Find out more about LaNubia:
#
#    http://lanubia.com/
#


library(shiny)
library(readxl)
library(DT)
library(tidyr)
library(dplyr)
library(highcharter)
library(purrr)
library(stringr)
library(shinydashboard)
library(shinydashboardPlus)
library(shinymanager)

source("helpers.R")
source("mod_colchart.R")
source("mod_errorchart.R")
source("mod_table.R")
source("tabs.R")

# Define UI for application that draws a histogram

  shinyUI(
    secure_app(
    shinydashboardPlus::dashboardPage(
      skin = "blue",
      title = "Load File Errors",
      header = shinydashboardPlus::dashboardHeader(
        title = "Load File Errors"
      ),
      
      footer = shinydashboardPlus::dashboardFooter(left = "LaNubia Consulting",
                                                   right = "Blaricum, 2022"),
      controlbar = dashboardControlbar(disable=TRUE),
      sidebar = dashboardSidebar(
        collapsed = T,
        sidebarMenu(
          menuItem("Home", tabName="Home", icon = icon("readme")),
          menuItem("Duplicates", tabName="Duplicates", icon = icon("gear"))
        ),
        minified = FALSE
      ),
      
      dashboardBody(
        tabItems(
          homepage,
          duplicates
        )
      )
      
    ),
    enable_admin = TRUE,
    tags_top = 
      tags$div(
        tags$h4("Load File Errors", style = "align:center"),
        tags$img(
          src = "https://m.halfen.com/application/resources/images/general/footer/Leviat_CRH.jpg", width = 100
        ),
        tags$h4("Brought to you by", style = "align:center"),
        tags$img(
          src = "https://media-exp1.licdn.com/dms/image/C4D0BAQFzeFCavfyc6g/company-logo_200_200/0/1605698452216?e=2147483647&v=beta&t=2yGGeCM_h1l8jm1lzZk6iTZwaqdBemdptLz8pqx1utA", width = 100
        )
      ),
    tags_bottom = tags$div(
      tags$p(
        "For any question, please  contact ",
        tags$a(
          href = "mailto:asitav.sen@lanubia.com?Subject=Leviat",
          target="_top", "Asitav"
        )
      )
    )
    
  )
)