#' Deletes the given rule form the parser.
#'
#' @param parser, a peg parser produced by new.parser
#' @param rule.id, a character string naming the rule
#'
#' #' # Deleteing a rule
#' @examples
#' peg<-new.parser()
#' peg<-add_rule(peg, "A<-'a'")
#' peg<-add_rule(peg, "B<-'b'")
#' peg
#' peg<-delete_rule(peg, "A")
#' peg
#' @export
delete_rule<-function(pegR, rule.id){
#delete rule
if(!("pegR" %in% class(pegR))){ stop("first argument not a peg parser", call. = FALSE)}
peg<-pexClonePegR(pegR) #to make it look like R
pexDeleteRule(peg, rule.id)
peg
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.