auxiliary/helperfunctions/get_settings.R

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

#helper function that returns app settings for each Rmd doc file

get_settings <- function(currentrmdfile, appdocdir, packagename)
{
  appName = gsub("_documentation.Rmd" ,"",currentrmdfile)
  #load table that has all the app information
  filename = system.file(appdocdir, "apptable.tsv", package = packagename)
  at = read.table(file = filename, sep = '\t', header = TRUE)
  appsettings = as.list(at[which(at$appid == appName),])
  #a few apps have 2 simulator functions, combine here into vector
  if (nchar(appsettings$simfunction2) > 1) {appsettings$simfunction = c(appsettings$simfunction,appsettings$simfunction2)}

  return(appsettings)

}