tests/testthat/test-fct_mod_contribution.R

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