tableFile3colUI.R

#' Same as TableFile but with 3 columns
#' 
tableFile3colUI <- function(id, inputBoxTitle = "Input", outputBoxTitle = "Output",
                        csvlabel = "CSV file",
                        label_1 = "time", label_2 = "logS", label_3 = "temperature",
                        default_frame = data.frame(c(0, 10), c(7, 6), c(70, 80))) {
    
    ns <- NS(id)
    
    names(default_frame) <- c(label_1, label_2, label_3)
    
    tagList(
        fluidRow(
            
            ## Input
            
            tabBox(title = inputBoxTitle, id = ns("my_tabBox"), side = "right",
                   selected = "Excel",
                   # tabPanel("Old",
                   #          matrixInput(inputId = ns("manual_table"),
                   #                      label = paste(label_1, label_2, label_3, sep = " - "),
                   #                      data = default_frame)
                   # ),
                   
                   tabPanel("Manual",
                            rHandsontableOutput(ns("hot"))
                            ),
                   
                   tabPanel("Text",
                            fileInput(ns("file"), csvlabel),
                            radioButtons(ns("sep"), "Separator",
                                         c(Comma = ",", Semicolon = ";", Tab = "\t"), "\t"),
                            radioButtons(ns("dec"), "Decimal Point",
                                         c(Point = ".", Comma = ","), ".")
                   ),
                   tabPanel("Excel",
                            fileInput(ns("excel_file"), "Excel file"),
                            textInput(ns("excel_sheet"), "Sheet name", "Sheet1"),
                            numericInput(ns("excel_skip"), "Skip", 0)
                   )
            ),
            
            ## Output
            
            box(title = outputBoxTitle, collapsible = TRUE, status = "primary",
                actionButton(ns("update_table"), "Refresh"),
                # tableOutput(ns("my_table"))
                plotOutput(ns("my_table")),
                tags$hr(),
                downloadLink(ns("export_table"), "Export")
            )
            
        )
    )
    
}