---
title: "I believe in miracles"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    source_code: embed  
---

```{=html}

```


```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)

library(tidyverse)
library(dplyr)
library(flexdashboard)
library(crosstalk)
library(plotly)
library(DT)
```

```{r  include=FALSE}

gameHistory<-read_rds("elfResults.rds")
```

```{r  include=FALSE}

history_chart<- gameHistory%>%
  group_by(team,season, finalLeaguePosition,finalPoints,finalGoalDifference,wins,  draws,loses,seasonPoints, seasonGoalDifference,gamesPlayed)%>%
  summarise(count=n())


```


#### Where they started and where they ended

Inspired by how Nottingham Forest have out performed history and exceptions, I have had a 
quick look at the last 29 years (1993/94-2021/22) seasons and how teams have started and where they ended up.  

On 16th September 2021, Forest sacked Chris Hughton. They had 1 point from 7 games. Since 1993, 6 teams have had an equally poor start to the season. Off them Stoke achieved 56 points (2019-20), and got to 16th. 3 of them were relegated. 

When Steve Cooper took over Forest, had won their first game and were on 4 points from 8 games. 16 teams have been in a similar situation.  From there the best performance was Brentford who got to 9th in 2017-18 season, with 69 points.  Eight were relegated.

Click on the points a team had after how many games.

Source 

```{r, echo=FALSE}

sharedHistory <- SharedData$new(history_chart)

#https://rstudio.github.io/crosstalk/using.html

 bscols(
  widths = c(1, NA,NA),
  list(filter_select("seasonPoints", "Points", sharedHistory, ~seasonPoints),
  filter_select("id", "Games played", sharedHistory, ~gamesPlayed)),
  plot_ly(sharedHistory, x = ~finalLeaguePosition, y=~count, type="bar",marker = list(color = 'rgb(255,0,0)')),   
  datatable(sharedHistory, colnames = c('Team','Season','finalLeaguePosition','finalPoints','finalGoalDifference', 'Wins',  'Draws','Loses','CurrentPoints', 'CurrentGoalDifference','gamesPlayed','count'), rownames = FALSE, style="bootstrap", class="compact", width="100%")
 )



```