#
# This is the user-interface definition of a Shiny web application. You can
# run the application by clicking 'Run App' above.
#
# Find out more about building applications with Shiny here:
#
#    http://shiny.rstudio.com/
#

library(shiny)
library(DT)
library(readxl)
library(dplyr)



# Define UI for application that draws a histogram
shinyUI(fluidPage(

    # Application title
    titlePanel("Tasks"),

    # Sidebar with a slider input for number of bins
    sidebarLayout(
        sidebarPanel(
          width = 3,
          fileInput("oldfile", "Choose CSV File",
                    multiple = FALSE,
                    accept = c("text/csv",
                               "text/comma-separated-values,text/plain",
                               ".csv")),
          tags$hr(),
          radioButtons("sep", "Separator",
                       choices = c(Comma = ",",
                                   Semicolon = ";",
                                   Tab = "\t"),
                       selected = ";")

        ),

        # Show a plot of the generated distribution
        mainPanel(
          fluidRow(
            h3("Input Data"),
            dataTableOutput("contents")
            ),
          fluidRow(
            h3("Task")
          ),
          fluidRow(
            column(width = 6,
                   h4("Output"),
                   dataTableOutput("task"),
                   downloadButton("taskdl", "Download")
                   ),
            column(width = 6,
                   h4("Errors"),
                   tabsetPanel(
                     tabPanel("Summary", dataTableOutput("taskerror")),
                     tabPanel("Mandatory", dataTableOutput("taskerrorman")),
                     tabPanel("Codelist", dataTableOutput("taskerrorcode")),
                     tabPanel("Length", dataTableOutput("taskerrorlength")),
                     tabPanel("Unmatched", dataTableOutput("taskerrorunmatched"))
                   )
                   )
          ),
          fluidRow(
            h3("Notes")
          ),
          fluidRow(
            column(width = 6,
                   h4("Output"),
                   h5("Notes"),
                   dataTableOutput("notes"), 
                   downloadButton("tasknotesdl", "Download")
                   ),
            column(width = 6,
                   h4("Errors"),
                   tabsetPanel(
                     tabPanel("Summary", dataTableOutput("tasknoteserror")),
                     tabPanel("Mandatory", dataTableOutput("tasknoteserrorman")),
                     tabPanel("Codelist", dataTableOutput("tasknoteserrorcode")),
                     tabPanel("Length", dataTableOutput("tasknoteserrorlength"))
                   )
                   
                   )
          ),
          fluidRow(
            h3("Attachments"),
            dataTableOutput("taskatt"),
            downloadButton("taskattdl")
          )
        )
    )
))