From 453876ff20954b2dfd2a18887a2340fada5ba5e5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Mon, 19 Feb 2024 15:21:04 +0100
Subject: [PATCH] pictex device is also deprecated in R 4.4.0

Do not test that, either.

[ci skip]
---
 test/test.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/test/test.R b/test/test.R
index be4144e..d7ace39 100644
--- a/test/test.R
+++ b/test/test.R
@@ -35,8 +35,8 @@ tryCatch(capabilities(), warning = function(w) {
 # Check graphics devices
 # https://stat.ethz.ch/R-manual/R-devel/library/grDevices/html/Devices.html
 devices <- c("png", "jpeg", "tiff", "svg", "bmp", "pdf", "postscript",
-             if (getRversion() < "4.4.0") "xfig",
-             "pictex", "cairo_pdf", "cairo_ps")
+             if (getRversion() < "4.4.0") c("xfig", "pictex"),
+             "cairo_pdf", "cairo_ps")
 for (dev_name in devices) {
   # Skip unsupported graphics devices (e.g. tiff in R >= 3.3 on CentOS 6)
   if (dev_name %in% names(capabilities()) && capabilities(dev_name) == FALSE) {