Prep all the projections:
steamer steamer600 fangraphs depth charts (fangraphsdc) zips
#web #cbs <- get_cbs(2017) %>% proj_prep() #fp <- get_fantasy_pros(2017) %>% proj_prep() guru <- get_guru(2017) %>% proj_prep() #razz_steamer <- get_razzball_steamer(2017) %>% proj_prep() steamer <- get_steamer(2017) %>% proj_prep() dc <- get_fangraphs_depth_charts(2017) %>% proj_prep() #downloads # pod <- get_pod(file.path('paid_projections', 'pod_projections.xlsx')) %>% # proj_prep() pecota <- get_pecota(file.path('..','paid_projections', 'pecota_2017.xls')) %>% proj_prep()
Save them to the optimal auction data folder
saveRDS(cbs, file = file.path('..', 'optimal-auction', 'proj_data', 'cbs.rds') ) saveRDS(fp, file = file.path('..', 'optimal-auction', 'proj_data', 'fp.rds') ) saveRDS(guru, file = file.path('..', 'optimal-auction', 'proj_data', 'guru.rds') ) saveRDS(razz_steamer, file = file.path('..', 'optimal-auction', 'proj_data', 'rz-s.rds') ) saveRDS(steamer, file = file.path('..', 'optimal-auction', 'proj_data', 'steam.rds') ) saveRDS(dc, file = file.path('..', 'optimal-auction', 'proj_data', 'dc.rds') ) saveRDS(pod, file = file.path('..', 'optimal-auction', 'proj_data', 'pod.rds') ) saveRDS(pecota, file = file.path('..', 'optimal-auction', 'proj_data', 'bp.rds') )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.