### fct_sync() -----------------------------------------------------
context("Test fct_sync()")
mt1 <- mtcars %>% mutate(cyl = factor(cyl, levels = c(6,8,4)),
am = factor(am, levels = c(1,0)))
mtcars <- fct_sync(mtcars, mt1)
test_that("levels are synced", {
expect_equal(levels(mtcars$am), levels(mt1$am))
expect_equal(levels(mtcars$cyl), levels(mt1$cyl))
})
rm(mt1, mtcars)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.