1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
library(shiny)
library(ggplot2)
dataset <- diamonds
shinyUI(pageWithSidebar(
headerPanel("Diamonds Explorer"),
sidebarPanel(
sliderInput("sampleSize", "Sample Size", min = 1, max = nrow(dataset),
value = min(1000, nrow(dataset)), step = 500, round = 0),
selectInput("x", "X", names(dataset)),
selectInput("y", "Y", names(dataset), names(dataset)[[2]]),
selectInput("color", "Color", c("None", names(dataset))),
checkboxInput("jitter", "Jitter"),
checkboxInput("smooth", "Smooth"),
selectInput("facet_row", "Facet Row", c(None = ".", names(dataset))),
selectInput("facet_col", "Facet Column", c(None = ".", names(dataset)))
),
mainPanel(
plotOutput("plot")
)
))
|
