library(mansched)
library(readxl)
xlsxFile <- system.file("exdata", "sampleData.xlsx", package = "mansched")
empReq <- readxl::read_xlsx(path = xlsxFile,
sheet = "Requirement")
sched <- readxl::read_xlsx(path = xlsxFile,
sheet = "Schedule",
col_types = c("text",
"numeric",
"numeric",
"numeric",
"numeric",
"numeric",
"numeric",
"numeric",
"numeric",
"numeric",
"numeric",
"numeric",
"numeric"))
empPool <- readxl::read_xlsx(path = xlsxFile,
sheet = "Pool")
hol <- readxl::read_xlsx(path = xlsxFile,
sheet = "hol")
manReq <- initEmpReq(empReq = as.data.frame(empReq),
sched = as.data.frame(sched),
hol = as.data.frame(hol),
year = 2018)[[1]]
test_that("initEmpReq() works", {
expect_equal(length(manReq), 3)
})
rm(list = ls())
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.