tests/testthat/test-wrf_raster.R

test_that("wrf_raster works", {
  f <- paste(system.file("extdata", package = "eixport"),"/wrfinput_d02", sep="")
  r <- wrf_raster(f,'XLAT')
  expect_equal(dim(r)[1], 51)
})

Try the eixport package in your browser

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

eixport documentation built on Sept. 30, 2024, 9:42 a.m.