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