context( "search" )
test_that( "works as expected", {
expect_equal( nrow( sch( iris, 'setos') ), 50 )
expect_equal( nrow( sch( iris, 'Setos', ignore.case = FALSE ) ), 0 )
expect_equal( nrow( sch( iris, '.', do.regex = TRUE ) ), nrow(iris) )
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.