drop msgs argument to date_atus()

poissonconsulting · Jul 8, 2024 · 1246652 · 1246652
1 parent c5f9d57
commit 1246652
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 9 deletions.
diff --git a/R/atu-index.R b/R/atu-index.R
@@ -1,8 +1,7 @@
 .atu_index <- function(
     x,
     date,
-    atus,
-    msgs = TRUE) {
+    atus) {
 
   x <- pmax(x, 0)
   x <- cumsum(x)

diff --git a/R/date-atus.R b/R/date-atus.R
@@ -12,8 +12,7 @@
 date_atus <- function(
     x,
     atus = 600,
-    start_date = as.Date("1972-03-01"),
-    msgs = TRUE) {
+    start_date = as.Date("1972-03-01")) {
 
   check_data(x, list(date = dttr2::dtt_date("1970-01-01"), temperature = c(1, NA)))
   chk_date(start_date)
@@ -51,8 +50,7 @@ date_atus <- function(
     dplyr::group_modify(~.atu_index(
       .x$temperature,
       .x$date,
-      atus = atus,
-      msgs = msgs), .keep = TRUE) |>
+      atus = atus), .keep = TRUE) |>
     dplyr::mutate(end_date = dttr2::dtt_dayte(end_date, start_date),
                   start_date = start_dayte) |>
     dplyr::select(c("year", "start_date", "end_date", "atus"))                  

diff --git a/man/date_atus.Rd b/man/date_atus.Rd