Code style

R/auto-test.R

@@ -61,7 +61,6 @@ auto_test <- function(code_path, test_path, reporter = default_reporter(),
     TRUE
   }
   watch(c(code_path, test_path), watcher, hash = hash)
-
 }
 
 #' Watches a package for changes, rerunning tests as appropriate.
@@ -75,8 +74,10 @@ auto_test <- function(code_path, test_path, reporter = default_reporter(),
 #' @seealso [auto_test()] for details on how method works
 auto_test_package <- function(pkg = ".", reporter = default_reporter(), hash = TRUE) {
   if (!requireNamespace("devtools", quietly = TRUE)) {
-    stop("devtools required to run auto_test_package(). Please install.",
-      call. = FALSE)
+    stop(
+      "devtools required to run auto_test_package(). Please install.",
+      call. = FALSE
+    )
   }
 
   pkg <- devtools::as.package(pkg)
@@ -120,5 +121,4 @@ auto_test_package <- function(pkg = ".", reporter = default_reporter(), hash = T
     TRUE
   }
   watch(c(code_path, test_path), watcher, hash = hash)
-
 }

R/colour-text.R

@@ -15,4 +15,3 @@ colourise <- function(text, as = c("success", "skip", "warning", "failure", "err
   )
   testthat_colours[[as]](text)
 }
-

R/compare-character.R

@@ -27,7 +27,6 @@
 compare.character <- function(x, y, check.attributes = TRUE, ...,
                               max_diffs = 5, max_lines = 5,
                               width = console_width()) {
-
   if (identical(x, y)) {
     return(no_difference())
   }
@@ -61,7 +60,6 @@ compare.character <- function(x, y, check.attributes = TRUE, ...,
 }
 
 mismatch_character <- function(x, y, diff = !vector_equal(x, y)) {
-
   structure(
     list(
       i = which(diff),

R/compare-numeric.R

@@ -20,8 +20,10 @@ compare.numeric <- function(x, y,
                             tolerance = .Machine$double.eps ^ 0.5,
                             check.attributes = TRUE,
                             ..., max_diffs = 9) {
-  all_equal <- all.equal(x, y, tolerance = tolerance,
-    check.attributes = check.attributes, ...)
+  all_equal <- all.equal(
+    x, y, tolerance = tolerance,
+    check.attributes = check.attributes, ...
+  )
   if (isTRUE(all_equal)) {
     return(no_difference())
   }
@@ -65,7 +67,6 @@ mismatch_numeric <- function(x, y, diff = !vector_equal(x, y)) {
 
 #' @export
 format.mismatch_numeric <- function(x, ..., max_diffs = 9, digits = 3) {
-
   summary <- paste0(x$n_diff, "/", x$n, " mismatches")
   if (x$n_diff > 1) {
     mu <- format(x$mu_diff, digits = digits, trim = TRUE)

R/compare.R

@@ -44,7 +44,7 @@ print.comparison <- function(x, ...) {
 
 #' @export
 #' @rdname compare
-compare.default <- function(x, y, ..., max_diffs = 9){
+compare.default <- function(x, y, ..., max_diffs = 9) {
   same <- all.equal(x, y, ...)
   if (length(same) > max_diffs) {
     same <- c(same[1:max_diffs], "...")
@@ -67,8 +67,9 @@ same_type <- function(x, y) identical(typeof(x), typeof(y))
 diff_type <- function(x, y) difference(fmt = "Types not compatible: %s is not %s", typeof(x), typeof(y))
 
 same_class <- function(x, y) {
-  if (!is.object(x) && !is.object(y))
+  if (!is.object(x) && !is.object(y)) {
     return(TRUE)
+  }
   identical(class(x), class(y))
 }
 diff_class <- function(x, y) {
@@ -92,4 +93,3 @@ vector_equal <- function(x, y) {
 vector_equal_tol <- function(x, y, tolerance = .Machine$double.eps ^ 0.5) {
   (is.na(x) & is.na(y)) | (!is.na(x) & !is.na(y) & abs(x - y) < tolerance)
 }
-

R/describe.R

@@ -56,9 +56,9 @@
 #' })
 
 describe <- function(description, code) {
-  is_invalid_description <- function (description) {
-    (!is.character(description) || length(description) != 1
-     || nchar(description) == 0)
+  is_invalid_description <- function(description) {
+    !is.character(description) || length(description) != 1 ||
+      nchar(description) == 0
   }
 
   if (is_invalid_description(description)) {

R/evaluate-promise.R

@@ -16,7 +16,6 @@
 #'   4
 #' })
 evaluate_promise <- function(code, print = FALSE) {
-
   warnings <- Stack$new()
   handle_warning <- function(condition) {
     warnings$push(condition)
@@ -32,7 +31,8 @@ evaluate_promise <- function(code, print = FALSE) {
   temp <- file()
   on.exit(close(temp))
 
-  result <- withr::with_output_sink(temp,
+  result <- withr::with_output_sink(
+    temp,
     withCallingHandlers(
       withVisible(code),
       warning = handle_warning,
@@ -53,4 +53,3 @@ evaluate_promise <- function(code, print = FALSE) {
     messages = get_messages(messages$as_list())
   )
 }
-

R/expect-equality.R

@@ -48,7 +48,6 @@ NULL
 #' @param ... other values passed to [all.equal()]
 expect_equal <- function(object, expected, ..., info = NULL, label = NULL,
                          expected.label = NULL) {
-
   act <- quasi_label(enquo(object), label)
   exp <- quasi_label(enquo(expected), expected.label)
 
@@ -66,7 +65,6 @@ expect_equal <- function(object, expected, ..., info = NULL, label = NULL,
 #' @export
 #' @rdname equality-expectations
 expect_setequal <- function(object, expected) {
-
   act <- quasi_label(enquo(object))
   exp <- quasi_label(enquo(expected))
 
@@ -103,7 +101,6 @@ expect_equivalent <- function(object, expected, ..., info = NULL, label = NULL,
 #' @rdname equality-expectations
 expect_identical <- function(object, expected, info = NULL, label = NULL,
                              expected.label = NULL) {
-
   act <- quasi_label(enquo(object), label)
   exp <- quasi_label(enquo(expected), expected.label)
 
@@ -131,7 +128,6 @@ expect_identical <- function(object, expected, info = NULL, label = NULL,
 #' @rdname equality-expectations
 expect_identical <- function(object, expected, info = NULL, label = NULL,
                              expected.label = NULL) {
-
   act <- quasi_label(enquo(object), label)
   exp <- quasi_label(enquo(expected), expected.label)
 
@@ -159,7 +155,6 @@ expect_identical <- function(object, expected, info = NULL, label = NULL,
 #' @rdname equality-expectations
 expect_reference <- function(object, expected, info = NULL, label = NULL,
                              expected.label = NULL) {
-
   act <- quasi_label(enquo(object), label)
   exp <- quasi_label(enquo(expected), expected.label)
 

R/expect-known.R

@@ -44,7 +44,6 @@ expect_known_output <- function(object, file,
                                 label = NULL,
                                 print = FALSE,
                                 width = 80) {
-
   act <- list()
   act$quo <- enquo(object)
   act$lab <- label %||% quo_label(act$quo)
@@ -86,7 +85,6 @@ expect_known_value <- function(object, file,
                                ...,
                                info = NULL,
                                label = NULL) {
-
   act <- quasi_label(enquo(object), label)
 
   if (!file.exists(file)) {
@@ -126,7 +124,6 @@ expect_equal_to_reference <- function(..., update = FALSE) {
 #' @param hash Known hash value. Leave empty and you'll be informed what
 #'   to use in the test output.
 expect_known_hash <- function(object, hash = NULL) {
-
   act <- quasi_label(enquo(object))
   act_hash <- digest::digest(act$val)
   if (!is.null(hash)) {

R/expect-named.R

@@ -28,7 +28,6 @@
 expect_named <- function(object, expected, ignore.order = FALSE,
                          ignore.case = FALSE, info = NULL,
                          label = NULL) {
-
   act <- quasi_label(enquo(object), label = label)
   act$names <- names(act$val)
 
@@ -43,7 +42,8 @@ expect_named <- function(object, expected, ignore.order = FALSE,
 
     expect(
       identical(act$names, exp_names),
-      sprintf("Names of %s (%s) don't match %s",
+      sprintf(
+        "Names of %s (%s) don't match %s",
         act$lab,
         paste0("'", act$names, "'", collapse = ", "),
         paste0("'", exp_names, "'", collapse = ", ")
@@ -58,7 +58,7 @@ normalise_names <- function(x, ignore.order = FALSE, ignore.case = FALSE) {
   if (is.null(x)) return()
 
   if (ignore.order) x <- sort(x)
-  if (ignore.case)  x <- tolower(x)
+  if (ignore.case) x <- tolower(x)
 
   x
 }

R/expect-output.R

@@ -87,7 +87,6 @@ NULL
 #' @export
 #' @rdname output-expectations
 expect_output <- function(object, regexp = NULL, ..., info = NULL, label = NULL) {
-
   act <- quasi_capture(enquo(object), capture_output, label = label)
 
   if (identical(regexp, NA)) {
@@ -118,7 +117,6 @@ expect_error <- function(object,
                          ...,
                          info = NULL,
                          label = NULL) {
-
   act <- quasi_capture(enquo(object), capture_error, label = label)
   msg <- compare_condition(act$cap, act$lab, regexp = regexp, class = class, ...)
   expect(is.null(msg), msg, info = info)
@@ -129,15 +127,16 @@ expect_error <- function(object,
 #' @export
 #' @rdname output-expectations
 expect_condition <- function(object,
-                         regexp = NULL,
-                         class = NULL,
-                         ...,
-                         info = NULL,
-                         label = NULL) {
-
+                             regexp = NULL,
+                             class = NULL,
+                             ...,
+                             info = NULL,
+                             label = NULL) {
   act <- quasi_capture(enquo(object), capture_condition, label = label)
-  msg <- compare_condition(act$cap, act$lab, regexp = regexp, class = class, ...,
-    cond_type = "condition")
+  msg <- compare_condition(
+    act$cap, act$lab, regexp = regexp, class = class, ...,
+    cond_type = "condition"
+  )
   expect(is.null(msg), msg, info = info)
 
   invisible(act$val %||% act$err)
@@ -148,7 +147,6 @@ expect_condition <- function(object,
 #' @rdname output-expectations
 expect_message <- function(object, regexp = NULL, ..., all = FALSE,
                            info = NULL, label = NULL) {
-
   act <- quasi_capture(enquo(object), capture_messages, label = label)
   msg <- compare_messages(act$cap, act$lab, regexp = regexp, all = all, ...)
   expect(is.null(msg), msg, info = info)
@@ -160,10 +158,11 @@ expect_message <- function(object, regexp = NULL, ..., all = FALSE,
 #' @rdname output-expectations
 expect_warning <- function(object, regexp = NULL, ..., all = FALSE,
                            info = NULL, label = NULL) {
-
   act <- quasi_capture(enquo(object), capture_warnings, label = label)
-  msg <- compare_messages(act$cap, act$lab, regexp = regexp, all = all, ...,
-    cond_type = "warnings")
+  msg <- compare_messages(
+    act$cap, act$lab, regexp = regexp, all = all, ...,
+    cond_type = "warnings"
+  )
   expect(is.null(msg), msg, info = info)
 
   invisible(act$val)
@@ -204,7 +203,7 @@ compare_condition <- function(cond, lab, regexp = NULL, class = NULL, ...,
         cond_type,
         cond$message,
         paste(class(cond), collapse = "/")
-        ))
+      ))
     } else {
       return()
     }
@@ -253,11 +252,10 @@ compare_condition <- function(cond, lab, regexp = NULL, class = NULL, ...,
 
 
 compare_messages <- function(messages,
-                            lab,
-                            regexp = NA, ...,
-                            all = FALSE,
-                            cond_type = "messages") {
-
+                             lab,
+                             regexp = NA, ...,
+                             all = FALSE,
+                             cond_type = "messages") {
   bullets <- paste0("* ", messages, collapse = "\n")
   # Expecting no messages
   if (identical(regexp, NA)) {

R/expect-self-test.R

@@ -67,7 +67,8 @@ show_failure <- function(expr) {
 #' @rdname expect_success
 #' @param path Path to save failure output
 expect_known_failure <- function(path, expr) {
-  FailureReporter <- R6::R6Class("FailureReporter", inherit = CheckReporter,
+  FailureReporter <- R6::R6Class("FailureReporter",
+    inherit = CheckReporter,
     public = list(end_reporter = function(...) {})
   )
 

R/expectation.R

@@ -160,8 +160,10 @@ as.expectation <- function(x, ...) UseMethod("as.expectation", x)
 
 #' @export
 as.expectation.default <- function(x, ..., srcref = NULL) {
-  stop("Don't know how to convert '", paste(class(x), collapse = "', '"),
-       "' to expectation.", call. = FALSE)
+  stop(
+    "Don't know how to convert '", paste(class(x), collapse = "', '"),
+    "' to expectation.", call. = FALSE
+  )
 }
 
 #' @export

R/expectations-matches.R

@@ -20,7 +20,6 @@
 #' }
 expect_match <- function(object, regexp, perl = FALSE, fixed = FALSE, ..., all = TRUE,
                          info = NULL, label = NULL) {
-
   if (fixed) escape <- identity
   else escape <- escape_regex
 
@@ -38,8 +37,10 @@ expect_match <- function(object, regexp, perl = FALSE, fixed = FALSE, ..., all =
   if (length(act$val) == 1) {
     values <- paste0("Actual value: \"", escape(encodeString(act$val)), "\"")
   } else {
-    values <- paste0("Actual values:\n",
-      paste0("* ", escape(encodeString(act$val)), collapse = "\n"))
+    values <- paste0(
+      "Actual values:\n",
+      paste0("* ", escape(encodeString(act$val)), collapse = "\n")
+    )
   }
   expect(
     if (all) all(matches) else any(matches),

R/make-expectation.R

@@ -18,9 +18,13 @@
 #' make_expectation(df)
 make_expectation <- function(x, expectation = "equals") {
   obj <- substitute(x)
-  expectation <- match.arg(expectation,
-    c("equals", "is_equivalent_to", "is_identical_to"))
+  expectation <- match.arg(
+    expectation,
+    c("equals", "is_equivalent_to", "is_identical_to")
+  )
 
-  dput(substitute(expect_equal(obj, values),
-    list(obj = obj, expectation = as.name(expectation), values = x)))
+  dput(substitute(
+    expect_equal(obj, values),
+    list(obj = obj, expectation = as.name(expectation), values = x)
+  ))
 }