#' @export
setConfigs <- function(nbr_owners = 8,
season_year = 2019,
rankings_types = rep('fp', length(nbr_owners)),
draft_strategies = rep('ba', length(nbr_owners)),
team_limit = TRUE,
...){
behavior_df <- data.frame(team = 1:nbr_owners,
rankings = rankings_types,
strategy = draft_strategies,
stringsAsFactors = FALSE)
scoring_df <- data.frame(stat = c('r', 'hr', 'rbi', 'so', 'sb', 'slg', 'obp', 'e',
'gidp', 'ip', 'k', 'qs', 'whip', 'holds', 'sv'),
class = c(rep('hit', 9), rep('pitch', 6)),
category = c('+','+','+','-','+','+','+','-','-','+','+','+',
'-','+','+'),
method = c(rep('count', 5), 'ratio', 'ratio', rep('count', 5),
'ratio', 'count', 'count'))
roster_df <- tibble(roster = c('C', '1B', '2B', 'SS', '3B', 'LF', 'CF', 'RF', 'OF',
'DH', 'MI', 'CI', 'IF', 'Util', 'SP', 'RP', 'P'),
type = c(rep('hit', 14), rep('pitch', 3)),
position = list('C', '1B', '2B', 'SS', '3B', 'LF', 'CF', 'RF',
c('CF', 'RF', 'LF'), 'DH', c('2B', 'SS'),
c('1B', '3B'), c('1B', '2B', '3B', 'SS'),
c('C', '1B', '2B', '3B', 'SS', 'LF','CF', 'RF', 'DH'),
'SP', 'RP', c('SP', 'RP')),
count = c(1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 3, 5, 4, 3),
funnel = c(1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 2, 2, 4, 9, 1, 1, 2),
priority = c(1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 2, 3, 4, 1, 1, 2)) %>%
dplyr::mutate(population = count * nbr_owners)
summary_ <- list(total_players = sum(roster_df$count) * nbr_owners,
total_hitters = sum(roster_df$count[roster_df$type == 'hit']) *
nbr_owners,
total_pitchers = sum(roster_df$count[roster_df$type == 'pitch']) *
nbr_owners)
structure(list(season = season_year,
nbr_owners = nbr_owners,
behavior = behavior_df,
roster = roster_df,
scoring = scoring_df,
team_limit = team_limit,
summary = summary_),
class = 'fbbConfigs')
}
#' @export
vmc <- function(message, ...){
if (!is.null(list(...)$vmc)){
if (abs(list(...)$vmc) >= max(sys.parents())){
if (list(...)$vmc < 0){
message <- c(message, ": ", as.character(sys.calls()[[length(sys.calls())-1]])[1])
}
message(rep('.', max(sys.parents())), message)
}
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.