fix #174 restyle with styler::style_dir

daroczig · Aug 7, 2024 · 55bbe80 · 55bbe80
1 parent 3ef4b65
commit 55bbe80
Show file tree

Hide file tree

Showing 61 changed files with 1,859 additions and 1,836 deletions.
diff --git a/R/appenders.R b/R/appenders.R
diff --git a/R/color.R b/R/color.R
@@ -3,65 +3,59 @@
 #' Color log messages according to their severity with either a rainbow
 #' or grayscale color scheme. The greyscale theme assumes a dark background on
 #' the terminal.
-#' 
+#'
 #' @param msg String to color.
 #' @param level see [log_levels()]
 #' @return A string with ANSI escape codes.
 #' @export
 #' @examplesIf requireNamespace("crayon")
-#' cat(colorize_by_log_level('foobar', FATAL), '\n')
-#' cat(colorize_by_log_level('foobar', ERROR), '\n')
-#' cat(colorize_by_log_level('foobar', WARN), '\n')
-#' cat(colorize_by_log_level('foobar', SUCCESS), '\n')
-#' cat(colorize_by_log_level('foobar', INFO), '\n')
-#' cat(colorize_by_log_level('foobar', DEBUG), '\n')
-#' cat(colorize_by_log_level('foobar', TRACE), '\n')
-#' 
-#' cat(grayscale_by_log_level('foobar', FATAL), '\n')
-#' cat(grayscale_by_log_level('foobar', ERROR), '\n')
-#' cat(grayscale_by_log_level('foobar', WARN), '\n')
-#' cat(grayscale_by_log_level('foobar', SUCCESS), '\n')
-#' cat(grayscale_by_log_level('foobar', INFO), '\n')
-#' cat(grayscale_by_log_level('foobar', DEBUG), '\n')
-#' cat(grayscale_by_log_level('foobar', TRACE), '\n')
+#' cat(colorize_by_log_level("foobar", FATAL), "\n")
+#' cat(colorize_by_log_level("foobar", ERROR), "\n")
+#' cat(colorize_by_log_level("foobar", WARN), "\n")
+#' cat(colorize_by_log_level("foobar", SUCCESS), "\n")
+#' cat(colorize_by_log_level("foobar", INFO), "\n")
+#' cat(colorize_by_log_level("foobar", DEBUG), "\n")
+#' cat(colorize_by_log_level("foobar", TRACE), "\n")
+#'
+#' cat(grayscale_by_log_level("foobar", FATAL), "\n")
+#' cat(grayscale_by_log_level("foobar", ERROR), "\n")
+#' cat(grayscale_by_log_level("foobar", WARN), "\n")
+#' cat(grayscale_by_log_level("foobar", SUCCESS), "\n")
+#' cat(grayscale_by_log_level("foobar", INFO), "\n")
+#' cat(grayscale_by_log_level("foobar", DEBUG), "\n")
+#' cat(grayscale_by_log_level("foobar", TRACE), "\n")
 colorize_by_log_level <- function(msg, level) {
-
-    fail_on_missing_package('crayon')
-
-    color <- switch(
-        attr(level, 'level'),
-        'FATAL'   = crayon::combine_styles(crayon::bold, crayon::make_style('red1')),
-        'ERROR'   = crayon::make_style('red4'),
-        'WARN'    = crayon::make_style('darkorange'),
-        'SUCCESS' = crayon::combine_styles(crayon::bold, crayon::make_style('green4')),
-        'INFO'    = crayon::reset,
-        'DEBUG'   = crayon::make_style('deepskyblue4'),
-        'TRACE'   = crayon::make_style('dodgerblue4'),
-        stop('Unknown log level')
-    )
-
-    paste0(color(msg), crayon::reset(''))
-
+  fail_on_missing_package("crayon")
+
+  color <- switch(attr(level, "level"),
+    "FATAL"   = crayon::combine_styles(crayon::bold, crayon::make_style("red1")),
+    "ERROR"   = crayon::make_style("red4"),
+    "WARN"    = crayon::make_style("darkorange"),
+    "SUCCESS" = crayon::combine_styles(crayon::bold, crayon::make_style("green4")),
+    "INFO"    = crayon::reset,
+    "DEBUG"   = crayon::make_style("deepskyblue4"),
+    "TRACE"   = crayon::make_style("dodgerblue4"),
+    stop("Unknown log level")
+  )
+
+  paste0(color(msg), crayon::reset(""))
 }
 
 #' @export
 #' @rdname colorize_by_log_level
 grayscale_by_log_level <- function(msg, level) {
-
-    fail_on_missing_package('crayon')
-
-    color <- switch(
-        attr(level, 'level'),
-        'FATAL'   = crayon::make_style('gray100'),
-        'ERROR'   = crayon::make_style('gray90'),
-        'WARN'    = crayon::make_style('gray80'),
-        'SUCCESS' = crayon::make_style('gray70'),
-        'INFO'    = crayon::make_style('gray60'),
-        'DEBUG'   = crayon::make_style('gray50'),
-        'TRACE'   = crayon::make_style('gray40'),
-        stop('Unknown log level')
-    )
-
-    paste0(color(msg), crayon::reset(''))
-
+  fail_on_missing_package("crayon")
+
+  color <- switch(attr(level, "level"),
+    "FATAL"   = crayon::make_style("gray100"),
+    "ERROR"   = crayon::make_style("gray90"),
+    "WARN"    = crayon::make_style("gray80"),
+    "SUCCESS" = crayon::make_style("gray70"),
+    "INFO"    = crayon::make_style("gray60"),
+    "DEBUG"   = crayon::make_style("gray50"),
+    "TRACE"   = crayon::make_style("gray40"),
+    stop("Unknown log level")
+  )
+
+  paste0(color(msg), crayon::reset(""))
 }