shinyServer(function(input, output) {

  options(shiny.maxRequestSize = 50 * 1024 ^ 2)

  output$kie <- renderDataTable({
    FileExt <- lapply(input$getin$name, tools::file_ext) %>% unlist %>% unique
    file.rename(input$getin$datapath,
                paste(input$getin$datapath, FileExt, sep="."))
    tmpfile <- lapply(paste(input$getin$datapath, FileExt, sep = "."),
                      read_excel) %>% rbind.fill %>% setDT
    tmpfile[,訂單日期 := as.Date(訂單日期, origin = as.Date("1899-12-30"))] %>%
      return
  })
})