Port nullfile() as file_null() to avoid depending on R >= 3.6.0

Merck · Jun 3, 2024 · c2bf1bc · c2bf1bc
1 parent 4d2d85e
commit c2bf1bc
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/rtf_strwidth.R b/R/rtf_strwidth.R
@@ -150,7 +150,7 @@ safe_strwidth <- function(text, ...) with_bmp(graphics::strwidth(text, ...))
 #' @noRd
 with_bmp <- function(expr) {
   expr <- substitute(expr)
-  grDevices::bmp(nullfile())
+  grDevices::bmp(file_null())
   on.exit(
     {
       current <- grDevices::dev.cur()
@@ -164,3 +164,5 @@ with_bmp <- function(expr) {
   )
   eval(expr, envir = parent.frame())
 }
+
+file_null <- function() if (.Platform$OS.type == "windows") "nul:" else "/dev/null"