eddelbuettel · eddelbuettel · Jul 24, 2026 · Jul 23, 2026 · Jul 23, 2026 · Jul 23, 2026
diff --git a/ChangeLog b/ChangeLog
@@ -1,3 +1,8 @@
+2026-07-24  Maximilian Muecke  <muecke.maximilian@gmail.com>
+
+	* R/arrays.R (plotOptionSurface): Remove obsolete global variable
+	declarations
+
 2026-07-23  Maximilian Muecke  <muecke.maximilian@gmail.com>
 
 	* man/AffineSwaption.Rd: Correct several typos
@@ -16,6 +21,11 @@
 	* man/Schedule.Rd: Idem
 	* man/ZeroCouponBond.Rd: Idem
 	* man/tsQuotes.Rd: Idem
+	* R/affine.R: Correct typo in a warning message
+	* R/bermudan.R: Idem
+	* R/discount.R: Correct typo in an error message
+	* src/utils.cpp: Idem
+	* R/datasets.R: Correct typo in documentation
 
 2026-07-22  Maximilian Muecke  <muecke.maximilian@gmail.com>
 

diff --git a/R/affine.R b/R/affine.R
@@ -94,7 +94,7 @@ AffineSwaption.default <- function(params,
     # remove if search was out of bounds
     expiry=expiry[expiry>0];tenor=tenor[tenor>0];vol=vol[vol>0]
     if(length(expiry)<5){
-        warning("Insufficent vols to fit affine model")
+        warning("Insufficient vols to fit affine model")
         return(NULL)
     }
     #Take 1st 5 which includes closest to initial date

diff --git a/R/arrays.R b/R/arrays.R
@@ -178,5 +178,3 @@ plotOptionSurface <- function(EOres, ylabel="", xlabel="", zlabel="", fov=60) {
         message("Please install the 'rgl' package before using this function.")
     }
 }
-
-utils::globalVariables(c("clear3d", "bg3d", "ligh3d", "view3d", "surface3d", "text3d"))
diff --git a/R/bermudan.R b/R/bermudan.R
@@ -76,7 +76,7 @@ BermudanSwaption.default <- function(params, ts, swaptionMaturities,
     # remove if search was out of bounds
     expiry=expiry[expiry>0];tenor=tenor[tenor>0];vol=vol[vol>0]
     if(length(expiry)<5){
-        warning("Insufficent vols to fit affine model")
+        warning("Insufficient vols to fit affine model")
         return(NULL)
     }
     #Take 1st 5 which includes closest to initial date

diff --git a/R/datasets.R b/R/datasets.R
@@ -16,6 +16,6 @@ NULL
 #'  
 #' @name tsQuotes 
 #' @docType data
-#' @format A series of tenors and rates approppriate for calling DiscountCurve
+#' @format A series of tenors and rates appropriate for calling DiscountCurve
 #' @source TBA
 NULL
diff --git a/R/discount.R b/R/discount.R
@@ -48,7 +48,7 @@ DiscountCurve.default <- function(params, tsQuotes, times=seq(0,10,.1),
 
     ## Check the times vector
     if (!is.numeric(times) || length(times) == 0) {
-        stop("The times parameter must be a non-emptry numeric vector", call.=FALSE)
+        stop("The times parameter must be a non-empty numeric vector", call.=FALSE)
     }
 
     ## Finally ready to make the call...

diff --git a/src/utils.cpp b/src/utils.cpp
@@ -687,7 +687,7 @@ QuantLib::Date getFutureDate(const QuantLib::Date today,
             return QuantLib::Date{today + length};
         #endif
     } else {
-        Rcpp::stop("Excactly one of 'maturity' or 'exDate' needs to be supplied and be non-null.");
+        Rcpp::stop("Exactly one of 'maturity' or 'exDate' needs to be supplied and be non-null.");
         return QuantLib::Date(); // not reached
     }
 }
-Original file line number
+Diff line change
@@ Expand Up @@
             message("Please install the 'rgl' package before using this function.")
         }
     }
-    utils::globalVariables(c("clear3d", "bg3d", "ligh3d", "view3d", "surface3d", "text3d"))