tests/testthat/test-tastermonial.R

# test Tastermonial functions

test_that("Tastermonial file reads correctly", {
  expect_equal(nrow(taster_df(file = system.file("extdata",
                                                 package = "psiCGM",
                                                 "TastermonialNotes.csv"))), 76)
})
personalscience/psi-shiny-cgm documentation built on Dec. 22, 2021, 7:43 a.m.