ui.R
In EMMAgeo: End-Member Modelling of Grain-Size Data

#' Function to generate GUI for EMMA.
#' 
#' A graphical user interface (GUI) is started.
#' 
#' @return A GUI.
#' @author Michael Dietze, Elisabeth Dietze
#' @keywords EMMA
#' @examples
#' 
#' ## Not run
#' EMMA.GUI()
#' 
#' @export shinyUi
shinyUI(fluidPage(
  titlePanel("EMMA online - End-member modelling analysis online"),
  
  sidebarLayout(position = "left",
                sidebarPanel(tabsetPanel(
                               tabPanel(title = "Data",
                                        fileInput(inputId = "file.user", 
                                                  label = strong("Data set (ASCII file, must end with .txt)"),
                                                  accept="text/plain"),
                                        tags$hr(),
                                        checkboxInput("ID", 
                                                      "ID (col 1)", 
                                                      TRUE),
                                        checkboxInput("Classes", 
                                                      "Classes (row 1)", 
                                                      TRUE),
                                        radioButtons("sep", 
                                                     "Separator",
                                                     c(Space = " ",
                                                       Comma = ",",
                                                       Semicolon = ";",
                                                       Tab = "\t"),
                                                     " "),
                                        tags$hr(),
                                        radioButtons("show", 
                                                     "Show", 
                                                     selected = "curves",
                                                     c(Curves = "curves",
                                                       Map = "map",
                                                       EMMA = "EMMA")),
                                        tags$hr(),
                                        checkboxInput("log_x", 
                                                      "log(x)", 
                                                      FALSE)), 
                               tabPanel(title = "EMMA",
                                        sliderInput("q", 
                                                    "Number of EM (q):", 
                                                    min = 2, 
                                                    max = 10, 
                                                    value = 2),
                                        sliderInput("l", 
                                                    "Weight transf. limit (l):", 
                                                    min = 0, 
                                                    max = 0.5, 
                                                    value = 0),
                                        selectInput("rotation", 
                                                    "Rotation type:", 
                                                    choices = c("Varimax", 
                                                                "other", 
                                                                "yet_other"))
                               )
                )
                ),
                
                mainPanel(tabsetPanel(tabPanel("Tabular", 
                                               tableOutput("tabular")),
                                      tabPanel("Graphical", 
                                               plotOutput(outputId = "graphical"))
                )
                )
  )
))