library(testthat)
context("get_description")
test_that("GET_DESCRIPTION",
{
pegR<-new.parser()
pegR<-add_rule(pegR, "A<-'a'")
txt<-"recognizes 'a'"
pegR<-set_description(pegR, "A", txt)
txt2<-get_description(pegR, "A")
expect_equal(txt, txt2)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.