formatting

Author: tanho63

R/package.R

@@ -246,14 +246,22 @@ do_check <- function(
     ]
     rchk_vars[names(env)] <- env
     if (length(rchk_vars) == 0) {
-      cat("No R CMD check env vars set")
-      cat_line()
+      cli::cat_bullet(
+        "No R CMD check env vars set",
+        col = "darkgrey",
+        bullet = "line",
+        bullet_col = "darkgrey"
+      )
     }
     if (length(rchk_vars) > 0) {
-      cat("R CMD check env vars set:")
-      cat_line()
       cli::cat_bullet(
-        paste0(format(names(rchk_vars)), ": ", unname(rchk_vars)),
+        "R CMD check env vars set:",
+        col = "darkgrey",
+        bullet = "line",
+        bullet_col = "darkgrey"
+      )
+      cli::cat_bullet(
+        paste0(format(names(rchk_vars)), " = ", unname(rchk_vars)),
         col = "darkgrey"
       )
       cat_line()