tests/testthat/test-XDataFrame.R

require(testthat)
require(Cardinal)

context("XDataFrame class")

test_that("XDataFrame basics", {
	
	expect_true(validObject(new("XDataFrame")))

	xdf <- XDataFrame(x=1:10, y=11:20)

	xdf$z <- 21:30

	expect_true(validObject(xdf))

	xdf$z <- NULL

	expect_true(validObject(xdf))

})

Try the Cardinal package in your browser

Any scripts or data that you put into this service are public.

Cardinal documentation built on Nov. 8, 2020, 11:10 p.m.