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
    )
  )
)