refactor: use {cli} in measures.R

DESCRIPTION

@@ -20,6 +20,7 @@ License: GPL (>= 2)
 URL: https://docs.ropensci.org/riem/, https://github.com/ropensci/riem
 BugReports: https://github.com/ropensci/riem/issues
 Imports:
+    cli,
     httr2,
     jsonlite (>= 0.9.19),
     lubridate (>= 1.9.0.9000),
@@ -41,5 +42,5 @@ Suggests:
 Config/testthat/edition: 3
 Encoding: UTF-8
 RoxygenNote: 7.1.2
-Remotes:  
+Remotes: 
     tidyverse/lubridate

R/measures.R

@@ -55,7 +55,7 @@ riem_measures <- function(
   date_start <- format_and_check_date(date_start, "date_start")
   date_end <- format_and_check_date(date_end, "date_end")
   if (date_end < date_start) {
-    rlang::abort("date_end has to be bigger than date_start")
+    cli::cli_abort("{.arg date_end} must be bigger than {.arg date_start}.")
   }
 
   resp <- perform_riem_request(
@@ -102,7 +102,7 @@ riem_measures <- function(
   )
 
   if (nrow(result) == 0) {
-    rlang::warn("No results for this query.")
+    cli::cli_warn("No results for this query.")
     return(NULL)
   }
 
@@ -115,9 +115,9 @@ format_and_check_date <- function(date, name) {
   converted_date <- suppressWarnings(lubridate::ymd(date))
 
   if (is.na(converted_date)) {
-    rlang::abort(
+    cli::cli_abort(
       message = c(
-        x = sprintf("Invalid %s: %s.", name, date),
+        x = sprintf("Invalid {.arg %s}: {.value %s}.", name, date),
         i = "Correct format is YYYY-MM-DD."
       )
     )

tests/testthat/_snaps/measures.md

@@ -1,24 +1,24 @@
 # riem_measures checks dates
 
-    x Invalid date_start: somethingelse.
+    x Invalid `date_start`: somethingelse.
     i Correct format is YYYY-MM-DD.
 
 ---
 
-    x Invalid date_end: somethingelse.
+    x Invalid `date_end`: somethingelse.
     i Correct format is YYYY-MM-DD.
 
 ---
 
-    x Invalid date_start: 2015 31 01.
+    x Invalid `date_start`: 2015 31 01.
     i Correct format is YYYY-MM-DD.
 
 ---
 
-    x Invalid date_end: 2015 31 01.
+    x Invalid `date_end`: 2015 31 01.
     i Correct format is YYYY-MM-DD.
 
 ---
 
-    date_end has to be bigger than date_start
+    `date_end` must be bigger than `date_start`.