[R-package] resolve test warning about is.na() and handles (#4341)

20e63387 · James Lamb · GitHub · 4ccf92be · 20e63387
Unverified Commit 20e63387 authored Jun 06, 2021 by James Lamb Committed by GitHub Jun 05, 2021
Show whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

R-package/tests/testthat/test_dataset.R R-package/tests/testthat/test_dataset.R +2 -1

No files found.
--- a/R-package/tests/testthat/test_dataset.R
+++ b/R-package/tests/testthat/test_dataset.R
@@ -82,7 +82,8 @@ test_that("lgb.Dataset: Dataset should be able to construct from matrix and retu
    , lightgbm:::lgb.params2str(params = list())
    , ref_handle
  )
-  expect_false(is.na(handle))
+  expect_is(handle, "externalptr")
+  expect_false(is.null(handle))
  .Call(LGBM_DatasetFree_R, handle)
  handle <- NULL
 })