R/printMarkDownFunctions.R

In b97jre/GBP_scripts: GBP sequence data throughput

printProjectInfo <- function(tableDir = getwd(),
                             scriptDir = paste(getwd(),"scripts/RNAmappingPipeline/Rscripts", sep = "/"),
                             projectInfoRmdFile = paste(scriptDir,'ProjectInfo.Rmd', sep = "/"),
                             parameterTableFile = 'parameters.table.Rmd',
                             metaDataTableFile = 'metadata.table.Rmd'){
  print(tableDir)

  rmarkdown::render(projectInfoRmdFile, "all", params = list(
    tableDir = tableDir,
    scriptDir = scriptDir,
    parameterTableFile = parameterTableFile,
    metaDataTableFile = metaDataTableFile
  ))
}