inst/shiny/server/LFL/LFL_team.R

In LopezJehan/League: Shiny app for LOL

##### LFL team server #####

# Team picker input
output$LFL_team <- renderUI({
  shinyWidgets::pickerInput("LFL_team", "Choose a team",
                            choices = sort(unique(LFL_filt_event()$team)),
                            choicesOpt = list(content =  
                                                lapply(sort(unique(LFL_filt_event()$team)), FUN = function(team) {
                                                  HTML(paste(
                                                    tags$img(src=flags_LFL[flags_LFL$team == team,]$img),
                                                    tags$b(team)
                                                  ))
                                                })
                            ))
})

# Data filtered by team
LFL_filt_team <- reactive(LFL_filt_event() %>% filter(team %in% input$LFL_team))

##### Box with value boxes #####
# Nb of games
output$LFL_team_games <- renderValueBox({
  valueBox(
    nrow(LFL_filt_team())/6,
    "Games",
    icon = icon("gamepad")
  )
})

# Nb of wins
output$LFL_team_wins <- renderValueBox({
  valueBox(
    paste0(sum(LFL_filt_team()$result)/6, "-",
           nrow(LFL_filt_team())/6 - sum(LFL_filt_team()$result)/6),
    "Wins-Losses",
    icon = icon("trophy"),
    color = "lime"
  )
})

# Winrate
output$LFL_team_winrate <- renderValueBox({
  valueBox(
    paste0(round(100*sum(LFL_filt_team()$result)/nrow(LFL_filt_team()),1),"%"),
    "Winrate",
    icon = icon("percent"),
    color = "fuchsia"
  )
})

# Chosen team stats for players
stats_LFL_players_team <- reactive({
  stats_LFL_players() %>% filter(team == input$LFL_team)
})

# Chosen team stats for the team
stats_LFL_team_one <- reactive({
  stats_LFL_teams() %>% filter(team == input$LFL_team)
})

##### Player graph from chosen team #####
# Slider
output$LFL_team_player_graph_slider <- renderUI({
  sliderInput("LFL_team_player_graph_slider", "Number of players displayed",
              value = nrow(stats_LFL_players_team()),
              min = min(nrow(stats_LFL_players_team()), 3),
              max = nrow(stats_LFL_players_team()),
              step = 1)
})

# Graph
output$LFL_team_player_graph <- renderAmCharts({
  # Getting stat to display
  stat <- paste(unlist(strsplit(tolower(input$LFL_team_player_graph_choice), " ")), collapse = "_")
  
  # Sorting and adding ranking
  if(stat %in% c("deaths", "deaths_per_games")){
    temp <- merge(stats_LFL_players_team(), flags_LFL) %>% 
      arrange(!!as.symbol(stat)) %>% 
      mutate(ranking = rank(!!as.symbol(stat), ties.method = "min"))
  } else {
    temp <- merge(stats_LFL_players_team(), flags_LFL) %>% 
      arrange(-!!as.symbol(stat)) %>% 
      mutate(ranking = rank(-!!as.symbol(stat), ties.method = "min"))
  }
  
  # Keeping n first players
  temp <- temp %>% slice(1:input$LFL_team_player_graph_slider)
  
  # Changing title in function of number of players
  if(input$LFL_team_player_graph_slider == nrow(stats_LFL_players_team())){
    title <- paste0(input$LFL_team_player_graph_choice, ' Ranking (',
                    stats_LFL_team_one()$events, ')')
  } else {
    title <- paste0(input$LFL_team_player_graph_choice, ' Ranking - Top ',
                    input$LFL_team_player_graph_slider, 
                    ' (', stats_LFL_team_one()$events, ")")
  }
  
  # Building graph
  pipeR::pipeline(
    amSerialChart(categoryField = 'player', creditsPosition = "top-right"),
    setDataProvider(temp),
    addGraph(balloonText = paste0('<b>[[ranking]]. [[team_simplified]] [[category]]: [[value]]</b>\nGames: [[games]]'),
             type = 'column', valueField = stat,
             fillAlphas = 1, lineAlpha = 0,
             fillColorsField = 'color',
             labelText = "[[value]]"),
    addValueAxis(minimum = 0),
    setCategoryAxis(labelRotation = ifelse(nrow(temp) > 20, 45, 0)),
    addTitle(text = title),
    setExport(enabled = TRUE)
  )
})