diff --git a/R-package/vignettes/xgboost.Rnw b/R-package/vignettes/xgboost.Rnw
index f3839fb8a..9e2e9cec6 100644
--- a/R-package/vignettes/xgboost.Rnw
+++ b/R-package/vignettes/xgboost.Rnw
@@ -215,9 +215,7 @@ competition.
 \end{document}
 
 <<Temp file cleaning, include=FALSE>>=
-rm("xgb.DMAtrix")
-rm("xgb.model.dump")
-rm("model.save")
-rm("xgboost.model")
-rm("dtrain.buffer")
+file.remove("xgb.DMatrix")
+file.remove("model.dump")
+file.remove("model.save")
 @
\ No newline at end of file
diff --git a/R-package/vignettes/xgboostPresentation.Rmd b/R-package/vignettes/xgboostPresentation.Rmd
index b7bafd027..d43459456 100644
--- a/R-package/vignettes/xgboostPresentation.Rmd
+++ b/R-package/vignettes/xgboostPresentation.Rmd
@@ -230,7 +230,7 @@ print(paste("sum(abs(pred2-pred))=", sum(abs(pred2-pred))))
 
 ```{r clean, include=FALSE}
 # delete the created model
-rm("xgboost.model")
+file.remove("./xgboost.model")
 ```
 
 > result is `0`? We are good!
@@ -315,6 +315,10 @@ dtrain2 <- xgb.DMatrix("dtrain.buffer")
 bst <- xgb.train(data=dtrain2, max.depth=2, eta=1, nround=2, watchlist=watchlist, objective = "binary:logistic")
 ```
 
+```{r DMatrixDel, include=FALSE}
+file.remove("dtrain.buffer")
+```
+
 ### Information extraction
 
 Information can be extracted from `xgb.DMatrix` using `getinfo` function. Hereafter we will extract `label` data.