tests/testthat/test_miscellaneous.R

In clinUtils: General Utility Functions for Analysis of Clinical Data

context("Test miscellaneous functions")

test_that("Columns are corectly reordered", {
	
	data <- data.frame(
		USUBJID = c("subj1", "subj2", "subj3"),
		TRT = c("A", "B", "A"),
		AGE = sample.int(n = 10, size = 3)
	)
			
	dataOrder <- reorderColumns(
		data = data, 
		vars = c("USUBJID" = 1)
	)			
	expect_is(dataOrder, "data.frame")
	
	# order properly set
	expect_equal(colnames(dataOrder)[1], "USUBJID")
	
	# dataset not modified
	expect_identical(data[, colnames(dataOrder)], dataOrder)
	
	# all columns are retained
	expect_setequal(colnames(data), colnames(dataOrder)) 
	
})

test_that("An error is generated if a column to reorder is not available in the data", {
		
	data <- data.frame(
		USUBJID = c("subj1", "subj2", "subj3"),
		TRT = c("A", "B", "A"),
		AGE = sample.int(n = 10, size = 3)
	)
	expect_error(
		reorderColumns(
			data = data, 
			vars = c("unexistingColumn" = 1, "VAR1" = 2)
		),
		"var.* not available in the data"
	)			
			
})

test_that("A sentence in lower case is correctly capitalized", {
	
	expect_identical(
		object = unname(simpleCap(x = "this is an example sentence")), 
		expected = "This is an example sentence"
	)
	
})

test_that("All words of a sentence in lower case are correctly capitalized", {
			
	expect_identical(
		object = unname(simpleCap(x = "this is an example sentence", onlyFirst = FALSE)), 
		expected = "This Is An Example Sentence"
	)
	
})

test_that("A sentence is correctly non capitalized", {
			
	expect_identical(
		object = unname(simpleCap(x = "This is a test", rev = TRUE)), 
		expected = "this is a test"
	)
			
})