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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.