# test-sql.r context( "sql" ) x <- "SELECT * FROM table" stmt <- sql( x ) expect_is(stmt, "sql") expect_equal( stmt[[1]], x )
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.