-
Notifications
You must be signed in to change notification settings - Fork 0
/
ui.R
40 lines (35 loc) · 1.14 KB
/
ui.R
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
30
31
32
33
34
35
36
37
38
39
40
#
# This is the user-interface definition of a Shiny web application. You can
# run the application by clicking 'Run App' above.
#
# Find out more about building applications with Shiny here:
#
# https://shiny.rstudio.com/
#
library(shiny)
# Define UI for application that draws a histogram
shinyUI(fluidPage(
# Application title
titlePanel("Monty Hall Simulation"),
fluidRow(column(12, mainPanel(p("by Jordi Vilaplana")))),
# Sidebar with a slider input for number of bins
fluidRow(
column(4,
wellPanel(
sliderInput("games",
"Number of games:",
min = 1,
max = 1000,
value = 100),
selectInput("strategy",
"Strategy",
choices = c("Stay" = "stay", "Change" = "change", "Random" = "random"))
)
),
column(8,
mainPanel(
plotOutput("resultChart")
)
)),
fluidRow(column(12, DT::dataTableOutput("resultTable")))
))