618 templates action@devel

.github/workflows/templates.yml

@@ -0,0 +1,19 @@
+---
+name: Check Templates
+
+on:
+  workflow_dispatch:
+  pull_request:
+    branches:
+      - main
+      - devel
+
+jobs:
+  templates:
+    name: Check Templates
+    uses: pharmaverse/admiralci/.github/workflows/check-templates.yml@main
+    secrets: inherit
+    with:
+      r-version: "4.1"
+      push-templates-data: true
+      exclude-templates-data: "adrs_basic"

inst/templates/ad_adrs.R

@@ -398,5 +398,10 @@ adrs <- adrs %>%
 
 # Save output ----
 
-dir <- tempdir() # Change to whichever directory you want to save the dataset in
-saveRDS(adrs, file = file.path(dir, "adrs.rds"), compress = "bzip2")
+dir <- file.path(getwd(), "tmp")
+print(dir)
+if (!file.exists(dir)) {
+  # Create the folder
+  dir.create(dir)
+}
+save(adrs, file = file.path(dir, "adrs.rda"), compress = "bzip2")

inst/templates/ad_adrs_basic.R

@@ -372,5 +372,10 @@ adrs <- adrs %>%
 
 # ---- Save output ----
 
-dir <- tempdir() # Change to whichever directory you want to save the dataset in
-saveRDS(adrs, file = file.path(dir, "adrs.rds"), compress = "bzip2")
+dir <- file.path(getwd(), "tmp")
+print(dir)
+if (!file.exists(dir)) {
+  # Create the folder
+  dir.create(dir)
+}
+save(adrs, file = file.path(dir, "adrs_basic.rda"), compress = "bzip2")

inst/templates/ad_adtr.R

@@ -280,3 +280,13 @@ adtr <- adtr %>%
     dataset_add = select(adsl, !!!negate_vars(adsl_vars)),
     by_vars = exprs(STUDYID, USUBJID)
   )
+
+# Save output ----
+
+dir <- file.path(getwd(), "tmp")
+print(dir)
+if (!file.exists(dir)) {
+  # Create the folder
+  dir.create(dir)
+}
+save(adtr, file = file.path(dir, "adtr.rda"), compress = "bzip2")

inst/templates/ad_adtte.R

@@ -82,5 +82,10 @@ adtte <- adtte %>%
 
 # Save output ----
 
-dir <- tempdir() # Change to whichever directory you want to save the dataset in
-saveRDS(adtte, file = file.path(dir, "adtte.rds"), compress = "bzip2")
+dir <- file.path(getwd(), "tmp")
+print(dir)
+if (!file.exists(dir)) {
+  # Create the folder
+  dir.create(dir)
+}
+save(adtte, file = file.path(dir, "adtte.rda"), compress = "bzip2")