M15RemoteSensingProject/ui.R at master · Green-Cat/M15RemoteSensingProject · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
library(shiny)

shinyUI(fluidPage(
  titlePanel("(Un)Supervised Classification"),
  sidebarLayout(
    sidebarPanel(
      selectInput("select", label = "Classification type",
                  choices = list("Unsupervised" = 1, "Supervised" = 2),
                  selected = 1),
      sliderInput("categories", "Number of categories", 2, 10, 2),
      sliderInput("samples", "Number of samples", 10, 200, 100)
    ),
    mainPanel(
      plotOutput("dataPlot"),
      h5(textOutput("details")),
      h5(textOutput("details2")),
      h6("Source code available on", tags$a(href = "https://github.com/Green-Cat/M15RemoteSensingProject", "Github"))
    )
  )
))