In almartin82/projprep: Preps Fantasy Baseball Projection System Files

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')
)