options(knitr.duplicate.label = "allow") knitr::opts_chunk$set(echo = TRUE, include= TRUE, message = TRUE)
paramNames <- c("child", "parent", "grand", "grandNchild", "grandNparent", "parentNchild", "all" ) opts <- sapply( paramNames, function( opt ) { ifelse(is.null(params[[ opt ]]), "", params[[ opt ]]) }) data.frame( Param= opts, WantDirect= c("child", "", "", "child", "", "child", "child" ), WantFromParent= c("child", "parent", "", "child", "parent", "parent", "parent"), WantFromGrandFromParent= c("child", "parent", "grand", "grand", "grand", "parent", "grand") )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.