library(knitr) # Pass arguments traits <- params$traits line <- params$line tester <- params$tester rep <- params$rep dfr <- params$dfr # Define genotypes id dfr[, 'geno'] <- paste(dfr[, line], dfr[, tester])
lc.gd <- ck.lxt(line, tester, dfr) out <- NULL for (i in 1:length(traits)) { lc <- ck.rcbd(traits[i], 'geno', rep, dfr) 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')) } }
r paste(knit(text = out), collapse = '\n')
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.