library(mansched)
spareFactor <- 1
calDays <- getCalDays(cBegin = "2018-01-01",
hol = getHol(hol = holidays, year = "2018"),
restday = "Sunday")
mdtProb <- getMDTProb(hol = getHol(hol = holidays, year = 2018))
testDays <- c(25, 24, 27, 22, 25, 23, 25, 25, 24, 26, 24, 24)
empListA <- list()
empListB <- list()
empListC <- list()
empListD <- list()
empListE <- list()
empListF <- list()
empListG <- list()
empListH <- list()
empListI <- list()
empListA[[1]] <- createEmp("divisionmanager")
empListA[[2]] <- createEmp("departmentmanager")
empListB[[1]] <- createEmp("sectionhead")
empListB[[2]] <- createEmp("sectionhead")
empListB[[3]] <- createEmp("sectionhead")
empListB[[1]] <- initTEmployee(theObject = empListB[[1]],
ID = "E1",
costCenter = "C01",
calDays = calDays)
empListB[[2]] <- initTEmployee(theObject = empListB[[2]],
ID = "E1",
costCenter = "C01",
calDays = calDays)
empListB[[3]] <- initTEmployee(theObject = empListB[[3]],
ID = "E1",
costCenter = "C02",
calDays = calDays)
empListC[[1]] <- createEmp("sectionhead")
empListC[[2]] <- createEmp("sectionhead")
empListC[[3]] <- createEmp("sectionhead")
empListC[[1]] <- initTEmployee(theObject = empListC[[1]],
ID = "E1",
costCenter = "C01",
calDays = calDays)
empListC[[2]] <- initTEmployee(theObject = empListC[[2]],
ID = "E1",
costCenter = "C01",
calDays = calDays)
empListC[[3]] <- initTEmployee(theObject = empListC[[3]],
ID = "E1",
costCenter = "C01",
calDays = calDays)
empMergedC <- mergeEmp(empListC)
empListD[[1]] <- createEmp("supervisor")
empListD[[2]] <- createEmp("supervisor")
empListD[[3]] <- createEmp("supervisor")
empListD[[1]] <- initTEmployee(theObject = empListD[[1]],
ID = "E1",
costCenter = "C01",
mdtProb = mdtProb)
empListD[[2]] <- initTEmployee(theObject = empListD[[2]],
ID = "E1",
costCenter = "C01",
mdtProb = mdtProb)
empListD[[3]] <- initTEmployee(theObject = empListD[[3]],
ID = "E1",
costCenter = "C02",
mdtProb = mdtProb)
empListD[[1]] <- createEmp("supervisor")
empListD[[2]] <- createEmp("supervisor")
empListD[[3]] <- createEmp("supervisor")
empListE[[1]] <- createEmp("supervisor")
empListE[[2]] <- createEmp("supervisor")
empListE[[3]] <- createEmp("supervisor")
empListD[[1]] <- initTEmployee(theObject = empListD[[1]],
ID = "E1",
costCenter = "C01",
mdtProb = mdtProb)
empListD[[2]] <- initTEmployee(theObject = empListD[[2]],
ID = "E1",
costCenter = "C01",
mdtProb = mdtProb)
empListD[[3]] <- initTEmployee(theObject = empListD[[3]],
ID = "E1",
costCenter = "C02",
mdtProb = mdtProb)
empListE[[1]] <- initTEmployee(theObject = empListE[[1]],
ID = "E1",
costCenter = "C01",
mdtProb = mdtProb)
empListE[[2]] <- initTEmployee(theObject = empListE[[2]],
ID = "E1",
costCenter = "C01",
mdtProb = mdtProb)
empListE[[3]] <- initTEmployee(theObject = empListE[[3]],
ID = "E1",
costCenter = "C01",
mdtProb = mdtProb)
empListF[[1]] <- createEmp("operator")
empListF[[2]] <- createEmp("operator")
empListF[[3]] <- createEmp("operator")
empListG[[1]] <- createEmp("operator")
empListG[[2]] <- createEmp("operator")
empListG[[3]] <- createEmp("operator")
empListH[[1]] <- createEmp("operator")
empListH[[2]] <- createEmp("operator")
empListH[[3]] <- createEmp("operator")
empListI[[1]] <- createEmp("operator")
empListI[[2]] <- createEmp("operator")
empListI[[3]] <- createEmp("operator")
empListF[[1]] <- initTEmployee(theObject = empListF[[1]],
ID = "E1",
costCenter = "C01",
equipment = "DT",
mdtProb = mdtProb)
empListF[[2]] <- initTEmployee(theObject = empListF[[2]],
ID = "E1",
equipment = "DT",
costCenter = "C01",
mdtProb = mdtProb)
empListF[[3]] <- initTEmployee(theObject = empListF[[3]],
ID = "E1",
costCenter = "C02",
equipment = "DT",
mdtProb = mdtProb)
empListG[[1]] <- initTEmployee(theObject = empListG[[1]],
ID = "E1",
costCenter = "C01",
equipment = "DT",
mdtProb = mdtProb)
empListG[[2]] <- initTEmployee(theObject = empListG[[2]],
ID = "E1",
equipment = "DT",
costCenter = "C01",
mdtProb = mdtProb)
empListG[[3]] <- initTEmployee(theObject = empListG[[3]],
ID = "E1",
costCenter = "C01",
equipment = "TX",
mdtProb = mdtProb)
empListH[[1]] <- initTEmployee(theObject = empListH[[1]],
ID = "E1",
costCenter = "C01",
equipment = "DT",
mdtProb = mdtProb)
empListH[[2]] <- initTEmployee(theObject = empListH[[2]],
ID = "E1",
equipment = "DT",
costCenter = "C01",
mdtProb = mdtProb)
empListH[[3]] <- initTEmployee(theObject = empListH[[3]],
ID = "E1",
costCenter = "C02",
equipment = "TX",
mdtProb = mdtProb)
empListI[[1]] <- initTEmployee(theObject = empListI[[1]],
ID = "E1",
costCenter = "C01",
equipment = "DT",
mdtProb = mdtProb)
empListI[[2]] <- initTEmployee(theObject = empListI[[2]],
ID = "E1",
equipment = "DT",
costCenter = "C01",
mdtProb = mdtProb)
empListI[[3]] <- initTEmployee(theObject = empListI[[3]],
ID = "E1",
costCenter = "C01",
equipment = "DT",
mdtProb = mdtProb)
test_that("mergeEmp() works", {
expect_error(mergeEmp(empListA))
expect_error(mergeEmp(empListB))
expect_equal(sum(getHours(empMergedC)),
sum(calDays$reg * 8) * length(empListC))
expect_equal(empMergedC@ID, "SectionHead-C01")
expect_error(mergeEmp(empListD))
expect_equal(sum(getHours(mergeEmp(empListE))), getHoursL(empListE))
expect_equal(mergeEmp(empListE)@ID, "Supervisor-C01")
expect_equal(mergeEmp(empListE)@costCenter, "C01")
expect_error(mergeEmp(empListF))
expect_error(mergeEmp(empListG))
expect_error(mergeEmp(empListH))
expect_equal(sum(getHours(mergeEmp(empListI))), getHoursL(empListI))
expect_equal(mergeEmp(empListI)@ID, "Operator-C01-DT")
expect_equal(mergeEmp(empListI)@costCenter, "C01")
})
rm(list = ls())
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.