feat: validate that @depends tags have both a domain and column

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: mighty.component
 Title: Mighty Components for ADaM Generation
-Version: 0.0.0.9017
+Version: 0.0.0.9018
 Authors@R: c(
     person("Aksel", "Thomsen", , "oath@enovonordisk.com", role = c("aut", "cre")),
     person("Matthew", "Phelps", , "mewp@enovonordisk.com", role = c("aut")),

R/mighty_component.R

@@ -215,14 +215,26 @@ tags_to_params <- function(tags) {
 tags_to_depends <- function(tags) {
   i <- regexpr(pattern = " +", text = tags)
 
-  data.frame(
+  depends <- data.frame(
     domain = tags |>
       substr(start = 1, stop = i - 1) |>
       trimws(),
     column = tags |>
       substr(start = i + 1, stop = nchar(tags)) |>
       trimws()
   )
+
+  mistakes <- tags[!nchar(depends$domain) | !nchar(depends$column)]
+  if (length(mistakes)) {
+    cli::cli_abort(
+      c(
+        "All {.code @depends} tags must have both a domain and column:",
+        "x" = "Not valid: {.code {mistakes}}"
+      )
+    )
+  }
+
+  depends
 }
 
 #' @noRd

tests/testthat/_components/test_coverage.mustache

@@ -2,7 +2,7 @@
 #' @description
 #' This is a test component used for unit testing the workflow and coverage.
 #' @param value to assign to x
-#' @depends limit
+#' @depends domain limit
 #' @type derivation
 #' @code
 x <- {{ value }}

tests/testthat/test-mighty_component.R

@@ -181,6 +181,12 @@ test_that("tags_to_depends", {
     expect_named(c("domain", "column")) |>
     nrow() |>
     expect_equal(0)
+
+  tags_to_depends("USUBJID") |>
+    expect_error("must have both a domain and column")
+
+  tags_to_depends(c("data1 var1", "USUBJID")) |>
+    expect_error("must have both a domain and column")
 })
 
 test_that("print", {