library(rhandsontable)
library(shiny)
DF <- data.frame(
  ######Logistic ent.



  "project number" = c(NA, ''),
  "project name" = c(NA, ''),
  "description" = c(''),

  "estimated delivery date" = seq(from = Sys.Date(), by = "days", length.out = 10),
  "actual delivery date" =seq(from = Sys.Date(), by = "days", length.out = 10),


  "current status " = c(''),
  "note" = c(''),




  "GA status" =  factor(NA, c('approved','awaiting','no needed')),


  "GA hours" = c(''),
  "GA actual" = c(''),

  "SSEC hours" = c(''),
  "SSEC actual" = c(''),

  "steel hours" = c(''),
  "steel actual" = c(''),

  "steel drawing sent" = FALSE,
  "steel drawing date" = seq(from = Sys.Date(), by = "days", length.out = 10),

  "tarp hours" = c(''),
  "tarp actual" = c(''),

  "tarp drawing sent" = FALSE,
  "tarp drawing date" = seq(from = Sys.Date(), by = "days", length.out = 10),


  "installation hours " = c(''),
  "installation actual " = c(''),

  ###############Phil Rob

  "generate component list " = FALSE,
  "drawings checked"= FALSE,

  ########alex fabrication part



  "tarp drawing" = FALSE,
  "estimated completion date"= c(''),
  "material"= factor(NA, c("Armourtex", "Landmark", "Armourtex FR", "Armourtex White/Silver")),
  "drawing availability date"= c(''),
  "tarp production status" = c(""),

  "estimated completion date" = c(""),

  "estimated completion date" = c(""),



  ######################### JIM STEEL




  "drawing availability date" = c(""),

  "rolling group" = c(""),
  "rolling date" = c(""),
  "Hoop group" = c(""),
  "Hoop date" = c(""),
  "mountain rail group" = c(""),
  "mountain rail date" = c(""),


  "P-B group" = c(""),
  "P-B date" = c(""),
  "Posts group" = c(""),
  "Posts date" = c(""),
  "Endwall group" = c(""),
  "Endwall date" = c(""),
  "galv sent date" = seq(from = Sys.Date(), by = "days", length.out = 10),
  "galv return date" = seq(from = Sys.Date(), by = "days", length.out = 10),


  ##########logistic

  "tarp received" = FALSE,
  "steel received" = FALSE,
  "instruction list" = FALSE,
  "packing" = FALSE,
  "delivery target date" = seq(from = Sys.Date(), by = "days", length.out = 1),
  "project comment" = c(""),

  registered = c(TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE),
  stringsAsFactors = FALSE, check.names = FALSE)















  ui <- shinyUI(fluidPage(

    titlePanel("Edit and save a table"),
    sidebarLayout(
      sidebarPanel(
        helpText("Shiny app based on an example given in the rhandsontable package.",
                 "Right-click on the table to delete/insert rows.",
                 "Double-click on a cell to edit"),

        wellPanel(
          h3("Table options"),
          radioButtons("useType", "Use Data Types", c("TRUE", "FALSE"))
        ),
        br(),

        wellPanel(
          h3("Save table"),
          div(class='row',
              div(class="col-sm-6",
                  actionButton("save", "Save")),
              div(class="col-sm-6",
                  radioButtons("fileType", "File type", c("ASCII", "RDS")))
          )
        )

      ),

      mainPanel(
        wellPanel(
          uiOutput("message", inline=TRUE)
        ),

        actionButton("cancel", "Cancel last action"),
        br(), br(),

        rHandsontableOutput("hot"),
        br(),

        wellPanel(
          h3("Add a column"),
          div(class='row',
              div(class="col-sm-5",
                  uiOutput("ui_newcolname"),
                  actionButton("addcolumn", "Add")),
              div(class="col-sm-4",
                  radioButtons("newcolumntype", "Type", c("integer", "double", "character"))),
              div(class="col-sm-3")
          )
        )

      )
    )
  ))

  server <- shinyServer(function(input, output) {

    values <- reactiveValues()

    ## Handsontable
    observe({
      if (!is.null(input$hot)) {
        values[["previous"]] <- isolate(values[["DF"]])
        DF = hot_to_r(input$hot)
      } else {
        if (is.null(values[["DF"]]))
          DF <- DF
        else
          DF <- values[["DF"]]
      }
      values[["DF"]] <- DF
    })

    output$hot <- renderRHandsontable({
      DF <- values[["DF"]]
      if (!is.null(DF))
        rhandsontable(DF, useTypes = as.logical(input$useType), stretchH = "all")
    })

    ## Save
    observeEvent(input$save, {
      fileType <- isolate(input$fileType)
      finalDF <- isolate(values[["DF"]])
      if(fileType == "ASCII"){
        dput(finalDF, file=file.path(outdir, sprintf("%s.txt", outfilename)))
      }
      else{
        saveRDS(finalDF, file=file.path(outdir, sprintf("%s.rds", outfilename)))
      }
    }
    )

    ## Cancel last action
    observeEvent(input$cancel, {
      if(!is.null(isolate(values[["previous"]]))) values[["DF"]] <- isolate(values[["previous"]])
    })

    ## Add column
    output$ui_newcolname <- renderUI({
      textInput("newcolumnname", "Name", sprintf("newcol%s", 1+ncol(values[["DF"]])))
    })
    observeEvent(input$addcolumn, {
      DF <- isolate(values[["DF"]])
      values[["previous"]] <- DF
      newcolumn <- eval(parse(text=sprintf('%s(nrow(DF))', isolate(input$newcolumntype))))
      values[["DF"]] <- setNames(cbind(DF, newcolumn, stringsAsFactors=FALSE), c(names(DF), isolate(input$newcolumnname)))
    })

    ## Message
    output$message <- renderUI({
      if(input$save==0){
        helpText(sprintf("This table will be saved in folder \"%s\" once you press the Save button.", outdir))
      }else{
        outfile <- ifelse(isolate(input$fileType)=="ASCII", "table.txt", "table.rds")
        fun <- ifelse(isolate(input$fileType)=="ASCII", "dget", "readRDS")
        list(helpText(sprintf("File saved: \"%s\".", file.path(outdir, outfile))),
             helpText(sprintf("Type %s(\"%s\") to get it.", fun, outfile)))
      }
    })

  })

  ## run app
  runApp(list(ui=ui, server=server))
  return(invisible())