players <- ratings %>% dplyr::select(name) %>% unique()
date_choices <- match_results$date %>% unique() %>% sort(decreasing = T)
navbarPage("ELO",
tabPanel("Ratings", DT::dataTableOutput('ratings')),
tabPanel("Players",
selectInput(
'player_name', label = 'Player',
choices = players),
ggvisOutput('player'),
tableOutput('player_table')),
tabPanel("Matchups",
selectInput(
'player_one', label = 'Player 1', choices = players
),
selectInput(
'player_two', label = 'Player 2', choices = players
),
plotOutput('matchup')),
tabPanel("Weekly Updates",
selectInput('selected_week', label = 'Week', choices = date_choices),
htmlOutput('comparison')),
theme = 'table.css'
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.