In CIP-RIU/hidap: High Interactive Data Analysis Platform for Plant breeding

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'))
  }
}