tests/testthat/test-unfinished_ratings.R

In bgcarlisle/ctcovidstop: Clinical trials that stopped during the Covid-19 pandemic

test_that("No unfinished ratings", {

    unfinished_rows <- c19stoppedtrials %>%
        dplyr::filter(covid19_explicit) %>%
        dplyr::filter(is.na(restart_expected)) %>%
        nrow()
    
    expect_equal(
        unfinished_rows,
        0
    )
    
})