more cran tweaks

R/orsf_R6.R

@@ -2643,6 +2643,7 @@ ObliqueForest <- R6::R6Class(
 
    pd_vals <- do.call(orsf_cpp, cpp_args)$pd_values
 
+
    row_delim <- switch(self$tree_type,
                        "survival" = pred_horizon_ordered,
                        "regression" = 1,
@@ -2659,6 +2660,12 @@ ObliqueForest <- R6::R6Class(
 
     for(j in seq_along(pd_vals[[i]])){
 
+     nans <- which(is.nan(pd_vals[[i]][[j]]))
+
+     if(!is_empty(nans)){
+      pd_vals[[i]][[j]][nans] <- NA_real_
+     }
+
      pd_vals[[i]][[j]] <- matrix(pd_vals[[i]][[j]],
                                  nrow=length(row_delim),
                                  byrow = T)

R/orsf_summary.R

@@ -270,6 +270,8 @@ print.orsf_summary_uni <- function(x, n_variables = NULL, ...){
 #'
 #' @examples
 #'
+#'\dontrun{
+#'
 #' library(data.table)
 #'
 #' object <- orsf(pbc_orsf, Surv(time, status) ~ . - id, n_tree = 25)
@@ -278,6 +280,9 @@ print.orsf_summary_uni <- function(x, n_variables = NULL, ...){
 #'
 #' as.data.table(smry)
 #'
+#'}
+#'
+#'
 as.data.table.orsf_summary_uni <- function(x, ...){
  x$dt
 }