chore: #2595 adjust wording of message and update snapshots

R/derive_param_extreme_record.R

@@ -141,7 +141,7 @@ derive_param_extreme_record <- function(dataset = NULL,
     what = "derive_param_extreme_record()",
     with = "derive_extreme_event()",
     details = c(
-      x = "This message will turn into a warning for at least one year.",
+      x = "This message will turn into a warning at the beginning of 2026.",
       i = "See admiral's deprecation guidance:
       https://pharmaverse.github.io/admiraldev/dev/articles/programming_strategy.html#deprecation"
     )

R/derive_var_dthcaus.R

@@ -145,7 +145,7 @@ derive_var_dthcaus <- function(dataset,
     what = "derive_var_dthcaus()",
     with = "derive_vars_extreme_event()",
     details = c(
-      x = "This message will turn into a warning for at least one year.",
+      x = "This message will turn into a warning at the beginning of 2026.",
       i = "See admiral's deprecation guidance:
       https://pharmaverse.github.io/admiraldev/dev/articles/programming_strategy.html#deprecation"
     )
@@ -333,7 +333,7 @@ dthcaus_source <- function(dataset_name,
     what = "dthcaus_source()",
     with = "event()",
     details = c(
-      x = "This message will turn into a warning for at least one year.",
+      x = "This message will turn into a warning at the beginning of 2026.",
       i = "See admiral's deprecation guidance:
       https://pharmaverse.github.io/admiraldev/dev/articles/programming_strategy.html#deprecation"
     )

R/derive_var_extreme_date.R

@@ -239,7 +239,7 @@ derive_var_extreme_dtm <- function(dataset,
     what = "derive_var_extreme_dtm()",
     with = "derive_vars_extreme_event()",
     details = c(
-      x = "This message will turn into a warning for at least one year.",
+      x = "This message will turn into a warning at the beginning of 2026.",
       i = "See admiral's deprecation guidance:
       https://pharmaverse.github.io/admiraldev/dev/articles/programming_strategy.html#deprecation"
     )
@@ -572,7 +572,7 @@ derive_var_extreme_dt <- function(dataset,
     what = "derive_var_extreme_dt()",
     with = "derive_vars_extreme_event()",
     details = c(
-      x = "This message will turn into a warning for at least one year.",
+      x = "This message will turn into a warning at the beginning of 2026.",
       i = "See admiral's deprecation guidance:
       https://pharmaverse.github.io/admiraldev/dev/articles/programming_strategy.html#deprecation"
     )
@@ -656,7 +656,7 @@ date_source <- function(dataset_name,
     what = "date_source()",
     with = "event()",
     details = c(
-      x = "This message will turn into a warning for at least one year.",
+      x = "This message will turn into a warning at the beginning of 2026.",
       i = "See admiral's deprecation guidance:
       https://pharmaverse.github.io/admiraldev/dev/articles/programming_strategy.html#deprecation"
     )

R/get_summary_records.R

@@ -152,7 +152,7 @@ get_summary_records <- function(dataset,
     what = "get_summary_records()",
     with = "derive_summary_records()",
     details = c(
-      x = "This message will turn into a warning for at least one year.",
+      x = "This message will turn into a warning at the beginning of 2026.",
       i = "See admiral's deprecation guidance:
       https://pharmaverse.github.io/admiraldev/dev/articles/programming_strategy.html#deprecation"
     )

tests/testthat/_snaps/derive_param_extreme_record.md

@@ -11,6 +11,6 @@
     Message
       `derive_param_extreme_record()` was deprecated in admiral 1.2.0.
       i Please use `derive_extreme_event()` instead.
-      x This message will turn into a warning for at least one year.
+      x This message will turn into a warning at the beginning of 2026.
       i See admiral's deprecation guidance: https://pharmaverse.github.io/admiraldev/dev/articles/programming_strategy.html#deprecation
 

tests/testthat/_snaps/derive_var_dthcaus.md

@@ -6,7 +6,7 @@
     Message
       `dthcaus_source()` was deprecated in admiral 1.2.0.
       i Please use `event()` instead.
-      x This message will turn into a warning for at least one year.
+      x This message will turn into a warning at the beginning of 2026.
       i See admiral's deprecation guidance: https://pharmaverse.github.io/admiraldev/dev/articles/programming_strategy.html#deprecation
     Code
       src_ds <- dthcaus_source(dataset_name = "ds", filter = DSDECOD == "DEATH" &
@@ -15,15 +15,15 @@
     Message
       `dthcaus_source()` was deprecated in admiral 1.2.0.
       i Please use `event()` instead.
-      x This message will turn into a warning for at least one year.
+      x This message will turn into a warning at the beginning of 2026.
       i See admiral's deprecation guidance: https://pharmaverse.github.io/admiraldev/dev/articles/programming_strategy.html#deprecation
     Code
       derive_var_dthcaus(adsl, source_datasets = list(ae = ae, ds = ds), src_ae,
       src_ds)
     Message
       `derive_var_dthcaus()` was deprecated in admiral 1.2.0.
       i Please use `derive_vars_extreme_event()` instead.
-      x This message will turn into a warning for at least one year.
+      x This message will turn into a warning at the beginning of 2026.
       i See admiral's deprecation guidance: https://pharmaverse.github.io/admiraldev/dev/articles/programming_strategy.html#deprecation
     Output
       # A tibble: 3 x 3

tests/testthat/_snaps/derive_var_extreme_date.md

@@ -5,41 +5,41 @@
     Message
       `date_source()` was deprecated in admiral 1.2.0.
       i Please use `event()` instead.
-      x This message will turn into a warning for at least one year.
+      x This message will turn into a warning at the beginning of 2026.
       i See admiral's deprecation guidance: https://pharmaverse.github.io/admiraldev/dev/articles/programming_strategy.html#deprecation
     Code
       ae_end <- date_source(dataset_name = "ae", date = AEENDTM)
     Message
       `date_source()` was deprecated in admiral 1.2.0.
       i Please use `event()` instead.
-      x This message will turn into a warning for at least one year.
+      x This message will turn into a warning at the beginning of 2026.
       i See admiral's deprecation guidance: https://pharmaverse.github.io/admiraldev/dev/articles/programming_strategy.html#deprecation
     Code
       adsl_trtdate <- date_source(dataset_name = "adsl", date = TRTEDTM)
     Message
       `date_source()` was deprecated in admiral 1.2.0.
       i Please use `event()` instead.
-      x This message will turn into a warning for at least one year.
+      x This message will turn into a warning at the beginning of 2026.
       i See admiral's deprecation guidance: https://pharmaverse.github.io/admiraldev/dev/articles/programming_strategy.html#deprecation
     Code
       adsl_dthdate <- date_source(dataset_name = "adsl", date = DTHDT, filter = nchar(
         DTHDTC) >= 10)
     Message
       `date_source()` was deprecated in admiral 1.2.0.
       i Please use `event()` instead.
-      x This message will turn into a warning for at least one year.
+      x This message will turn into a warning at the beginning of 2026.
       i See admiral's deprecation guidance: https://pharmaverse.github.io/admiraldev/dev/articles/programming_strategy.html#deprecation
     Code
       derive_var_extreme_dt(adsl, new_var = LSTALVDT, source_datasets = list(ae = ae,
         adsl = adsl), ae_start, ae_end, adsl_trtdate, adsl_dthdate, mode = "last")
     Message
       `derive_var_extreme_dt()` was deprecated in admiral 1.2.0.
       i Please use `derive_vars_extreme_event()` instead.
-      x This message will turn into a warning for at least one year.
+      x This message will turn into a warning at the beginning of 2026.
       i See admiral's deprecation guidance: https://pharmaverse.github.io/admiraldev/dev/articles/programming_strategy.html#deprecation
       `derive_var_extreme_dtm()` was deprecated in admiral 1.2.0.
       i Please use `derive_vars_extreme_event()` instead.
-      x This message will turn into a warning for at least one year.
+      x This message will turn into a warning at the beginning of 2026.
       i See admiral's deprecation guidance: https://pharmaverse.github.io/admiraldev/dev/articles/programming_strategy.html#deprecation
     Output
       # A tibble: 3 x 6
@@ -57,23 +57,23 @@
     Message
       `date_source()` was deprecated in admiral 1.2.0.
       i Please use `event()` instead.
-      x This message will turn into a warning for at least one year.
+      x This message will turn into a warning at the beginning of 2026.
       i See admiral's deprecation guidance: https://pharmaverse.github.io/admiraldev/dev/articles/programming_strategy.html#deprecation
     Code
       ae_end <- date_source(dataset_name = "ae", date = AEENDTM, set_values_to = exprs(
         LALVDOM = "AE", LALVSEQ = AESEQ, LALVVAR = "AEENDTC"))
     Message
       `date_source()` was deprecated in admiral 1.2.0.
       i Please use `event()` instead.
-      x This message will turn into a warning for at least one year.
+      x This message will turn into a warning at the beginning of 2026.
       i See admiral's deprecation guidance: https://pharmaverse.github.io/admiraldev/dev/articles/programming_strategy.html#deprecation
     Code
       adsl_trtdate <- date_source(dataset_name = "adsl", date = TRTEDTM,
         set_values_to = exprs(LALVDOM = "ADSL", LALVSEQ = NA_integer_, LALVVAR = "TRTEDTM"))
     Message
       `date_source()` was deprecated in admiral 1.2.0.
       i Please use `event()` instead.
-      x This message will turn into a warning for at least one year.
+      x This message will turn into a warning at the beginning of 2026.
       i See admiral's deprecation guidance: https://pharmaverse.github.io/admiraldev/dev/articles/programming_strategy.html#deprecation
     Code
       adsl_dthdate <- date_source(dataset_name = "adsl", date = DTHDT, filter = nchar(
@@ -82,15 +82,15 @@
     Message
       `date_source()` was deprecated in admiral 1.2.0.
       i Please use `event()` instead.
-      x This message will turn into a warning for at least one year.
+      x This message will turn into a warning at the beginning of 2026.
       i See admiral's deprecation guidance: https://pharmaverse.github.io/admiraldev/dev/articles/programming_strategy.html#deprecation
     Code
       derive_var_extreme_dtm(adsl, new_var = LSTALVDTM, source_datasets = list(ae = ae,
         adsl = adsl), ae_start, ae_end, adsl_trtdate, adsl_dthdate, mode = "last")
     Message
       `derive_var_extreme_dtm()` was deprecated in admiral 1.2.0.
       i Please use `derive_vars_extreme_event()` instead.
-      x This message will turn into a warning for at least one year.
+      x This message will turn into a warning at the beginning of 2026.
       i See admiral's deprecation guidance: https://pharmaverse.github.io/admiraldev/dev/articles/programming_strategy.html#deprecation
     Output
       # A tibble: 3 x 9

tests/testthat/_snaps/get_summary_records.md

@@ -7,6 +7,6 @@
     Message
       `get_summary_records()` was deprecated in admiral 1.2.0.
       i Please use `derive_summary_records()` instead.
-      x This message will turn into a warning for at least one year.
+      x This message will turn into a warning at the beginning of 2026.
       i See admiral's deprecation guidance: https://pharmaverse.github.io/admiraldev/dev/articles/programming_strategy.html#deprecation