data-raw/moneyball.R

In mlr-org/mlr3data: Collection of Machine Learning Data Sets for 'mlr3'

library("mlr3oml")

odata = OMLData$new(41021)
moneyball = odata$data
to_integer = c("Year", "RS", "RA", "W")
moneyball[, (to_integer) := lapply(.SD, as.integer), .SDcols = to_integer]
data.table::setnames(moneyball, new = tolower(colnames(moneyball)))

data.table::setDF(moneyball)

usethis::use_data(moneyball, overwrite = TRUE, compress = "xz")