library(dply2)
context("Check Filter")
expect_equal(capture.output(df <- filter2(dplyr::starwars, gender == "female")),
c("", "Filtering for gender == \"female\".", "\tRows Dropped: 68"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.