tests/testthat/test-fct_mod_compare.R

test_that("make_barplot works", {
  df <- suppressWarnings(fst::read_fst(app_sys("app/extdata/VR21nlboff.fst")))
  inps <- c("H", "AB")
  expect_true(all(class(make_barplot(df, inps)) == c("plotly", "htmlwidget")))
})
nelstevens/baseballdashboard documentation built on May 25, 2023, 11:40 p.m.