From 86ccccc1f98e556a9565f9ce539107981a2b2d89 Mon Sep 17 00:00:00 2001
From: Ryan Curtin <ryan@ratml.org>
Date: Wed, 17 Apr 2024 16:40:22 -0400
Subject: [PATCH 1/3] Handle verbose directly inside the binding function so we
 access the correct Log::Info.

---
 src/mlpack/bindings/R/print_R.cpp     | 15 ++-------------
 src/mlpack/bindings/R/r_method.cpp.in |  5 +++++
 2 files changed, 7 insertions(+), 13 deletions(-)

diff --git a/src/mlpack/bindings/R/print_R.cpp b/src/mlpack/bindings/R/print_R.cpp
index 97615bf58c..259766427a 100644
--- a/src/mlpack/bindings/R/print_R.cpp
+++ b/src/mlpack/bindings/R/print_R.cpp
@@ -184,21 +184,10 @@ void PrintR(util::Params& params,
        << endl;
   for (const string& opt : inputOptions)
   {
-    if (opt != "verbose")
-    {
-      util::ParamData& d = parameters.at(opt);
-      params.functionMap[d.tname]["PrintInputProcessing"](d, NULL, NULL);
-    }
+    util::ParamData& d = parameters.at(opt);
+    params.functionMap[d.tname]["PrintInputProcessing"](d, NULL, NULL);
   }
 
-  // Special handling for verbose output.
-  cout << "  if (verbose) {" << endl;
-  cout << "    EnableVerbose()" << endl;
-  cout << "  } else {" << endl;
-  cout << "    DisableVerbose()" << endl;
-  cout << "  }" << endl;
-  cout << endl;
-
   // Mark output parameters as passed.
   cout << "  # Mark all output options as passed." << endl;
   for (const string& opt : outputOptions)
diff --git a/src/mlpack/bindings/R/r_method.cpp.in b/src/mlpack/bindings/R/r_method.cpp.in
index 68e1928da9..3452ecfab4 100644
--- a/src/mlpack/bindings/R/r_method.cpp.in
+++ b/src/mlpack/bindings/R/r_method.cpp.in
@@ -17,6 +17,11 @@ void ${PROGRAM_NAME}_call(SEXP params, SEXP timers)
   util::Params& p = *Rcpp::as<Rcpp::XPtr<util::Params>>(params);
   util::Timers& t = *Rcpp::as<Rcpp::XPtr<util::Timers>>(timers);
 
+  if (p.Has("verbose"))
+    Log::Info.ignoreInput = false;
+  else
+    Log::Info.ignoreInput = true;
+
   BINDING_FUNCTION(p, t);
 }
 

From bce98510e18f8bf73f57fc070e1130e5c5ce0fed Mon Sep 17 00:00:00 2001
From: Ryan Curtin <ryan@ratml.org>
Date: Wed, 17 Apr 2024 16:40:49 -0400
Subject: [PATCH 2/3] Remove now-unneeded macro since we are not using Boost
 anymore.

---
 src/mlpack/bindings/R/mlpack/src/rcpp_mlpack.h | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/src/mlpack/bindings/R/mlpack/src/rcpp_mlpack.h b/src/mlpack/bindings/R/mlpack/src/rcpp_mlpack.h
index bd9ecf3ef1..83f272e753 100644
--- a/src/mlpack/bindings/R/mlpack/src/rcpp_mlpack.h
+++ b/src/mlpack/bindings/R/mlpack/src/rcpp_mlpack.h
@@ -15,9 +15,6 @@
 
 #include <Rcpp.h>
 
-// To suppress Found '__assert_fail', possibly from 'assert' (C).
-#define BOOST_DISABLE_ASSERTS
-
 // Rcpp has its own stream object which cooperates more nicely with R's i/o
 // And as of armadillo and mlpack, we can use this stream object as well.
 #if !defined(ARMA_COUT_STREAM)

From a0e06d9d00d01f3a1a5c9a120a73696eeb1cf80a Mon Sep 17 00:00:00 2001
From: Ryan Curtin <ryan@ratml.org>
Date: Wed, 17 Apr 2024 16:48:08 -0400
Subject: [PATCH 3/3] Update HISTORY.

---
 HISTORY.md | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/HISTORY.md b/HISTORY.md
index f770eab01a..19cc210570 100644
--- a/HISTORY.md
+++ b/HISTORY.md
@@ -37,6 +37,8 @@
 
   * Allow PCA to take different matrix types (#3677).
 
+  * Fix non-working `verbose` option for R bindings (#3691).
+
 ### mlpack 4.3.0
 ###### 2023-11-27
   * Fix include ordering issue for `LinearRegression` (#3541).