made generate markdown as function

Projects/CSA/ExperimentalDesign.R

@@ -39,3 +39,4 @@ summary(design)
 
 saveRDS(design$design, "Projects/CSA/Designs/design1.RDS")
 
+write.csv2(design$design, "Projects/CSA/Designs/design1.csv")

functions.R

+make_md <- function(f=file){
+  
+  
+  
+  
+  rmarkdown::render("simulation_output.rmd",
+                    output_file = paste0(
+                      stringr::str_remove_all(
+                        file,"parameters_|.R$"),".html"),
+                    params = list(file=file)
+  )
+  
+}
+
 
 sim_all <- function(){
 
+  require("stringr")
+  
   designfile<-list.files(designpath,full.names = T)
   designname <- str_remove_all(list.files(designpath,full.names = F),
                                "(.ngd|_|.RDS)")  ## Make sure designnames to not contain file ending and "_", as the may cause issues when replace

generatemd.R

 
 rm(list=ls())
 
+source("functions.R")
+
 file <- "Projects/feedadditives/parameters_feedadd.R"
 #  file <- "Projects/CSA/parameters_csa.R"
 
 
-rmarkdown::render("simulation_output.rmd",
-                  output_file = paste0(
-                    stringr::str_remove_all(
-                      file,"parameters_|.R$"),".html"),
-                  params = list(file=file)
-                  )
-
-
 
+make_md()
\ No newline at end of file