#' 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"))
)
)
)
))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.