Check SpParamsMED

emf-creaf · Sep 12, 2024 · d30c4eb · d30c4eb
1 parent 0d15f9e
commit d30c4eb
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 1 deletion.
diff --git a/data-raw/InitialSpParamsMED.xlsx b/data-raw/InitialSpParamsMED.xlsx
diff --git a/data-raw/ReloadParameters.R b/data-raw/ReloadParameters.R
@@ -18,7 +18,7 @@ usethis::use_data(SpParamsDefinition, overwrite = T)
 
 
 
-# SpParamsMED -------------------------------------------------------------
+# SpParamsMED [MODE A] -------------------------------------------------------------
 SpParamsMED <-as.data.frame(readxl::read_xlsx("data-raw/InitialSpParamsMED.xlsx",
                                               sheet="InitialSpParamsMED", na = "NA"), stringsAsFactors=FALSE)
 
@@ -89,6 +89,12 @@ openxlsx::saveWorkbook(wb,"data-raw/SpParamsMED.xlsx", overwrite=TRUE)
 rm(SpParamsMED)
 
 
+# SpParamsMED [MODE B] -------------------------------------------------------------
+SpParamsMED <-as.data.frame(readxl::read_xlsx("data-raw/SpParamsMED.xlsx",
+                                              sheet="SpParamsMED", na = "NA"), stringsAsFactors=FALSE)
+usethis::use_data(SpParamsMED, overwrite = T)
+
+
 ## Trait family means
 trait_family_means = read.csv2("data-raw/trait_family_means.csv", dec=".")
 usethis::use_data(trait_family_means, internal=TRUE, overwrite=TRUE)

diff --git a/data-raw/SpParamsMED.xlsx b/data-raw/SpParamsMED.xlsx
diff --git a/data/SpParamsMED.rda b/data/SpParamsMED.rda