auxiliary/helperfunctions/write_tasktext.R

In ahgroup/DSAIRM: Dynamical Systems Approach to Immune Response Modeling

#helper function that writes task text for each app into the Rmd/html file
library(dplyr)

write_tasktext <- function(alltext)
{

  ntasks = max(alltext$TaskID)

  for (n in 1:ntasks)
  {

    rtext <- dplyr::filter(alltext, TaskID==n)

    writeLines(c(paste('### Task ',n), '\n', paste(unique(rtext["TaskText"])), '\n',  '**Record**', '\n'))

    for (k in 1:nrow(rtext)){
      writeLines(c(paste("*",rtext[k,"Record"]), '\n'))
    }

  }
}