Merge pull request #29 from UZH-PEG/revision1

v0.9.1: Revision1

R/check_microxanox_version.R

@@ -0,0 +1,14 @@
+## package version check
+
+if(packageVersion("microxanox") != package_version(microxanox_version_required))
+  microxanox_version_check_result <- "**Stop**: incompatability in microxanox versions required and installed."
+
+if(packageVersion("microxanox") == package_version(microxanox_version_required))
+  microxanox_version_check_result <- microxanox_version_required
+
+if(microxanox_version_check_result != microxanox_version_required)
+  print(microxanox_version_check_result)
+if(microxanox_version_check_result == microxanox_version_required)
+  print(paste0("**OK**: microxanox package check passed. Working with version ", microxanox_version_check_result))
+
+microxanox_path <- paste0("microxanox_v", microxanox_version_required)

R/make_data_folders.R

@@ -0,0 +1,40 @@
+## make data folder structure
+
+result <- NA
+
+if(dir.exists(here("data",
+                   microxanox_path)))
+  result <- paste0("Data folders exist already for results using ", microxanox_path)
+
+if(!dir.exists(here("data",
+                   microxanox_path))) {
+  result <- paste0("New folders created for results using ", microxanox_path)
+  res1 <- dir.create(here("data",
+                          microxanox_path,
+                          "temporal_method",
+                          "event_definition_1",
+                          "processed_data"),
+                     recursive = TRUE)
+  res2 <- dir.create(here("data",
+                          microxanox_path,
+                          "temporal_method",
+                          "event_definition_2",
+                          "processed_data"),
+                     recursive = TRUE)
+  res3 <- dir.create(here("data",
+                          microxanox_path,
+                          "temporal_method",
+                          "puzzles"))
+  res4 <- dir.create(here("data",
+                          microxanox_path,
+                          "temporal_method",
+                          "single_sims"))
+  res5 <- dir.create(here("data",
+                          microxanox_path,
+                          "replication_method",
+                          "event_definition_2",
+                          "processed_data"),
+                     recursive = TRUE)
+  if(res1 & res2 & res3 & res4 & res5)
+    result <- paste0("New folders created for results using ", microxanox_path)
+}