tests/testthat/test-vis_miss.R

context("vis_miss")

test_that("Valid ggplot object is produced",{
  skip_on_cran()
  skip_on_ci()

  monitors <- c("ASN00003003", "ASM00094299")
  weather_df <- suppressMessages(meteo_pull_monitors(monitors))
  out <- vis_miss(weather_df)

  expect_is(out, "ggplot")
})

Try the rnoaa package in your browser

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

rnoaa documentation built on April 27, 2023, 9:08 a.m.