Apply suggestions from code review

Co-authored-by: Simon P. Couch <[email protected]>

tests/testthat/test-bootci.R

@@ -157,12 +157,12 @@ test_that(
   "Sufficient replications needed to sufficiently reduce Monte Carlo sampling Error for BCa method",
   {
     set.seed(456765)
-  bt_small <-
-    bootstraps(dat, times = 10, apparent = TRUE) %>%
-    dplyr::mutate(
-      stats = purrr::map(splits, ~ get_stats(.x)),
-      junk = 1:11
-   )
+    bt_small <-
+      bootstraps(dat, times = 10, apparent = TRUE) %>%
+      dplyr::mutate(
+        stats = purrr::map(splits, ~ get_stats(.x)),
+        junk = 1:11
+     )
 
     expect_snapshot(int_pctl(bt_small, stats))
     expect_snapshot(int_t(bt_small, stats))

tests/testthat/test-rolling_origin.R

@@ -103,9 +103,11 @@ test_that("lag", {
   skip_if_not_installed("modeldata")
   data("drinks", package = "modeldata", envir = rlang::current_env())
   expect_snapshot(error = TRUE, {
+    # lag must be less than the number of training observations
     rolling_origin(drinks, initial = 5, lag = 6)
   })
   expect_snapshot(error = TRUE, {
+    # lag must be a whole number
     rolling_origin(drinks, lag = 2.1)
   })
 })

tests/testthat/test-rset.R

@@ -18,7 +18,7 @@ test_that("bad args", {
       car_folds$id,
       attrib = args
     )
-})
+  })
 })
 
 test_that("rset with attributes", {