In cphaarmeyer/warlockr: Classic WoW Warlock Related Stuff

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  out.width = "100%"
)

Equip

This file keeps track of my current stats, equip and potential upgrades.

library(warlockr)

my_stats <- list(
  int = 284,
  sp = 750,
  crit = 8,
  hit = 10,
  mp5 = 0
)

my_stats_unbuffed <- with_buffs(my_stats)
my_stats_buffed <- with_buffs(my_stats, consumables = c("gae", "eosp", "bwo"))
my_stats_ony <- add_buff(my_stats_buffed, "ony")
unlist(my_stats_ony)

my_equip <- yaml::read_yaml("equip.yaml")
my_changes <- yaml::read_yaml("changes.yaml")
my_bank <- yaml::read_yaml("bank.yaml")

show_statweights <- function(stats) {
  t(compute_statweights(stats, seed = 42))
}

w <- max(nchar(names(c(my_changes, my_bank))))
show_result <- function(stats, changes) {
  df <- compare_equip(stats, my_equip, changes, seed = 561)
  df <- df[order(-df$dps), ]
  row.names(df) <- format(row.names(df), width = w)
  modifyList(df, lapply(df[c("dps", "diff")], round, digits = 2))
}


show_statweights(my_stats_buffed)
show_statweights(my_stats_ony)
show_statweights(my_stats_unbuffed)

show_result(my_stats_buffed, my_changes)

show_result(my_stats_buffed, my_bank)
show_result(my_stats_ony, my_bank)
show_result(my_stats_unbuffed, my_bank)