[R] Use R's error stream for printing warnings (#9965)

2024-01-09 03:43:21 +08:00
parent b3eb5d0945
commit 7ff6d44efa
2 changed files with 7 additions and 2 deletions
@@ -17,7 +17,11 @@ namespace xgboost {
 ConsoleLogger::~ConsoleLogger() {
  if (cur_verbosity_ == LogVerbosity::kIgnore ||
      cur_verbosity_ <= GlobalVerbosity()) {
-    dmlc::CustomLogMessage::Log(log_stream_.str());
+    if (cur_verbosity_ == LogVerbosity::kWarning) {
+      REprintf("%s\n", log_stream_.str().c_str());
+    } else {
+      dmlc::CustomLogMessage::Log(log_stream_.str());
+    }
  }
 }
 TrackerLogger::~TrackerLogger() {