Merge pull request #56 from ropensci/issue55

allow empty numeric data

R/orsf_R6.R

@@ -2503,6 +2503,15 @@ ObliqueForest <- R6::R6Class(
 
    numeric_data <- select_cols(self$data, private$data_names$x_numeric)
 
+   if(is_empty(numeric_data)){
+
+    private$data_bounds <- matrix(NA, nrow=5, ncol=1,
+                                  dimnames = list(c('10%', '25%', '50%', '75%', '90%'),
+                                                  "placeholder"))
+    return()
+
+   }
+
    if(self$na_action == 'omit'){
     numeric_data <- collapse::fsubset(numeric_data, private$data_rows_complete)
    }

tests/testthat/test-orsf.R

@@ -988,3 +988,20 @@ test_that(
 
  }
 )
+
+test_that(
+ desc = "data without numerics are allowed",
+ code = {
+
+  fit <- orsf(pbc_orsf, time + status ~ sex + trt, n_tree = n_tree_test)
+
+  expect_true(all(is.na(fit$get_bounds())))
+
+  expect_equal(length(orsf_vi(fit)), 2L)
+
+  skip_on_cran()
+  # don't require too much compute time from cran
+  expect_equal(nrow(orsf_pd_oob(fit, pred_spec_auto(sex, trt))), 4L)
+
+ }
+)