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

NEWS.md

@@ -5,6 +5,13 @@
 - Improved test coverage in `compute_centiloid()` function when invalid tracer combination is provided. The 
 function also now only accepts positive SUVR values. (#106)
 
+<details>
+<summary>Developer Notes</summary>
+
+- Aligned the templates' save directory with `{pharmaverseadam}` requirements. (#91)
+
+</details>
+
 ## New features
 
 - The function `compute_upsit_percentile()` calculates percentiles based on age, sex, and UPSIT scores. (# 95)

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")