data-raw/raw_data_create.R

In McClellandLegge/netmathtools: Automate NetMath Mentor Duties

schedules <- list(
  `deployedcourses/uiuc_netmath_math461_r2012_mm` = data.table::fread("data-raw/netmath461.csv")
  , `deployedcourses/uiuc_netmath_ma461egr_fs2016_fall16` = data.table::fread("data-raw/netmath461EGR.csv")
  , `deployedcourses/uiuc_netmath_math461_sps2017_egr` = data.table::fread("data-raw/netmath461EGR.csv")
  , `deployedcourses/uiuc_netmath_math461_fs2017_egr` = data.table::fread("data-raw/netmath461EGR.csv")
  , `deployedcourses/uiuc_netmath_ma461_sus2017_egr` = data.table::fread("data-raw/netmath461EGRSummer2017.csv")
)

status <- data.table::data.table(
  low = c(-999, 1, 3, 4)
  , high = c(0, 2, 3, 999)
  , ProgressStatus = c("Green", "Yellow", "Orange", "Red")
)

api <-  "https://courseware.mathable.io/WSAPI.asmx"
devtools::use_data(schedules, api, status, internal = TRUE, overwrite = TRUE)