lint

Author: daroczig

R/logger.R

@@ -439,7 +439,7 @@ log_trace <- function(..., namespace = NA_character_,
 #' log_trace("DONE")
 #' }
 with_log_threshold <- function(expression, threshold = ERROR, namespace = "global", index = 1) {
-    old <- log_threshold(threshold, namespace = namespace, index = index)
-    on.exit(log_threshold(old, namespace = namespace, index = index))
-    expression
+  old <- log_threshold(threshold, namespace = namespace, index = index)
+  on.exit(log_threshold(old, namespace = namespace, index = index))
+  expression
 }

R/utils.R

@@ -78,28 +78,23 @@ deparse_to_one_line <- function(x) {
 #' fun()
 #' catch_base_log(INFO, NA_character_, .topcall = call("funLONG"))
 #' }
-catch_base_log <- function(
-  level,
-  namespace,
-  .topcall = sys.call(-1),
-  .topenv = parent.frame()
-  ) {
-    namespace <- fallback_namespace(namespace)
+catch_base_log <- function(level, namespace, .topcall = sys.call(-1), .topenv = parent.frame()) {
+  namespace <- fallback_namespace(namespace)
 
-    old <- log_appender(appender_console, namespace = namespace)
-    on.exit(log_appender(old, namespace = namespace))
+  old <- log_appender(appender_console, namespace = namespace)
+  on.exit(log_appender(old, namespace = namespace))
 
-    # catch error, warning or message
-    capture.output(
-      log_level(
-        level = level,
-        "",
-        namespace = namespace,
-        .topcall = .topcall,
-        .topenv = .topenv
-      ),
-      type = 'message'
-    )
+  # catch error, warning or message
+  capture.output(
+    log_level(
+      level = level,
+      "",
+      namespace = namespace,
+      .topcall = .topcall,
+      .topenv = .topenv
+    ),
+    type = "message"
+  )
 
 }
 

tests/testthat/test-logger.R

@@ -149,10 +149,10 @@ test_that("providing log_level() args to wrappers diretly is OK", {
 })
 
 test_that("setters check inputs", {
-    expect_snapshot(error = TRUE, {
-        log_appender(1)
-        log_formatter(1)
-        log_layout(1)
-        log_threshold("x")
-    })
+  expect_snapshot(error = TRUE, {
+    log_appender(1)
+    log_formatter(1)
+    log_layout(1)
+    log_threshold("x")
+  })
 })