Add 'call' fields to the conditions signaled in .Deprecated and .Defu…

…nct.

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

src/library/base/R/Defunct.R

@@ -1,7 +1,7 @@
 #  File src/library/base/R/Defunct.R
 #  Part of the R package, https://www.R-project.org
 #
-#  Copyright (C) 1995-2023 The R Core Team
+#  Copyright (C) 1995-2024 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
@@ -33,7 +33,8 @@
 
     if (missing(new)) new <- NULL
     stop(errorCondition(msg, old = fname, new = new, package = package,
-                        class = "defunctError"))
+                        class = "defunctError",
+                        call = sys.call(sys.parent())))
 }
 
 ## Version <- function() .Defunct("R.Version")

src/library/base/R/Deprecated.R

@@ -36,7 +36,8 @@
 
     if (missing(new)) new <- NULL
     warning(warningCondition(msg, old = old, new = new, package = package,
-                             class = "deprecatedWarning"))
+                             class = "deprecatedWarning",
+                             call = sys.call(sys.parent())))
 }
 
 ## consider keeping one (commented) entry here, for easier additions