From e8c61dc3560c2507f9467398ace723f037b2c9d7 Mon Sep 17 00:00:00 2001
From: dj44vuri <julian.sagebiel@idiv.de>
Date: Fri, 15 Dec 2023 15:37:15 +0100
Subject: [PATCH] made generate markdown as function
---
Projects/CSA/ExperimentalDesign.R | 1 +
functions.R | 16 ++++++++++++++++
generatemd.R | 11 +++--------
3 files changed, 20 insertions(+), 8 deletions(-)
diff --git a/Projects/CSA/ExperimentalDesign.R b/Projects/CSA/ExperimentalDesign.R
index 2ff47e8..8f40a98 100644
--- a/Projects/CSA/ExperimentalDesign.R
+++ b/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")
diff --git a/functions.R b/functions.R
index 231ffb5..2092551 100644
--- a/functions.R
+++ b/functions.R
@@ -1,6 +1,22 @@
+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
diff --git a/generatemd.R b/generatemd.R
index 36f349f..d3d9b3a 100644
--- a/generatemd.R
+++ b/generatemd.R
@@ -1,16 +1,11 @@
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
--
GitLab