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 parent as child:

grand <- "grand"
grandNparent <- "grand"
grandNchild <- "grand"
all <- "grand"

varNames <- c("child", "parent", "grand",
                  "grandNchild", "grandNparent", "parentNchild", "all" )
vars <- sapply( varNames, function( var ) {
    ifelse( exists( var), get(var), "")
})

data.frame( Variable= vars,
            WantBeforeGrand= c("", "", "grand", "grand", "grand", "", "grand" )
)

Calling parent as child:

ComplexRmd::includeChild( "returnParent.Rmd", import= varNames )

After calling parent as child

varNames <- c("child", "parent", "grand",
                  "grandNchild", "grandNparent", "parentNchild", "all" )
vars <- sapply( varNames, function( var ) {
    ifelse( exists( var), get(var), "")
})

data.frame( Variable= vars,
            WantAfterGrand= c("child", "parent", "grand", "child", "parent", "child", "child" )
)

Grand parent end

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