In JefferysAnalysis/ComplexRmd: Support for Complex R Markdown Based Analysis

options(knitr.duplicate.label = "allow")
knitr::opts_chunk$set(echo = TRUE, include= TRUE, message = TRUE)

Grand parent start

Before calling child:

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("", "", "grand", "grand", "grand", "", "grand" ))

Calling parent as child:

ComplexRmd::includeChild( "paramParent.Rmd" )

After calling parent as child, back to starting grand parameters:

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("", "", "grand", "grand", "grand", "", "grand" ))

Grand parent end

JefferysAnalysis/ComplexRmd documentation built on Dec. 18, 2021, 12:35 a.m.