tests/testthat/test-wrf_meta.R

test_that("wrf_meta works", {

  f  <- paste0(system.file("extdata", package = "eixport"),"/wrfinput_d02")
  df <- wrf_meta(f)
  DX <- df$global[7,2]

  expect_equal(DX,"3000")
})

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.