refactor

lorenzwalthert · lorenzwalthert · commit ddba306c0a92 · 2022-10-16T16:06:34.000+02:00
diff --git a/R/testing.R b/R/testing.R
@@ -380,6 +380,8 @@ test_transformers_drop <- function(transformers) {
 
 
 skip_during_parallel <- function() {
-  is_parallel <- as.logical(as.logical(toupper(Sys.getenv("STYLER_TEST_IS_TRULY_PARALLEL", TRUE))))
-  testthat::skip_if(is_parallel)
+  Sys.getenv("STYLER_TEST_IS_TRULY_PARALLEL", TRUE) %>%
+    toupper() %>%
+    as.logical() %>%
+    testthat::skip_if()
 }

Original file line number	Diff line number	Diff line change
`@@ -380,6 +380,8 @@ test_transformers_drop <- function(transformers) {`
`380`	`380`
`381`	`381`
`382`	`382`	`skip_during_parallel <- function() {`
`383`		`- is_parallel <- as.logical(as.logical(toupper(Sys.getenv("STYLER_TEST_IS_TRULY_PARALLEL", TRUE))))`
`384`		`- testthat::skip_if(is_parallel)`
	`383`	`+ Sys.getenv("STYLER_TEST_IS_TRULY_PARALLEL", TRUE) %>%`
	`384`	`+ toupper() %>%`
	`385`	`+ as.logical() %>%`
	`386`	`+ testthat::skip_if()`
`385`	`387`	`}`