[R] Don't write files to user's directory (#9966)

R-package/R/utils.R

@@ -388,13 +388,14 @@ NULL
 #'                  objective = "binary:logistic")
 #'
 #' # Save as a stand-alone file; load it with xgb.load()
-#' xgb.save(bst, 'xgb.model')
-#' bst2 <- xgb.load('xgb.model')
+#' fname <- file.path(tempdir(), "xgb_model.ubj")
+#' xgb.save(bst, fname)
+#' bst2 <- xgb.load(fname)
 #'
 #' # Save as a stand-alone file (JSON); load it with xgb.load()
-#' xgb.save(bst, 'xgb.model.json')
-#' bst2 <- xgb.load('xgb.model.json')
-#' if (file.exists('xgb.model.json')) file.remove('xgb.model.json')
+#' fname <- file.path(tempdir(), "xgb_model.json")
+#' xgb.save(bst, fname)
+#' bst2 <- xgb.load(fname)
 #'
 #' # Save as a raw byte vector; load it with xgb.load.raw()
 #' xgb_bytes <- xgb.save.raw(bst)
@@ -405,12 +406,12 @@ NULL
 #' # Persist the R object. Here, saveRDS() is okay, since it doesn't persist
 #' # xgb.Booster directly. What's being persisted is the future-proof byte representation
 #' # as given by xgb.save.raw().
-#' saveRDS(obj, 'my_object.rds')
+#' fname <- file.path(tempdir(), "my_object.Rds")
+#' saveRDS(obj, fname)
 #' # Read back the R object
-#' obj2 <- readRDS('my_object.rds')
+#' obj2 <- readRDS(fname)
 #' # Re-construct xgb.Booster object from the bytes
 #' bst2 <- xgb.load.raw(obj2$xgb_model_bytes)
-#' if (file.exists('my_object.rds')) file.remove('my_object.rds')
 #'
 #' @name a-compatibility-note-for-saveRDS-save
 NULL

R-package/R/xgb.Booster.R

@@ -118,12 +118,12 @@ xgb.get.handle <- function(object) {
 #'   objective = "binary:logistic"
 #' )
 #'
-#' saveRDS(bst, "xgb.model.rds")
+#' fname <- file.path(tempdir(), "xgb_model.Rds")
+#' saveRDS(bst, fname)
 #'
 #' # Warning: The resulting RDS file is only compatible with the current XGBoost version.
 #' # Refer to the section titled "a-compatibility-note-for-saveRDS-save".
-#' bst1 <- readRDS("xgb.model.rds")
-#' if (file.exists("xgb.model.rds")) file.remove("xgb.model.rds")
+#' bst1 <- readRDS(fname)
 #' # the handle is invalid:
 #' print(bst1$handle)
 #'
@@ -580,9 +580,9 @@ predict.xgb.Booster.handle <- function(object, ...) {
 #' print(xgb.attr(bst, "my_attribute"))
 #' xgb.attributes(bst) <- list(a = 123, b = "abc")
 #'
-#' xgb.save(bst, "xgb.model")
-#' bst1 <- xgb.load("xgb.model")
-#' if (file.exists("xgb.model")) file.remove("xgb.model")
+#' fname <- file.path(tempdir(), "xgb.ubj")
+#' xgb.save(bst, fname)
+#' bst1 <- xgb.load(fname)
 #' print(xgb.attr(bst1, "my_attribute"))
 #' print(xgb.attributes(bst1))
 #'

R-package/R/xgb.DMatrix.R

@@ -56,9 +56,9 @@
 #' dtrain <- with(
 #'   agaricus.train, xgb.DMatrix(data, label = label, nthread = nthread)
 #' )
-#' xgb.DMatrix.save(dtrain, 'xgb.DMatrix.data')
-#' dtrain <- xgb.DMatrix('xgb.DMatrix.data')
-#' if (file.exists('xgb.DMatrix.data')) file.remove('xgb.DMatrix.data')
+#' fname <- file.path(tempdir(), "xgb.DMatrix.data")
+#' xgb.DMatrix.save(dtrain, fname)
+#' dtrain <- xgb.DMatrix(fname)
 #' @export
 xgb.DMatrix <- function(
   data,

R-package/R/xgb.DMatrix.save.R

@@ -8,9 +8,9 @@
 #' @examples
 #' data(agaricus.train, package='xgboost')
 #' dtrain <- with(agaricus.train, xgb.DMatrix(data, label = label, nthread = 2))
-#' xgb.DMatrix.save(dtrain, 'xgb.DMatrix.data')
-#' dtrain <- xgb.DMatrix('xgb.DMatrix.data')
-#' if (file.exists('xgb.DMatrix.data')) file.remove('xgb.DMatrix.data')
+#' fname <- file.path(tempdir(), "xgb.DMatrix.data")
+#' xgb.DMatrix.save(dtrain, fname)
+#' dtrain <- xgb.DMatrix(fname)
 #' @export
 xgb.DMatrix.save <- function(dmatrix, fname) {
   if (typeof(fname) != "character")

R-package/R/xgb.load.R

@@ -38,9 +38,9 @@
 #'   objective = "binary:logistic"
 #' )
 #'
-#' xgb.save(bst, 'xgb.model')
-#' bst <- xgb.load('xgb.model')
-#' if (file.exists('xgb.model')) file.remove('xgb.model')
+#' fname <- file.path(tempdir(), "xgb.ubj")
+#' xgb.save(bst, fname)
+#' bst <- xgb.load(fname)
 #' @export
 xgb.load <- function(modelfile) {
   if (is.null(modelfile))

R-package/R/xgb.save.R

@@ -40,9 +40,9 @@
 #'   nrounds = 2,
 #'   objective = "binary:logistic"
 #' )
-#' xgb.save(bst, 'xgb.model')
-#' bst <- xgb.load('xgb.model')
-#' if (file.exists('xgb.model')) file.remove('xgb.model')
+#' fname <- file.path(tempdir(), "xgb.ubj")
+#' xgb.save(bst, fname)
+#' bst <- xgb.load(fname)
 #' @export
 xgb.save <- function(model, fname) {
   if (typeof(fname) != "character")