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)

Parent start

Before calling child:

parent <- "parent"
grandNparent <- "parent"
parentNchild <- "parent"
all <- "parent"

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

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

Calling child:

ComplexRmd::includeChild( "returnChild.Rmd",
    import = c("child", "grandNchild", "parentNchild", "all" ))

After calling child

Variables

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

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

Parent end

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