You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
85 lines
2.1 KiB
85 lines
2.1 KiB
#
|
|
# 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"
|
|
)
|
|
)
|
|
)
|
|
|
|
)
|
|
)
|
|
|
|
|