tests/testthat/test_umx_rename.r

In tbates/umx: Structural Equation Modeling and Twin Modeling in R

# library(testthat)
# library(devtools)
# library(umx)
# testthat::test_file("~/bin/umx/tests/testthat/test_umx_rename.r") 
# 
# test_package("umx")
test_that("umx_rename works for different values", {
	data(mtcars)
	x = mtcars
	oldNames <- c("mpg", "cyl", "disp", "hp", "drat", "wt", "qsec", "vs", "am", "gear", "carb")
	newNames = oldNames
	newNames[2] = "cylinder"
	x = umx_rename(x, to = c(cyl = "cylinder"))
	expect_equal(names(x), newNames)

	# ==============================
	# = test update a missing name =
	# ==============================
	# Warning message:
	# In umx_rename(tmp, replace = c(cyl = "cylinder")) :
	#   The following names did not appear in the dataframe:cyl
	# perhaps you already updated them"

	expect_warning(umx_rename(x, to = c(cyl = "cylinder")))

	expect_warning(umx_rename(x, to = c(cyl = "cylinder")))

	# alternate style
	x = mtcars
	umx_rename(x, from = c("cyl"), to = c("cylinder"), test=TRUE)	
	x = umx_rename(x, from = "cyl", to = "cylinder")
	expect_equal(names(x), newNames)
})