Change option name to be inline with usethis

Author: michaelquinn32

R/addins.R

@@ -153,7 +153,7 @@ get_addins_style_transformer <- function() {
 
 communicate_addins_style_transformers <- function() {
   style_name <- get_addins_style_transformer_name()
-  if (getOption("styler.communicate", TRUE)) {
+  if (!getOption("styler.quiet", FALSE)) {
     cat("Using style transformers `", style_name, "`\n", sep = "")
   }
 }

R/communicate.R

@@ -9,7 +9,7 @@
 communicate_warning <- function(changed, transformers) {
   if (any(changed, na.rm = TRUE) && 
     !can_verify_roundtrip(transformers) &&
-    getOption("styler.communicate", TRUE)
+    !getOption("styler.quiet", FALSE)
   ) {
     cat("Please review the changes carefully!", fill = TRUE)
   }
@@ -22,7 +22,7 @@ communicate_warning <- function(changed, transformers) {
 #' @param ruler_width Integer used to determine the width of the ruler.
 #' @keywords internal
 communicate_summary <- function(changed, ruler_width) {
-  if (getOption("styler.communicate", TRUE)) {
+  if (!getOption("styler.quiet", FALSE)) {
     cli::cat_rule(width = max(40, ruler_width))
     cat("Status\tCount\tLegend \n")
     cli::cat_bullet("\t", sum(!changed, na.rm = TRUE), "\tFile unchanged.", bullet = "tick")

R/transform-files.R

@@ -15,7 +15,7 @@ transform_files <- function(files, transformers, include_roxygen_examples, dry)
   transformer <- make_transformer(transformers, include_roxygen_examples)
   max_char <- min(max(nchar(files), 0), getOption("width"))
   len_files <- length(files)
-  if (len_files > 0L && getOption("styler.communicate", TRUE)) {
+  if (len_files > 0L && !getOption("styler.quiet", FALSE)) {
     cat("Styling ", len_files, " files:\n")
   }
 
@@ -51,7 +51,7 @@ transform_file <- function(path,
   max_char_after_message_path <- nchar(message_before) + max_char_path + 1
   n_spaces_before_message_after <-
     max_char_after_message_path - char_after_path
-  if (getOption("styler.communicate", TRUE)) {
+  if (!getOption("styler.quiet", FALSE)) {
       cat(
         message_before, path,
         rep_char(" ", max(0L, n_spaces_before_message_after)),
@@ -62,7 +62,7 @@ transform_file <- function(path,
 
   bullet <- ifelse(is.na(changed), "warning", ifelse(changed, "info", "tick"))
 
-  if (getOption("styler.communicate", TRUE)) {
+  if (!getOption("styler.quiet", FALSE)) {
     cli::cat_bullet(bullet = bullet)
   }
   invisible(changed)

R/zzz.R

@@ -7,7 +7,7 @@
     styler.addins_style_transformer = "styler::tidyverse_style()",
     styler.ignore_start = "# styler: off",
     styler.ignore_stop = "# styler: on",
-    styler.communicate = TRUE
+    styler.quiet = FALSE
   )
   toset <- !(names(op.styler) %in% names(op))
   if (any(toset)) options(op.styler[toset])