#' hi
#' @param output_dir a
#' @param SYNDROM a
#' @export sykdompulspdf_template_copy
sykdompulspdf_template_copy <- function(output_dir, SYNDROM){
dir <- system.file("extdata", package = "sykdomspulspdf")
files <- list.files(dir,pattern=paste("monthly_report_",SYNDROM,".Rmd",sep=""))
for(f in files){
file.copy(
from=file.path(dir,f),
to=file.path(output_dir,f))
}
}
#' hi
#' @param output_dir a
#' @param SYNDROM a
#' @export sykdompulspdf_template_remove
sykdompulspdf_template_remove <- function(output_dir, SYNDROM){
dir <- system.file("extdata", package = "sykdomspulspdf")
files <- list.files(dir,pattern=paste("monthly_report_",SYNDROM,".Rmd",sep=""))
for(f in files){
file.remove(file.path(output_dir,f))
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.