forked from daattali/shiny-workshop-odsc2019
-
Notifications
You must be signed in to change notification settings - Fork 0
/
app_04_sol.R
39 lines (34 loc) · 776 Bytes
/
app_04_sol.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
library(shiny)
players <- read.csv("data/nba2018.csv")
ui <- fluidPage(
titlePanel("NBA 2018/19 Player Stats"),
sidebarLayout(
sidebarPanel(
"Exploring all player stats from the NBA 2018/19 season",
h3("Filters"),
sliderInput(
inputId = "VORP",
label = "Player VORP rating at least",
min = -3, max = 10,
value = 0
),
selectInput(
"Team", "Team",
unique(players$Team),
selected = "Golden State Warriors"
)
),
mainPanel(
strong(
"There are",
nrow(players),
"players in the dataset"
),
plotOutput("nba_plot"),
tableOutput("players_data")
)
)
)
server <- function(input, output, session) {
}
shinyApp(ui, server)