context("update variables")
test_that("test basic functionality", {
iris_dt <- data.table(iris)
update_columns(iris_dt, 1L, as.character)
update_columns(iris_dt, c("Sepal.Width", "Petal.Length"), as.factor)
update_columns(iris_dt, "Petal.Width", as.integer)
expect_is(iris_dt[[1]], "character")
expect_is(iris_dt$Sepal.Width, "factor")
expect_is(iris_dt$Petal.Length, "factor")
expect_is(iris_dt$Petal.Width, "integer")
expect_is(iris_dt, "data.table")
})
test_that("test non-data.table objects", {
expect_is(update_columns(iris, 1L, as.character), "data.frame")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.