suspendInterrupts missing on 3.4 (#7322)

jangorecki · web-flow · commit e473a083344c · 2025-09-16T23:38:59.000-07:00
diff --git a/R/utils.R b/R/utils.R
@@ -9,6 +9,7 @@
 if (base::getRversion() < "3.5.0") {
   isTRUE  = function(x) is.logical(x) && length(x)==1L && !is.na(x) && x    # backport R's new implementation of isTRUE
   isFALSE = function(x) is.logical(x) && length(x)==1L && !is.na(x) && !x   # backport isFALSE that was added in R 3.5.0
+  suspendInterrupts = function(expr) expr
 }
 isTRUEorNA    = function(x) is.logical(x) && length(x)==1L && (is.na(x) || x)
 isTRUEorFALSE = function(x) is.logical(x) && length(x)==1L && !is.na(x)

Original file line number	Diff line number	Diff line change
`@@ -9,6 +9,7 @@`
`9`	`9`	`if (base::getRversion() < "3.5.0") {`
`10`	`10`	`isTRUE = function(x) is.logical(x) && length(x)==1L && !is.na(x) && x # backport R's new implementation of isTRUE`
`11`	`11`	`isFALSE = function(x) is.logical(x) && length(x)==1L && !is.na(x) && !x # backport isFALSE that was added in R 3.5.0`
	`12`	`+ suspendInterrupts = function(expr) expr`
`12`	`13`	`}`
`13`	`14`	`isTRUEorNA = function(x) is.logical(x) && length(x)==1L && (is.na(x) \|\| x)`
`14`	`15`	`isTRUEorFALSE = function(x) is.logical(x) && length(x)==1L && !is.na(x)`