Lint/fixes

R/api_key.R

@@ -28,7 +28,8 @@
     return(testing_key())
   } else {
     cli::cli_abort(
-      "No API key found, please supply with {.arg api_key} argument or with {.help [{.fun set_api_key}](octopusR::set_api_key)}",
+      "No API key found, please supply with {.arg api_key} argument or with
+      {.help [{.fun set_api_key}](octopusR::set_api_key)}",
       call = rlang::caller_env()
     )
   }

R/check_params.R

@@ -9,22 +9,22 @@
 #'
 #' @return NULL
 check_datetime_format <- function(arg_date) {
-  arg <- rlang::caller_arg(arg_date)
   call <- rlang::caller_env()
-  if (!inherits(arg_date, "character") &&
-    !inherits(arg_date, "Date")) {
+  if (!inherits(arg_date, "character") && !inherits(arg_date, "Date")) {
     cli::cli_abort(
-      "{.arg {arg}} must be {.cls character} or {.cls Date}, not {.cls {class(arg_date)}}.",
+      "{.arg {rlang::caller_arg(arg_date)}} must be {.cls character} or
+      {.cls Date}, not {.cls {class(arg_date)}}.",
       call = call
     )
   }
   iso_8601_pattern <-
     "^([\\+-]?\\d{4}(?!\\d{2}\\b))((-?)((0[1-9]|1[0-2])(\\3([12]\\d|0[1-9]|3[01]))?|W([0-4]\\d|5[0-2])(-?[1-7])?|(00[1-9]|0[1-9]\\d|[12]\\d{2}|3([0-5]\\d|6[1-6])))([T\\s]((([01]\\d|2[0-3])((:?)[0-5]\\d)?|24\\:?00)([\\.,]\\d+(?!:))?)?(\\17[0-5]\\d([\\.,]\\d+)?)?([zZ]|([\\+-])([01]\\d|2[0-3]):?([0-5]\\d)?)?)?)?$"
 
   if (!grepl(iso_8601_pattern, arg_date, perl = TRUE)) {
     cli::cli_abort(
       c(
-        "{.arg {arg}} must be in [ISO_8601](https://en.wikipedia.org/wiki/ISO_8601) format.",
+        "{.arg {rlang::caller_arg(arg_date)}} must be in
+        [ISO_8601](https://en.wikipedia.org/wiki/ISO_8601) format.",
         ">" = "For example {.val {Sys.Date()}} or {.val {Sys.time()}}."
       ),
       call = call
@@ -43,10 +43,11 @@
 #'
 #' @return NULL
 check_logical <- function(arg_lgl) {
-  arg <- rlang::caller_arg(arg_lgl)
   call <- rlang::caller_env()
   if (!inherits(arg_lgl, "logical")) {
-    cli::cli_abort("{.arg {arg}} must be {.cls logical}, not {.cls {class(arg_lgl)}}.",
+    cli::cli_abort(
+      "{.arg {rlang::caller_arg(arg_lgl)}} must be {.cls logical},
+    not {.cls {class(arg_lgl)}}.",
       call = call
     )
   }

R/get_consumption.R

@@ -37,7 +37,7 @@
 #'
 #' @return a [tibble][tibble::tibble-package] of the requested consumption data.
 #' @export
 get_consumption <- function(
     meter_type = c("electricity", "gas"),
     mpan_mprn = get_meter_details(meter_type)[["mpan_mprn"]],
     serial_number = get_meter_details(meter_type)[["serial_number"]],
@@ -59,7 +59,8 @@
   force(api_key)
   if (!missing(period_to) && missing(period_from)) {
     cli::cli_abort(
-      "To use {.arg period_to} you must also provide the {.arg period_from} parameter to create a range."
+      "To use {.arg period_to} you must also provide the {.arg period_from}
+      parameter to create a range."
     )
   }
   if (missing(order_by)) {
@@ -78,7 +79,8 @@
 
     if (missing(period_from)) {
       cli::cli_abort(
-        "You must also specify {.arg period_to} when specifying {.arg period_from}."
+        "You must also specify {.arg period_to} when specifying
+        {.arg period_from}."
       )
     }
   }

R/get_meter_gsp.R

@@ -7,10 +7,13 @@
 #'
 #' @return a character of the meter-points GSP.
 #' @export
-get_meter_gsp <- function(mpan = get_meter_details("electricity")[["mpan_mprn"]]) {
+get_meter_gsp <- function(
+    mpan = get_meter_details("electricity")[["mpan_mprn"]]) {
   if (is.na(mpan) || mpan == "") {
     cli::cli_abort(
-      "Meter details were missing or incomplete, please supply with {.arg mpan_mprn} and {.arg serial_number} arguments or with {.help [{.fun set_meter_details}](octopusR::set_meter_details)}",
+      "Meter details were missing or incomplete, please supply with
+      {.arg mpan_mprn} and {.arg serial_number} arguments or with
+      {.help [{.fun set_meter_details}](octopusR::set_meter_details)}",
       call = rlang::caller_env()
     )
   }

R/meter_details.R

@@ -26,7 +26,8 @@
   if (missing(mpan_mprn)) {
     mpan_mprn <- askpass::askpass(
       glue::glue(
-        "Please enter your {meter_type} meter-point's {ifelse(meter_type == 'electricity', 'MPAN', 'MPRN')}."
+        "Please enter your {meter_type} meter-point's
+        {ifelse(meter_type == 'electricity', 'MPAN', 'MPRN')}."
       )
     )
   }
@@ -80,7 +81,9 @@
     }
 
     cli::cli_abort(
-      "Meter details were missing or incomplete, please supply with {.arg mpan_mprn} and {.arg serial_number} arguments or with {.help [{.fun set_meter_details}](octopusR::set_meter_details)}.",
+      "Meter details were missing or incomplete, please supply with
+      {.arg mpan_mprn} and {.arg serial_number} arguments or with
+      {.help [{.fun set_meter_details}](octopusR::set_meter_details)}.",
       call = rlang::caller_env()
     )
   }

inst/WORDLIST

@@ -3,6 +3,6 @@ Codecov
 GSP
 MPAN
 MPRN
+OctopusR
 SMETS
 datetime
-timezone

tests/testthat/test-get_consumption.R

@@ -40,11 +40,11 @@ test_that("errors properly with incorrect params", {
 
   expect_error(
     get_consumption("electricity", period_to = Sys.Date()),
-    "To use `period_to` you must also provide the `period_from` parameter to create a range"
+    "To use `period_to` you must also provide the `period_from` parameter .+?$"
   )
   expect_error(
     get_consumption("gas", period_to = Sys.Date()),
-    "To use `period_to` you must also provide the `period_from` parameter to create a range"
+    "To use `period_to` you must also provide the `period_from` parameter .+?$"
   )
 })