tests/testthat/test-createJSON.R

# REQUIRE TEST toJSON ---------------------------------------------

test_that('REQUIRE TEST toJSON', {
	j <- createJSON(movefile=FALSE)
    	expect_true(j)
    	mypath <- file.path("zelig5models.json")
    expect_true(file.exists(mypath))
    expect_true(validate(readChar(mypath, file.info(mypath)$size)))
    file.remove(file.path(mypath))
})

Try the Zelig package in your browser

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

Zelig documentation built on May 2, 2019, 8:24 a.m.