tests/testthat/test-viable_obs.R

test_that("viable obs", {
  expect_true(
    "data.frame" %in% (
    viable_observations(
    hpp_obs %>% 
      dplyr::filter(outcome == "pain_int")
  ) %>% class())
  
  )
})
softloud/hppapp documentation built on Dec. 23, 2021, 3:31 a.m.