inst/tests/test-numeric_to_factor.r

In robertzk/syberiaMungebits: Common mungebits used with Syberia projects.

context("numeric_to_factor helper function")
# TODO: (RK) Restore this. Currently fails on Travis CI
#
#test_that("it correctly restores a bunch of levels", {
#  nums <- -25:25
#  levs <- c("[2, 10)", "[10, 20)", "[-5, -3)", "(-20, -10]", "[0, 1]", "-2")
#  converts <- numeric_to_factor(nums, levs)
#
#  actual_restores <- 
#   factor(c("Missing", "Missing", "Missing", "Missing", "Missing", "Missing",
#      "(-20, -10]", "(-20, -10]", "(-20, -10]", "(-20, -10]", "(-20, -10]",
#      "(-20, -10]", "(-20, -10]", "(-20, -10]", "(-20, -10]", "(-20, -10]",
#      "Missing", "Missing", "Missing", "Missing", "[-5, -3)", "[-5, -3)",
#      "Missing", "-2", "Missing", "[0, 1]", "[0, 1]", "[2, 10)", "[2, 10)",
#      "[2, 10)", "[2, 10)", "[2, 10)", "[2, 10)", "[2, 10)", "[2, 10)",
#      "[10, 20)", "[10, 20)", "[10, 20)", "[10, 20)", "[10, 20)", "[10, 20)",
#      "[10, 20)", "[10, 20)", "[10, 20)", "[10, 20)", "Missing", "Missing",
#      "Missing", "Missing", "Missing", "Missing"),
#    levels = c("[2, 10)", "[10, 20)", "[-5, -3)", "(-20, -10]", "[0, 1]", "-2", "Missing"))
#
#  expect_equal(converts, actual_restores)
#})
#
#test_that("it correctly restores a bunch of levels without adding Missing", {
#  nums <- -25:25
#  levs <- c("[2, 10)", "[10, 20)", "[-5, -3)", "(-20, -10]", "[0, 1]", "-2")
#  converts <- numeric_to_factor(nums, levs, FALSE)
#
#  actual_restores <- 
#   factor(c(NA, NA, NA, NA, NA, NA,
#      "(-20, -10]", "(-20, -10]", "(-20, -10]", "(-20, -10]", "(-20, -10]",
#      "(-20, -10]", "(-20, -10]", "(-20, -10]", "(-20, -10]", "(-20, -10]",
#      NA, NA, NA, NA, "[-5, -3)", "[-5, -3)",
#      NA, "-2", NA, "[0, 1]", "[0, 1]", "[2, 10)", "[2, 10)",
#      "[2, 10)", "[2, 10)", "[2, 10)", "[2, 10)", "[2, 10)", "[2, 10)",
#      "[10, 20)", "[10, 20)", "[10, 20)", "[10, 20)", "[10, 20)", "[10, 20)",
#      "[10, 20)", "[10, 20)", "[10, 20)", "[10, 20)", NA, NA,
#      NA, NA, NA, NA),
#    levels = c("[2, 10)", "[10, 20)", "[-5, -3)", "(-20, -10]", "[0, 1]", "-2"))
#
#  expect_equal(converts, actual_restores)
#})
#