update remotes

Author: RaphaelS1

DESCRIPTION

@@ -57,9 +57,6 @@ Suggests:
     simsurv,
     survAUC,
     testthat
-Remotes:
-    alan-turing-institute/distr6,
-    mlr-org/mlr3
 LinkingTo:
     Rcpp
 ByteCompile: true

R/PredictionDataSurv.R

@@ -68,10 +68,13 @@ c.PredictionDataSurv = function(..., keep_duplicates = TRUE) {
   }
 
   if ("distr" %in% predict_types) {
-    if (inherits(dots$distr, "VectorDistribution")) {
+    if (inherits(dots[[1]]$distr, "VectorDistribution")) {
       result$distr = do.call(c, map(dots, "distr"))
     } else {
       result$distr = tryCatch(
+        # Ideally we keep returned object as a matrix but this may
+        #  not be possible if the number of columns doesn't match up.
+        #  In this case we convert internally within distr6
         do.call(rbind, map(dots, "distr")),
         error = function(e) {
           do.call(c, map(dots,