Closes #91 Aligned the templates' save directory with {pharmaverseadam} requirements

NEWS.md

@@ -1,5 +1,13 @@
 # admiralneuro (development version)
 
+
+<details>
+<summary>Developer Notes</summary>
+
+- Aligned the templates' save directory with `{pharmaverseadam}` requirements. (#91)
+
+</details>
+
 ## New features
 
 ## Documentation

inst/templates/ad_adapet.R

@@ -308,5 +308,10 @@ admiralneuro_adapet <- adapet
 # Save output ----
 
 # Change to whichever directory you want to save the dataset in
-tmp_file <- file.path(tempdir(), "admiralneuro_adapet.rda")
-save(admiralneuro_adapet, file = tmp_file, compress = "bzip2")
+dir <- tools::R_user_dir("admiralneuro_templates_data", which = "cache")
+
+if (!file.exists(dir)) {
+  # Create the folder
+  dir.create(dir, recursive = TRUE, showWarnings = FALSE)
+}
+save(admiralneuro_adapet, file = file.path(dir, "adapet.rda"), compress = "bzip2")

inst/templates/ad_adtpet.R

@@ -216,5 +216,10 @@ admiralneuro_adtpet <- adtpet
 # Save output ----
 
 # Change to whichever directory you want to save the dataset in
-tmp_file <- file.path(tempdir(), "admiralneuro_adtpet.rda")
-save(admiralneuro_adtpet, file = tmp_file, compress = "bzip2")
+dir <- tools::R_user_dir("admiralneuro_templates_data", which = "cache")
+
+if (!file.exists(dir)) {
+  # Create the folder
+  dir.create(dir, recursive = TRUE, showWarnings = FALSE)
+}
+save(admiralneuro_adtpet, file = file.path(dir, "adtpet.rda"), compress = "bzip2")