Ah... managed to disable 'pbcol' in RStudio again [#100] [ci skip]

HenrikBengtsson · HenrikBengtsson · commit 3f5a75d66fb2 · 2020-12-10T19:47:53.000-08:00
diff --git a/R/handler_pbcol.R b/R/handler_pbcol.R
@@ -39,7 +39,7 @@ handler_pbcol <- function(adjust = 0.0, pad = 1L, complete = function(s) crayon:
   
   redraw_progress_bar <- function(ratio, message, spin = " ") {
     stop_if_not(ratio >= 0, ratio <= 1)
-    if (crayon_enabled && !is.null(getOption("crayon.enabled", NULL))) {
+    if (crayon_enabled) {
       options(crayon.enabled = TRUE)
       on.exit(options(crayon.enabled = TRUE), add = TRUE)
     }

Original file line number	Diff line number	Diff line change
`@@ -39,7 +39,7 @@ handler_pbcol <- function(adjust = 0.0, pad = 1L, complete = function(s) crayon:`
`39`	`39`
`40`	`40`	`redraw_progress_bar <- function(ratio, message, spin = " ") {`
`41`	`41`	`stop_if_not(ratio >= 0, ratio <= 1)`
`42`		`- if (crayon_enabled && !is.null(getOption("crayon.enabled", NULL))) {`
	`42`	`+ if (crayon_enabled) {`
`43`	`43`	`options(crayon.enabled = TRUE)`
`44`	`44`	`on.exit(options(crayon.enabled = TRUE), add = TRUE)`
`45`	`45`	`}`