Fix old checkmate parameters

danielvartan · Oct 17, 2024 · 64b2882 · 64b2882
1 parent 854581b
commit 64b2882
Show file tree

Hide file tree

Showing 8 changed files with 10 additions and 7 deletions.
diff --git a/.Rbuildignore b/.Rbuildignore
@@ -17,4 +17,5 @@
 ^man-roxygen$
 ^Meta$
 ^pkgdown$
+^R/\.post-render\.R$
 ^README\.qmd$
diff --git a/R/_post-render.R → R/.post-render.R b/R/_post-render.R → R/.post-render.R
@@ -42,4 +42,6 @@ codemetar::write_codemeta()
 
 # Check if the script ran successfully -----
 
-# beepr::beep(1)
+beepr::beep(1)
+
+Sys.sleep(3)
diff --git a/R/flat_posixt.R b/R/flat_posixt.R
@@ -23,7 +23,7 @@ flat_posixt_date <- function(posixt, base = as.Date("1970-01-01")) {
 
 flat_posixt_hour <- function(posixt, base = hms::parse_hms("00:00:00")) {
   prettycheck:::assert_posixt(posixt)
-  prettycheck:::assert_hms(base, any.missing = FALSE)
+  prettycheck:::assert_hms(base, any_missing = FALSE)
 
   posixt |>
     lubridate::date() |>

diff --git a/R/int_mean.R b/R/int_mean.R
@@ -9,7 +9,7 @@ int_mean <- function(start, end, ambiguity = 24) {
                       cycle = lubridate::ddays())
   end <- cycle_time(hms::hms(extract_seconds(end)),
                     cycle = lubridate::ddays())
-  interval <- rutils::shush(assign_date(start, end, ambiguity = ambiguity))
+  interval <- assign_date(start, end, ambiguity = ambiguity) |> rutils::shush()
   mean <- as.numeric(start) + (as.numeric(interval) / 2)
 
   hms::hms(mean)

diff --git a/R/int_overlap.R b/R/int_overlap.R
@@ -14,7 +14,7 @@ int_overlap <- function(int_1, int_2) {
   prettycheck:::assert_class(int_1, "Interval")
   prettycheck:::assert_numeric(as.numeric(int_1), len = 1)
   prettycheck:::assert_class(int_2, "Interval")
-  prettycheck:::assert_numeric(as.numeric(int_2), min.len = 1)
+  prettycheck:::assert_numeric(as.numeric(int_2), min_len = 1)
 
   ## Similar to watching a planet travelling in front of its star
 

diff --git a/_quarto.yml b/_quarto.yml
@@ -3,6 +3,6 @@ editor: source
 project:
   output-dir: "."
   render: [README.qmd]
-  post-render: "R/_post-render.R"
+  post-render: "R/.post-render.R"
 
 format: gfm
diff --git a/codemeta.json b/codemeta.json
@@ -240,7 +240,7 @@
     },
     "SystemRequirements": null
   },
-  "fileSize": "148.481KB",
+  "fileSize": "147.564KB",
   "citation": [
     {
       "@type": "CreativeWork",

diff --git a/tests/testthat/test-flat_posixt.R b/tests/testthat/test-flat_posixt.R
@@ -115,7 +115,7 @@
 #   "Assertion on 'posixt' failed"
 #   )
 #
-#   # assert_hms(base, any.missing = FALSE)
+#   # assert_hms(base, any_missing = FALSE)
 #   expect_error(
 #     flat_posixt_hour(posixt = Sys.time(), base = ""),
 #     "Assertion on 'base' failed"