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

Child START

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")
)

Child END



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