context("read_collected_operators")
test_that("example", {
df <- wiritttea::read_collected_operators(
wiritttea::find_path("read_collected_operators.csv"))
testthat::expect_equal(nrow(df), 10)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.