R/GetPMID-writeLines-publish.R

In sbalci/AutoJournalWatch: Auto Journal Watch.

# read code generation function


# write code to Rmd


# combine Rmd Files


# seperator <- paste("\n", "\n", "---", "\n", sep = "\n")

articleHeader <- readLines("~/JournalWatchLocalShiny/articleHeader.Rmd")
articles <- readLines("~/JournalWatchLocalShiny/articles.Rmd")

cat(articleHeader,
    articles,
    file = "~/JournalWatchLocalShiny/combined.Rmd",
    sep = "\n")



<!-- # outputname1 <- paste0("ReportEndometriosisAnalysis", as.character(Sys.time()), ".pdf", collapse = "") -->
<!-- rmarkdown::render(input = "EndometriosisAnalysis.Rmd",  -->
<!--                   output_format = "pdf_document", -->
<!--                   output_dir = "prod/charts/", -->
<!--                   # output_file = outputname1 -->
<!--                   output_file = "EndometriosisAnalysis.pdf" -->
<!--                   ) -->
<!-- ezknitr::ezknit(file = "EndometriosisAnalysis.Rmd", wd = getwd(), fig_dir = "prod/charts/", out_dir = "prod/charts/", keep_html = TRUE, out_suffix = outsuffix, keep_md = TRUE) -->


# source Rmd file with header and child Rmd files



rmarkdown::render(input = "~/JournalWatchLocalShiny/combined.Rmd",
                                              output_format = "all",
                                              output_dir = "~/JournalWatchPBPath/",
                                              output_file = "RecentPBPathArticles.html"
                                              )