Reformat with air

Author: hadley

R/expect-named.R

@@ -34,7 +34,7 @@ expect_named <- function(
 ) {
   check_bool(ignore.order)
   check_bool(ignore.case)
-  
+
   act <- quasi_label(enquo(object), label)
   act$names <- names(act$val)
 

R/expect-output.R

@@ -31,7 +31,7 @@ expect_output <- function(
   width = 80
 ) {
   check_number_whole(width, min = 1)
-  
+
   act <- quasi_capture(enquo(object), label, capture_output, width = width)
 
   if (identical(regexp, NA)) {

R/expect-vector.R

@@ -17,7 +17,7 @@
 expect_vector <- function(object, ptype = NULL, size = NULL) {
   check_installed("vctrs")
   check_number_whole(size, min = 0, allow_null = TRUE)
-  
+
   act <- quasi_label(enquo(object))
 
   message <- NULL

R/snapshot-file.R

@@ -97,7 +97,7 @@ expect_snapshot_file <- function(
   check_string(path)
   check_string(name)
   check_bool(cran)
-  
+
   edition_require(3, "expect_snapshot_file()")
   if (!cran && on_cran()) {
     skip("On CRAN")

R/snapshot.R

@@ -71,7 +71,7 @@ expect_snapshot <- function(
   check_bool(cran)
   check_bool(error)
   check_bool(cnd_class)
-  
+
   edition_require(3, "expect_snapshot()")
   variant <- check_variant(variant)
   if (!is.null(transform)) {
@@ -199,7 +199,7 @@ snap_header <- function(state, header) {
 #' @export
 expect_snapshot_output <- function(x, cran = FALSE, variant = NULL) {
   check_bool(cran)
-  
+
   edition_require(3, "expect_snapshot_output()")
   variant <- check_variant(variant)
 
@@ -232,7 +232,7 @@ expect_snapshot_error <- function(
 ) {
   check_string(class)
   check_bool(cran)
-  
+
   edition_require(3, "expect_snapshot_error()")
   expect_snapshot_condition_(
     "error",
@@ -253,7 +253,7 @@ expect_snapshot_warning <- function(
 ) {
   check_string(class)
   check_bool(cran)
-  
+
   edition_require(3, "expect_snapshot_warning()")
   expect_snapshot_condition_(
     "warning",

R/test-compiled-code.R

@@ -3,7 +3,7 @@
 #' @export
 expect_cpp_tests_pass <- function(package) {
   check_string(package)
-  
+
   run_testthat_tests <- get_routine(package, "run_testthat_tests")
 
   output <- ""
@@ -43,7 +43,7 @@ expect_cpp_tests_pass <- function(package) {
 #' @export
 run_cpp_tests <- function(package) {
   check_string(package)
-  
+
   skip_on_os("solaris")
   check_installed("xml2", "to run run_cpp_tests()")