knitr::opts_chunk$set(echo = FALSE)
library(magrittr) load(file = file.path('C:/Code/sportsQuant/FBB30x30', 'output', 'fordraft.rdata'))
| Tier 1 | Tier 2 | Tier 3 | Tier 4 | | :-----: | :-----: | :-----: | :------: | | BOS | STL | OAK... | SF... | | CLE | ATL | PIT... | CWS... | | NYY | MIL | TB | MIA | | PHI | CHC | TEX | BAL | | WSH | ...CIN | ARI | DET | | HOU | ...MIN | LAA | | | LAD | ...NYM |...KC | | | COL | ...TOR | ...SEA | | | | ...SD | |
| Team | Player | | Team | Player | | Team | Player | | :-----: | :-------------------: | :-----: | :-------------------: | :-----: | :-------------------: | | | | | | | | | BAL | ___ | CWS | __ | HOU | ___ | | | | | | | | | BOS | ___ | MIN | __ | LAA | __ | | | | | | | | | NYY | ___ | KC | __| OAK | ___ | | | | | | | | | TB | ___ | CLE | __| SEA | __| | | | | | | | | TOR | ___ | DET | __| TEX | ___ | | | | | | | | | PHI | ___ | MIL | __| SF | __ | | | | | | | | | ATL | ___ | STL | __| LAD | ___ | | | | | | | | | NYM | ___ | CIN | __| SD | __ | | | | | | | | | WSH | ___ | PIT | __| COL | ___ | | | | | | | | | MIA | ___ | CHC | __| ARI | ___ | | | | | | | |
\pagebreak
\pagebreak
knitr::kable(bpos[['C']] %>% dplyr::select(-c(adp, pos)) %>% dplyr::mutate(player = substr(player, 1, 17)))
\pagebreak
\pagebreak
knitr::kable(bpos[['1B']] %>% dplyr::filter(rrv > -.82) %>% dplyr::select(-c(adp, pos)) %>% dplyr::mutate(player = substr(player, 1, 17)))
\pagebreak
knitr::kable(bpos[['2B']] %>% dplyr::filter(rrv > -1) %>% dplyr::select(-c(adp, pos)) %>% dplyr::mutate(player = substr(player, 1, 17)))
\pagebreak
\pagebreak
knitr::kable(bpos[['SS']] %>% dplyr::filter(rrv > -1) %>% dplyr::select(-c(adp, pos)) %>% dplyr::mutate(player = substr(player, 1, 17)))
\pagebreak
knitr::kable(bpos[['3B']] %>% dplyr::filter(rrv > -.9) %>% dplyr::select(-c(adp, pos)) %>% dplyr::mutate(player = substr(player, 1, 17)))
\pagebreak
\pagebreak
knitr::kable(bpos[['LF']] %>% dplyr::filter(rrv > -.29) %>% dplyr::select(-c(adp, pos)) %>% dplyr::mutate(player = substr(player, 1, 17)))
\pagebreak
\pagebreak
knitr::kable(bpos[['CF']] %>% dplyr::filter(rrv > -.97) %>% dplyr::select(-c(adp, pos)) %>% dplyr::mutate(player = substr(player, 1, 17)))
\pagebreak
\pagebreak
knitr::kable(bpos[['RF']] %>% dplyr::filter(rrv > -.33) %>% dplyr::select(-c(adp, pos)) %>% dplyr::mutate(player = substr(player, 1, 17)))
\pagebreak
knitr::kable(bpos[['DH']] %>% dplyr::filter(rrv > -1) %>% dplyr::select(-c(adp, pos)) %>% dplyr::mutate(player = substr(player, 1, 17)))
\pagebreak
knitr::kable(ppos[['SP']] %>% dplyr::filter(rrv > -1) %>% dplyr::select(-c(adp, pos)) %>% dplyr::mutate(player = substr(player, 1, 17)))
\pagebreak
knitr::kable(ppos[['RP']] %>% dplyr::filter(rrv > -.74) %>% dplyr::select(-c(adp, pos)) %>% dplyr::mutate(player = substr(player, 1, 17)))
\pagebreak \pagebreak
knitr::kable(full_df[1:350, ])
\pagebreak \pagebreak
i <- 1 knitr::kable(team_[[i]], format = 'latex') i <- i + 1
knitr::kable(team_[[i]], format = 'latex') i <- i + 1
\pagebreak
knitr::kable(team_[[i]], format = 'latex') i <- i + 1
knitr::kable(team_[[i]], format = 'latex') i <- i + 1
\pagebreak
knitr::kable(team_[[i]], format = 'latex') i <- i + 1
knitr::kable(team_[[i]], format = 'latex') i <- i + 1
\pagebreak
knitr::kable(team_[[i]], format = 'latex') i <- i + 1
knitr::kable(team_[[i]], format = 'latex') i <- i + 1
\pagebreak
knitr::kable(team_[[i]], format = 'latex') i <- i + 1
knitr::kable(team_[[i]], format = 'latex') i <- i + 1
\pagebreak
knitr::kable(team_[[i]], format = 'latex') i <- i + 1
knitr::kable(team_[[i]], format = 'latex') i <- i + 1
\pagebreak
knitr::kable(team_[[i]], format = 'latex') i <- i + 1
knitr::kable(team_[[i]], format = 'latex') i <- i + 1
\pagebreak
knitr::kable(team_[[i]], format = 'latex') i <- i + 1
knitr::kable(team_[[i]], format = 'latex') i <- i + 1
\pagebreak
knitr::kable(team_[[i]], format = 'latex') i <- i + 1
knitr::kable(team_[[i]], format = 'latex') i <- i + 1
\pagebreak
knitr::kable(team_[[i]], format = 'latex') i <- i + 1
knitr::kable(team_[[i]], format = 'latex') i <- i + 1
\pagebreak
knitr::kable(team_[[i]], format = 'latex') i <- i + 1
knitr::kable(team_[[i]], format = 'latex') i <- i + 1
\pagebreak
knitr::kable(team_[[i]], format = 'latex') i <- i + 1
knitr::kable(team_[[i]], format = 'latex') i <- i + 1
\pagebreak
knitr::kable(team_[[i]], format = 'latex') i <- i + 1
knitr::kable(team_[[i]], format = 'latex') i <- i + 1
\pagebreak
knitr::kable(team_[[i]], format = 'latex') i <- i + 1
knitr::kable(team_[[i]], format = 'latex') i <- i + 1
\pagebreak
knitr::kable(team_[[i]], format = 'latex') i <- i + 1
knitr::kable(team_[[i]], format = 'latex') i <- i + 1
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.