Hendrik/xgboost
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[R] avoid leaving test files behind (#8685)

Browse Source
This commit is contained in:
James Lamb 2023-01-15 09:34:54 -06:00 committed by GitHub
parent e7d612d22c
commit e227abc57a
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
3 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
.gitignore vendored
View File

@ -143,3 +143,9 @@ demo/**/*.txt
.hypothesis .hypothesis
__MACOSX/ __MACOSX/
model*.json model*.json
# R tests
*.libsvm
*.rds
Rplots.pdf
*.zip

2
R-package/tests/testthat/test_dmatrix.R
View File

@ -70,7 +70,7 @@ test_that("xgb.DMatrix: saving, loading", {
# from a libsvm text file # from a libsvm text file
tmp <- c("0 1:1 2:1", "1 3:1", "0 1:1") tmp <- c("0 1:1 2:1", "1 3:1", "0 1:1")
tmp_file <- 'tmp.libsvm' tmp_file <- tempfile(fileext = ".libsvm")
writeLines(tmp, tmp_file) writeLines(tmp, tmp_file)
dtest4 <- xgb.DMatrix(tmp_file, silent = TRUE) dtest4 <- xgb.DMatrix(tmp_file, silent = TRUE)
expect_equal(dim(dtest4), c(3, 4)) expect_equal(dim(dtest4), c(3, 4))

7
R-package/tests/testthat/test_model_compatibility.R
View File

@ -59,11 +59,12 @@ test_that("Models from previous versions of XGBoost can be loaded", {
bucket <- 'xgboost-ci-jenkins-artifacts' bucket <- 'xgboost-ci-jenkins-artifacts'
region <- 'us-west-2' region <- 'us-west-2'
file_name <- 'xgboost_r_model_compatibility_test.zip' file_name <- 'xgboost_r_model_compatibility_test.zip'
zipfile <- file.path(getwd(), file_name) zipfile <- tempfile(fileext = ".zip")
model_dir <- file.path(getwd(), 'models') extract_dir <- tempdir()
download.file(paste('https://', bucket, '.s3-', region, '.amazonaws.com/', file_name, sep = ''), download.file(paste('https://', bucket, '.s3-', region, '.amazonaws.com/', file_name, sep = ''),
destfile = zipfile, mode = 'wb', quiet = TRUE) destfile = zipfile, mode = 'wb', quiet = TRUE)
unzip(zipfile, overwrite = TRUE) unzip(zipfile, exdir = extract_dir, overwrite = TRUE)
model_dir <- file.path(extract_dir, 'models')
pred_data <- xgb.DMatrix(matrix(c(0, 0, 0, 0), nrow = 1, ncol = 4)) pred_data <- xgb.DMatrix(matrix(c(0, 0, 0, 0), nrow = 1, ncol = 4))