# test Tastermonial functions
test_that("Tastermonial file reads correctly", {
expect_equal(nrow(taster_df(file = system.file("extdata",
package = "psiCGM",
"TastermonialNotes.csv"))), 76)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.