Merge pull request #174 from mi-erasmusmc/develop

Release v0.2.0

Author: cebarboza

.github/workflows/R-CMD-check.yaml

@@ -19,9 +19,9 @@ jobs:
       fail-fast: false
       matrix:
         config:
-          - {os: macos-latest,   r: 'release'}
-          - {os: windows-latest, r: 'release'}
-          - {os: ubuntu-latest,   r: 'release'}
+          - {os: macos-latest,   r: '4.4.1'}
+          - {os: windows-latest, r: '4.4.1'}
+          - {os: ubuntu-latest,  r: '4.4.1'}
 
     env:
       GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}

CRAN-SUBMISSION

@@ -1,3 +1,3 @@
-Version: 0.1.4
-Date: 2026-09-17 15:58:15 UTC
-SHA: be98738b724c36bdf624f8a80479ed94e79e0852
+Version: 0.1.5
+Date: 2026-09-17 21:12:40 UTC
+SHA: 07c7eb36ade7c2f82c1f16b6596c22d7ae8babfd

DESCRIPTION

@@ -2,7 +2,7 @@ Package: studyGenerics
 Type: Package
 Title: A Centralised Repository of Tested and Frequently Used Methods for
     Observational Medical Outcomes Partnership Common Data Model Studies
-Version: 0.1.5
+Version: 0.2.0
 Authors@R: c(
     person(
       "Cesar", "Barboza",
@@ -52,7 +52,6 @@ Imports:
     glue,
     stringr,
     zip,
-    here,
     fs,
     usethis,
     dplyr,

NAMESPACE

@@ -46,7 +46,6 @@ importFrom(glue,
   glue,
   glue_collapse
 )
-importFrom(here,here)
 importFrom(jsonlite,toJSON)
 importFrom(renv,
   lockfile_read,

NEWS.md

@@ -1,3 +1,7 @@
+# studyGenerics 0.2.0
+
+* `insertStructure()` update. It accepts the location and study number as an argument to fillout documentation.
+
 # studyGenerics 0.1.5
 
 * Dependency on R >= 4.2.0 added to DESCRIPTION.

R/createResultsDir.R

@@ -2,11 +2,10 @@
 #'
 #' @description
 #' Creates a subdirectory for results based on the database name within a
-#' specified output directory. If the output directory is not provided, the
-#' current working directory is used.
+#' specified output directory.
 #'
 #' @param outputDir Character string. The path to the main output folder.
-#'                  If NULL, defaults to the current working directory. Default NULL.
+#'                  This must be supplied explicitly.
 #' @param dbname Character string. The name of the database, used to suffix
 #'               the results folder (e.g., "results_dbname").
 #'
@@ -34,26 +33,23 @@
 #'    )
 #' unlink(outputDir, recursive = TRUE)
 createResultsDir <- function(
-    outputDir = NULL,
+    outputDir,
     dbname
     ) {
+  if (missing(outputDir)) {
+    cli::cli_abort("{.arg outputDir} must be supplied explicitly.")
+  }
   # Set folder location for results ----
   cli::cli_alert_info(
     "Creating locations to save results"
     )
-  if (is.null(outputDir)) {
-    outputDir <- getwd()
-    checkmate::assertDirectoryExists(
-      outputDir
-      )
+  checkmate::assertCharacter(outputDir, len = 1, any.missing = FALSE)
+  if (!dir.exists(outputDir)) {
+    dir.create(outputDir, recursive = TRUE)
+    checkmate::assertDirectoryExists(outputDir)
   } else {
-    if (!dir.exists(outputDir)) {
-      dir.create(outputDir)
-      checkmate::assertDirectoryExists(outputDir)
-    } else {
-      outputDir <- normalizePath(outputDir)
-      checkmate::assertDirectoryExists(outputDir)
-    }
+    outputDir <- normalizePath(outputDir)
+    checkmate::assertDirectoryExists(outputDir)
   }
 resultsDirName <- glue::glue(
     "results_{dbname}"
@@ -73,4 +69,4 @@ resultsDirName <- glue::glue(
       resultsDirName = resultsDirName
     )
   )
-}
+}