Format tests/

Author: DavisVaughan

tests/testthat/helper-encoding.R

@@ -18,13 +18,17 @@ get_lang_strings <- function() {
 
 get_native_lang_string <- function() {
   lang_strings <- get_lang_strings()
-  if (length(lang_strings$same) == 0) testthat::skip("No native language string available")
+  if (length(lang_strings$same) == 0) {
+    testthat::skip("No native language string available")
+  }
   lang_strings$same[[1L]]
 }
 
 get_alien_lang_string <- function() {
   lang_strings <- get_lang_strings()
-  if (length(lang_strings$different) == 0) testthat::skip("No alien language string available")
+  if (length(lang_strings$different) == 0) {
+    testthat::skip("No alien language string available")
+  }
   lang_strings$different[[1L]]
 }
 
@@ -52,12 +56,13 @@ non_utf8_encoding <- function(enc = NULL) {
   if (!l10n_info()$`UTF-8`) {
     return(Sys.getlocale("LC_CTYPE"))
   }
-  enc <- enc %||% c(
-    "en_US.ISO8859-1",
-    "en_US.ISO8859-15",
-    "fr_CH.ISO8859-1",
-    "fr_CH.ISO8859-15"
-  )
+  enc <- enc %||%
+    c(
+      "en_US.ISO8859-1",
+      "en_US.ISO8859-15",
+      "fr_CH.ISO8859-1",
+      "fr_CH.ISO8859-15"
+    )
   available <- vapply(enc, has_ctype_locale, logical(1))
   if (any(available)) {
     enc[available][1]

tests/testthat/helper-lazy.R

@@ -1,6 +1,9 @@
 skip_if_no_lazy_character <- function() {
   new_lazy_character <- import_vctrs("new_lazy_character", optional = TRUE)
-  lazy_character_is_materialized <- import_vctrs("lazy_character_is_materialized", optional = TRUE)
+  lazy_character_is_materialized <- import_vctrs(
+    "lazy_character_is_materialized",
+    optional = TRUE
+  )
 
   if (is.null(new_lazy_character) || is.null(lazy_character_is_materialized)) {
     skip("Lazy character helpers from vctrs are not available.")

tests/testthat/helper-s3.R

@@ -3,7 +3,8 @@ local_methods <- function(..., .frame = caller_env()) {
 }
 
 local_foo_df <- function(frame = caller_env()) {
-  local_methods(.frame = frame,
+  local_methods(
+    .frame = frame,
     group_by.foo_df = function(.data, ...) {
       out <- NextMethod()
       if (missing(...)) {