lint tests

UCD-SERG · Sep 5, 2024 · 8379cef · 8379cef
1 parent 4259a77
commit 8379cef
Show file tree

Hide file tree

Showing 7 changed files with 59 additions and 166 deletions.
diff --git a/R/as_noise_params.R b/R/as_noise_params.R
@@ -22,8 +22,9 @@ as_noise_params <- function(data, antigen_isos = NULL) {
       class = "not data.frame",
       message = c(
         "Can't convert {.arg data} to {.cls noise_params}.",
-        "x" = "{.arg data} must be a {.cls data.frame}" %>%
-          "(or a subclass of {.cls data.frame}).",
+        paste("x" = "{.arg data} must be a {.cls data.frame}",
+          "(or a subclass of {.cls data.frame})."
+        ),
         "i" = "You have supplied a {.cls {class(data)}}."
       )
     )
@@ -42,8 +43,9 @@ as_noise_params <- function(data, antigen_isos = NULL) {
       class = "not noise_params",
       message = c(
         "Can't convert {.arg data} to {.cls noise_params}.",
-        "i" = "The column{?s} : {.strong {.var {missing_cols}}}" %>%
-          "{?is/are} missing.",
+        "i" = paste("The column{?s} : {.strong {.var {missing_cols}}}",
+          "{?is/are} missing."
+        ),
         "x" = "You have supplied {.cls {class(data)}}."
       )
     )
@@ -63,8 +65,8 @@ as_noise_params <- function(data, antigen_isos = NULL) {
         class = "missing-antigen",
         message = c(
           "x" = "Can't convert {.var data} to {.cls noise_params}.",
-          "i" = "The antigen type{?s} {.str {missing_antigen}}" %>%
-            "{?is/are} missing in {.var data}."
+          "i" = paste("The antigen type{?s} {.str {missing_antigen}}",
+                      "{?is/are} missing in {.var data}.")
         )
       )
     }

diff --git a/check.lintr b/check.lintr
diff --git a/man/as_curve_params.Rd b/man/as_curve_params.Rd
diff --git a/man/est.incidence.by.Rd b/man/est.incidence.by.Rd
diff --git a/man/stratify_data.Rd b/man/stratify_data.Rd
diff --git a/tests/testthat/_snaps/as_curve_params.md b/tests/testthat/_snaps/as_curve_params.md
diff --git a/tests/testthat/test-as_noise_params.R b/tests/testthat/test-as_noise_params.R
@@ -1,13 +1,14 @@
-test_that("`as_noise_params()` produces an error when non-noise data is provided", {
-  library(magrittr)
-  expect_error(
-    object = noise_data <-
-      "https://osf.io/download//n6cp3/" %>% # pop data
-      readr::read_rds() %>%
-      as_noise_params(),
-    class = "not noise_params"
-  )
-})
+test_that("`as_noise_params()` produces an error
+          when non-noise data is provided", {
+            library(magrittr)
+            expect_error(
+              object = noise_data <-
+                "https://osf.io/download//n6cp3/" %>% # pop data
+                readr::read_rds() %>%
+                as_noise_params(),
+              class = "not noise_params"
+            )
+          })
 
 test_that("`as_noise_params()` produces expected results", {
   library(dplyr)
@@ -23,11 +24,14 @@ test_that("`as_noise_params()` produces expected results", {
   )
 })
 
-test_that("`as_noise_params()` produces error when wrong antigen_iso is provided", {
-  library(dplyr)
+test_that("`as_noise_params()` produces error when
+          wrong antigen_iso is provided", {
+            library(dplyr)
 
-  expect_error(object = "https://osf.io/download//hqy4v/" %>% # noise data
-    readr::read_rds() %>%
-    as_noise_params(antigen_iso = "HlyE_IgB"),
-    class = 'missing-antigen')
-})
+            expect_error(
+              object = "https://osf.io/download//hqy4v/" %>% # noise data
+                readr::read_rds() %>%
+                as_noise_params(antigen_iso = "HlyE_IgB"),
+              class = "missing-antigen"
+            )
+          })