new air adds brackets for inline condition

Author: cderv

R/inspect.R

@@ -43,7 +43,9 @@ quarto_inspect <- function(
     args <- c(args, c("--profile", paste0(profile, collapse = ",")))
   }
 
-  if (is_quiet(quiet)) args <- cli_arg_quiet(args)
+  if (is_quiet(quiet)) {
+    args <- cli_arg_quiet(args)
+  }
 
   args <- c(args, quarto_args)
 

R/quarto-args.R

@@ -13,7 +13,9 @@ is_quiet <- function(quiet) {
   }
   # these option takes precedence
   quiet_options <- getOption("quarto.quiet", Sys.getenv("QUARTO_R_QUIET", NA))
-  if (!is.na(quiet_options)) return(isTRUE(as.logical(quiet_options)))
+  if (!is.na(quiet_options)) {
+    return(isTRUE(as.logical(quiet_options)))
+  }
   isTRUE(quiet)
 }
 

R/quarto.R

@@ -97,8 +97,12 @@ quarto_available <- function(min = NULL, max = NULL, error = FALSE) {
     error = function(e) NULL
   )
   if (!is.null(quarto_version)) {
-    if (!is.null(min)) is_above <- quarto_version >= min
-    if (!is.null(max)) is_below <- quarto_version <= max
+    if (!is.null(min)) {
+      is_above <- quarto_version >= min
+    }
+    if (!is.null(max)) {
+      is_below <- quarto_version <= max
+    }
     found <- is_above && is_below
   }
   if (!found && error) {
@@ -168,11 +172,12 @@ quarto_run <- function(
 
         # if `--quiet` has been set, quarto CLI won't report any error (e$stderr will be empty)
         # So remind user to run without `--quiet` to see the full error message
-        if (cli_arg_quiet() %in% args)
+        if (cli_arg_quiet() %in% args) {
           msg <- c(
             msg,
             "i" = "Rerun with `quiet = FALSE` to see the full error message."
           )
+        }
 
         cli::cli_abort(msg, call = .call, parent = e)
       }
@@ -223,16 +228,20 @@ is_using_quarto <- function(dir = ".", verbose = FALSE) {
     0
   has_qmd <- length(list.files(dir, pattern = "\\.qmd$", full.names = TRUE)) > 0
   if (has_quarto_yml) {
-    if (verbose) cli::cli_inform("A {.file _quarto.yml} has been found.")
+    if (verbose) {
+      cli::cli_inform("A {.file _quarto.yml} has been found.")
+    }
     return(TRUE)
   } else if (has_qmd) {
-    if (verbose)
+    if (verbose) {
       cli::cli_inform("At least one file {.code *.qmd} has been found.")
+    }
     return(TRUE)
   }
   # not a directory using Quarto
-  if (verbose)
+  if (verbose) {
     cli::cli_inform("No {.file _quarto.yml} or {.code *.qmd} has been found.")
+  }
   return(FALSE)
 }
 
@@ -274,7 +283,9 @@ quarto_binary_sitrep <- function(verbose = TRUE, debug = FALSE) {
   quarto_found <- normalizePath(quarto_found, mustWork = FALSE)
 
   same_config <- TRUE
-  if (debug) verbose <- TRUE
+  if (debug) {
+    verbose <- TRUE
+  }
 
   # Quarto R package situation ----
   if (verbose) {

R/utils-prompt.R

@@ -7,7 +7,9 @@ check_approval <- function(
   interactive_info = NULL, # could use `{ what }` as used in `cli_inform()`
   .call = rlang::caller_env()
 ) {
-  if (no_prompt) return(TRUE)
+  if (no_prompt) {
+    return(TRUE)
+  }
 
   if (!is_interactive()) {
     cli::cli_abort(

tests/testthat/helper.R

@@ -172,8 +172,11 @@ transform_quarto_cli_in_output <- function(
           if (length(at_lines_after_stack) > 0) {
             # Find the continuous sequence (no gaps)
             gaps <- diff(at_lines_after_stack) > 1
-            end_pos <- if (any(gaps)) which(gaps)[1] else
+            end_pos <- if (any(gaps)) {
+              which(gaps)[1]
+            } else {
               length(at_lines_after_stack)
+            }
             consecutive_indices <- at_lines_after_stack[1:end_pos]
 
             stack_line <- lines[stack_trace_index]

tests/testthat/test-quarto.R

@@ -69,8 +69,9 @@ test_that("quarto CLI sitrep", {
     list(QUARTO_PATH = dummy_quarto_path, RSTUDIO_QUARTO = NA),
     expect_snapshot(
       quarto_binary_sitrep(debug = TRUE),
-      transform = function(lines)
+      transform = function(lines) {
         gsub(dummy_quarto_path, "<QUARTO_PATH path>", lines, fixed = TRUE)
+      }
     )
   )
   withr::with_envvar(