R/create_projections.R

In RandalMorris/AnalyticsFootball: Fantasy Data from Various Data Sources

#' Create Projections and save data
#'
#'
#'
#' @export
#'
CreateProjections <- function(){



  message("Starting Fred")
  usecase <<- "Fred"
  Team_Setup(usecase)
  projection_data()
  Fred <<- my_projections %>% mutate_if(is.numeric, round, digits=2) %>% arrange(position, pos_rank)
  zip_format(usecase,vartype,varseason)

  message("Starting Steven")
  usecase <<- "Steven"
  Team_Setup(usecase);
  projection_data()
  Steven <<- my_projections %>% mutate_if(is.numeric, round, digits=2) %>% arrange(position, pos_rank)
  zip_format(usecase,vartype,varseason)

  message("Starting David")
  usecase <<- "David"
  Team_Setup(usecase);
  projection_data()
  David <<- my_projections %>% mutate_if(is.numeric, round, digits=2) %>% arrange(position, pos_rank)
  zip_format(usecase,vartype,varseason)

  message("Starting NarFFL")
  usecase <<- "NarFFL"
  Team_Setup(usecase);
  projection_data()
  NarFFL <<- my_projections %>% mutate_if(is.numeric, round, digits=2) %>% arrange(position, pos_rank)
  zip_format(usecase,vartype,varseason)

  message("Starting FTA")
  usecase <<- "FTA"
  Team_Setup(usecase);
  projection_data()
  FTA <<- my_projections %>% mutate_if(is.numeric, round, digits=2) %>% arrange(position, pos_rank)
  Reddit_Update()
  zip_format(usecase,vartype,varseason)

  save(Fred, Steven, David, NarFFL, FTA, file = paste0(getwd(),"/FantasyFootballApp/data/ProjectionData.rdata"))

  #########Save All Objects#########
  save.image(file = paste0(getwd(),"/Data/", vartype,"/ScrapeData/",varseason,"/R Image for ", Sys.Date(),".rdata"))
  #########Deploy App#########



}