context('Writing data')
griddata <- read.temperatures(system.file('extdata/tann1.nc', package='fldgen'))
test_that('data written to netCDF is identical to original.',
{
d <- tempdir()
file <- file.path(d,'test.nc')
if(file.exists(file)) {
unlink(file)
}
write.temperature(griddata$tas, file, griddata)
expect_true(file.exists(file))
griddata2 <- read.temperatures(file)
expect_equal(griddata2$tas, griddata$tas)
unlink(file)
})
test_that('clobber argument to write.temperature works',
{
## create a dummy file
d <- tempdir()
file <- file.path(d, 'test.nc')
write('NOT to leave the room, even if you come and get him.',
file)
expect_error(write.temperature(griddata$tas, file, griddata), 'exists and clobber')
expect_silent(write.temperature(griddata$tas, file, griddata, clobber=TRUE))
## verify that we can read the result
expect_silent(read.temperatures(file))
unlink(file)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.