In reyzaguirre/pepa: Package for the Execution of Pre Cooked Analysis

library(knitr)
opts_chunk$set(echo = FALSE, comment = NA)

# Pass arguments

dfr <- params$dfr
vars <- params$vars
line <- params$line
tester <- params$tester
rep <- params$rep

# Define genotypes id

dfr[, 'geno'] <- paste(dfr[, line], dfr[, tester])

lc.gd <- ck.lxt(dfr, line, tester)

out <- NULL
for (i in 1:length(vars)) {
  lc <- ck.rcbd(dfr, vars[i], 'geno', rep)
  if (lc$ng.0 == 0 & lc$nrep > 1 & lc$ng.mult == 0 & lc$nmis == 0 &
      lc.gd$c1 == TRUE & lc.gd$c2 == TRUE & lc.gd$c3 == TRUE) {
    out <- c(out, knit_expand('child_lxt.Rmd'))
  } else {
    out <- c(out, knit_expand('child_lxt_fail.Rmd'))
  }
}