tests/testthat/test-sounding_wind.R

test_that ("sounding_wind test", {
  
  data("sounding_vienna")
  attach(sounding_vienna)
  fname = paste0(tempfile(), ".png")
  png(fname)
  sounding_wind(pressure = pressure, ws = ws, yaxs = TRUE)
  dev.off()
  
  expect_true(file.size(fname) > 0)
  
})

Try the thunder package in your browser

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

thunder documentation built on Nov. 11, 2023, 9:06 a.m.