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.
112 lines
2.7 KiB
112 lines
2.7 KiB
homepage<-
|
|
tabItem(
|
|
tabName = "Home",
|
|
fluidRow(
|
|
shinydashboardPlus::box(
|
|
colUI("inputs"),
|
|
width = 6
|
|
),
|
|
textOutput("details")
|
|
),
|
|
fluidRow(
|
|
h3("Contacts"),
|
|
shinydashboardPlus::box(
|
|
errUI("contacterrors"),
|
|
width = 6
|
|
),
|
|
|
|
tabBox(
|
|
title = "Details",
|
|
tabPanel("Length",
|
|
tableUI("contactlength")
|
|
),
|
|
tabPanel("Mandatory",
|
|
tableUI("contactmand")
|
|
),
|
|
tabPanel("Codelist",
|
|
tableUI("contactcode")
|
|
),
|
|
width = 6
|
|
)
|
|
|
|
),
|
|
fluidRow(
|
|
h3("Accounts"),
|
|
shinydashboardPlus::box(
|
|
errUI("accountserrors"),
|
|
width = 6
|
|
),
|
|
|
|
tabBox(
|
|
title = "Details",
|
|
tabPanel("Length",
|
|
tableUI("accountslength")
|
|
),
|
|
tabPanel("Mandatory",
|
|
tableUI("accountsmand")
|
|
),
|
|
tabPanel("Codelist",
|
|
tableUI("accountscode")
|
|
),
|
|
width = 6
|
|
)
|
|
|
|
),
|
|
fluidRow(
|
|
h3("Projects"),
|
|
shinydashboardPlus::box(
|
|
errUI("projectserrors"),
|
|
width = 6
|
|
),
|
|
|
|
tabBox(
|
|
title = "Details",
|
|
tabPanel("Length",
|
|
tableUI("projectslength")
|
|
),
|
|
tabPanel("Mandatory",
|
|
tableUI("projectsmand")
|
|
),
|
|
tabPanel("Codelist",
|
|
tableUI("projectscode")
|
|
),
|
|
width = 6
|
|
)
|
|
|
|
)
|
|
|
|
)
|
|
|
|
duplicates<- tabItem(
|
|
tabName = "Duplicates",
|
|
fluidRow(
|
|
shinydashboardPlus::box(
|
|
title = "Possible Duplicates in Account",
|
|
DTOutput("accdup"),
|
|
downloadButton("accdupdownload", "Download Full Data"),
|
|
downloadButton("accduplegacydownload", "Download Data (Error Source: Legacy)"),
|
|
downloadButton("accdupsapdownload", "Download Data (Error Source: SAP)"),
|
|
downloadButton("accdupbothdownload", "Download Data (Error Source: Both)"),
|
|
width = 12
|
|
)
|
|
),
|
|
fluidRow(
|
|
shinydashboardPlus::box(
|
|
title = "Possible Duplicates in Contacts",
|
|
DTOutput("condup"),
|
|
downloadButton("condupdownload", "Download Full Data"),
|
|
downloadButton("conduplegacydownload", "Download Data (Error Source: Legacy)"),
|
|
downloadButton("condupsapdownload", "Download Data (Error Source: SAP)"),
|
|
downloadButton("condupbothdownload", "Download Data (Error Source: Both)"),
|
|
width = 12
|
|
)
|
|
),
|
|
fluidRow(
|
|
shinydashboardPlus::box(
|
|
title = "Possible Missing Employees (in SAP)",
|
|
DTOutput("missemp"),
|
|
downloadButton("missempdownload", "Download Full Data"),
|
|
width = 12
|
|
)
|
|
)
|
|
)
|
|
|