Fix inherits - broken due to breaking change in splines2 0.5

splines2 v0.5.0 made a breaking change, and the class was renamed from iSpline to ISpline, and the order of the class heirarchy was also changed. Same for their mSpline class, etc.

Author: sambrilleman

R/stan_surv.R

@@ -1732,8 +1732,8 @@ make_basis <- function(times, basehaz, integrate = FALSE) {
 basis_matrix <- function(times, basis, integrate = FALSE) {
   out <- predict(basis, times)
   if (integrate) {
-    stopifnot(inherits(basis, "mSpline"))
-    class(basis) <- c("matrix", "iSpline")
+    stopifnot(inherits(basis, "MSpline"))
+    class(basis) <- c("ISpline", "splines2", "matrix")
     out <- predict(basis, times)
   }
   aa(out)