[backport][R] Fix winbuilder check warnings. (dmlc#11830)

Author: trivialfis

R-package/R/utils.R

@@ -482,6 +482,7 @@ xgb.createFolds <- function(y, k) {
 #' \url{https://xgboost.readthedocs.io/en/latest/tutorials/saving_model.html}.
 #'
 #' @examples
+#' \dontshow{RhpcBLASctl::omp_set_num_threads(1)}
 #' data(agaricus.train, package = "xgboost")
 #'
 #' bst <- xgb.train(

R-package/R/xgb.Booster.R

@@ -252,6 +252,7 @@ xgb.get.handle <- function(object) {
 #'   \url{https://arxiv.org/abs/1706.06060}
 #'
 #' @examples
+#' \dontshow{RhpcBLASctl::omp_set_num_threads(1)}
 #' ## binary classification:
 #'
 #' data(agaricus.train, package = "xgboost")

R-package/configure

@@ -3353,7 +3353,7 @@ fi
 
 ac_config_files="$ac_config_files src/Makevars"
 
-ac_config_headers="$ac_config_headers config.h"
+ac_config_headers="$ac_config_headers src/config.h"
 
 cat >confcache <<\_ACEOF
 # This file is a shell script that caches the results of configure
@@ -4041,7 +4041,7 @@ for ac_config_target in $ac_config_targets
 do
   case $ac_config_target in
     "src/Makevars") CONFIG_FILES="$CONFIG_FILES src/Makevars" ;;
-    "config.h") CONFIG_HEADERS="$CONFIG_HEADERS config.h" ;;
+    "src/config.h") CONFIG_HEADERS="$CONFIG_HEADERS src/config.h" ;;
 
   *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;;
   esac

R-package/configure.ac

@@ -122,5 +122,5 @@ AC_SUBST(BACKTRACE_LIB)
 AC_SUBST(XGBOOST_BUILTIN_PREFETCH_PRESENT)
 AC_SUBST(XGBOOST_MM_PREFETCH_PRESENT)
 AC_CONFIG_FILES([src/Makevars])
-AC_CONFIG_HEADERS([config.h])
+AC_CONFIG_HEADERS([src/config.h])
 AC_OUTPUT

R-package/man/a-compatibility-note-for-saveRDS-save.Rd

@@ -1,4 +1,4 @@
-/* config.h.in.  Generated from configure.ac by autoheader.  */
+/* src/config.h.in.  Generated from configure.ac by autoheader.  */
 
 /* Define if building universal (internal helper macro) */
 #undef AC_APPLE_UNIVERSAL_BUILD

R-package/man/predict.xgb.Booster.Rd

@@ -58,14 +58,14 @@ extern SEXP XGDMatrixCreateFromDF_R(SEXP, SEXP, SEXP);
 extern SEXP XGDMatrixGetStrFeatureInfo_R(SEXP, SEXP);
 extern SEXP XGDMatrixNumCol_R(SEXP);
 extern SEXP XGDMatrixNumRow_R(SEXP);
-extern SEXP XGProxyDMatrixCreate_R();
+extern SEXP XGProxyDMatrixCreate_R(void);
 extern SEXP XGProxyDMatrixSetDataDense_R(SEXP, SEXP);
 extern SEXP XGProxyDMatrixSetDataCSR_R(SEXP, SEXP);
 extern SEXP XGProxyDMatrixSetDataColumnar_R(SEXP, SEXP);
 extern SEXP XGDMatrixCreateFromCallback_R(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP);
 extern SEXP XGQuantileDMatrixCreateFromCallback_R(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP);
 extern SEXP XGDMatrixFree_R(SEXP);
-extern SEXP XGGetRNAIntAsDouble();
+extern SEXP XGGetRNAIntAsDouble(void);
 extern SEXP XGDMatrixGetQuantileCut_R(SEXP);
 extern SEXP XGDMatrixNumNonMissing_R(SEXP);
 extern SEXP XGDMatrixGetDataAsCSR_R(SEXP);

R-package/config.h.in renamed to R-package/src/config.h.in

@@ -48,6 +48,7 @@ def pkgroot(path: str) -> None:
         )
 
     shutil.copytree("R-package", dest)
+    os.remove(dest / "bootstrap.R")
     # core
     shutil.copytree("src", dest / "src" / "src")
     shutil.copytree("include", dest / "src" / "include")

R-package/src/init.c

@@ -1,12 +1,13 @@
 /**
- *  Copyright 2021-2024, XGBoost Contributors
+ *  Copyright 2021-2025, XGBoost Contributors
  */
 #include "sparse_page_source.h"
 
-#include <cstdio>      // for remove
-#include <filesystem>  // for exists
-#include <numeric>     // for partial_sum
-#include <string>      // for string
+#include <cstdio>       // for remove
+#include <filesystem>   // for exists, path, is_directory
+#include <numeric>      // for partial_sum
+#include <string>       // for string
+#include <string_view>  // for string_view
 
 #include "../collective/communicator-inl.h"  // for IsDistributed, GetRank
 
@@ -31,7 +32,13 @@ void TryDeleteCacheFile(const std::string& file) {
 }
 
 std::string MakeCachePrefix(std::string cache_prefix) {
-  cache_prefix = cache_prefix.empty() ? "DMatrix" : cache_prefix;
+  std::string_view constexpr kDftname{"DMatrix"};
+  cache_prefix = cache_prefix.empty() ? kDftname : cache_prefix;
+  // Use the directory if one exists
+  if (std::filesystem::is_directory(cache_prefix)) {
+    cache_prefix = (std::filesystem::path{cache_prefix} / kDftname).string();  // NOLINT
+  }
+  // Avoid conflicts in distributed environments.
   if (collective::IsDistributed()) {
     cache_prefix += ("-r" + std::to_string(collective::GetRank()));
   }