remove deprecated xfig() device

git-svn-id: https://svn.r-project.org/R/trunk@87956 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: ripley

doc/NEWS.Rd

@@ -316,12 +316,14 @@
       \item Building with the bundled (and old) version of
       \code{libintl} is deprecated and now gives a \command{configure
       warning}.  This should be selected only if neither the OS's
-      \code{libc} nor an external \code{libintl} library provide
-      suitable functions.
+      \code{libc} (as on GNU Linux) nor an external \code{libintl}
+      library (as on Alpine Linux) provide suitable functions.
 
       Instead install \code{libintl} from a recent version of GNU
       \I{gettext} or use \command{configure} option
       \option{--disable-nls}.
+
+      \item The deprecated \code{xfig()} graphics device has been removed.
     }
   }
 

src/library/grDevices/R/grDevices-defunct.R

@@ -0,0 +1,34 @@
+#  File src/library/grDevices/R/grDevices-defunct.R
+#  Part of the R package, https://www.R-project.org
+#
+#  Copyright (C) 2025 The R Core Team
+#
+#  This program is free software; you can redistribute it and/or modify
+#  it under the terms of the GNU General Public License as published by
+#  the Free Software Foundation; either version 2 of the License, or
+#  (at your option) any later version.
+#
+#  This program is distributed in the hope that it will be useful,
+#  but WITHOUT ANY WARRANTY; without even the implied warranty of
+#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#  GNU General Public License for more details.
+#
+#  A copy of the GNU General Public License is available at
+#  https://www.R-project.org/Licenses/
+
+## <entry>
+## Deprecated in 4.4.0
+## Defunct    in 4.5.0
+xfig <- function (file = if(onefile) "Rplots.fig" else "Rplot%03d.fig",
+                  onefile = FALSE, encoding = "none",
+                  paper = "default", horizontal = TRUE,
+                  width = 0, height = 0, family = "Helvetica",
+                  pointsize = 12, bg = "transparent", fg = "black",
+                  pagecentre = TRUE,
+                  defaultfont = FALSE, textspecial = FALSE)
+{
+    msg <- gettextf("'%s' was removed in R 4.5.0.\n", "xfig")
+    msg <- paste(msg, "Consider an SVG device instead.")
+    .Defunct(msg = msg)
+}
+## <entry/>

src/library/grDevices/R/postscript.R

@@ -277,29 +277,6 @@ postscript <- function(file = if(onefile) "Rplots.ps" else "Rplot%03d.ps",
     invisible()
 }
 
-xfig <- function (file = if(onefile) "Rplots.fig" else "Rplot%03d.fig",
-                  onefile = FALSE, encoding = "none",
-                  paper = "default", horizontal = TRUE,
-                  width = 0, height = 0, family = "Helvetica",
-                  pointsize = 12, bg = "transparent", fg = "black",
-                  pagecentre = TRUE,
-                  defaultfont = FALSE, textspecial = FALSE)
-{
-    msg <- gettextf("'%s' is deprecated.\n", "xfig")
-    msg <- paste(msg, "Consider an SVG device instead.")
-    .Deprecated(msg = msg)
-
-    ## do initialization if needed
-    initPSandPDFfonts()
-
-    if(!checkIntFormat(file))
-        stop(gettextf("invalid 'file' argument '%s'", file), domain = NA)
-    .External(C_XFig, file, paper, family, bg, fg,
-              width, height, horizontal, pointsize,
-              onefile, pagecentre, defaultfont, textspecial, encoding)
-    invisible()
-}
-
 pdf <- function(file = if(onefile) "Rplots.pdf" else "Rplot%03d.pdf",
                 width, height, onefile, family, title, fonts, version,
                 paper, encoding, bg, fg, pointsize, pagecentre, colormodel,

src/library/grDevices/man/grDevices-defunct.Rd

@@ -0,0 +1,29 @@
+% File src/library/grDevices/man/grDevices-defunct.Rd
+% Part of the R package, https://www.R-project.org
+% Copyright 2025 R Core Team
+% Distributed under GPL 2 or later
+
+\name{grDevices-defunct}
+\title{Defunct Objects in Package \pkg{grDevices}}
+\alias{grDevices-defunct}
+%------ PLEASE: put \alias{.} here for *each* (and keep them) !
+\alias{xfig}
+
+\description{
+  The functions or variables listed here are no longer part of \R as
+  they are no loinger supported.
+}
+\usage{
+# Defunct in R 4.5.0
+xfig(file = if(onefile) "Rplots.fig" else "Rplot\%03d.fig",
+     onefile = FALSE, encoding = "none",
+     paper = "default", horizontal = TRUE,
+     width = 0, height = 0, family = "Helvetica",
+     pointsize = 12, bg = "transparent", fg = "black",
+     pagecentre = TRUE, defaultfont = FALSE, textspecial = FALSE)
+}
+\seealso{
+  \code{\link{Deprecated}},
+  \code{\link{Defunct}}
+}
+\keyword{internal}