bug fix in distirbutional assignment

Author: topepo

R/surv_reg.R

@@ -154,7 +154,7 @@ check_args.surv_reg <- function(object) {
     args <- lapply(object$args, rlang::eval_tidy)
 
     # `dist` has no default in the function
-    if (all(names(args) != "dist"))
+    if (all(names(args) != "dist") || is.null(args$dist))
       object$args$dist <- "weibull"
   }
 

R/surv_reg_data.R

@@ -1,8 +1,8 @@
 
 surv_reg_arg_key <- data.frame(
-  flexsurv    =  c("dist", NA),
+  flexsurv    =  c("dist"),
   stringsAsFactors = FALSE,
-  row.names =  c("dist", "mixture")
+  row.names =  c("dist")
 )
 
 surv_reg_modes <- "regression"