disable testing of bayesian dose selection

Author: NightlordTW

R/interim.r

@@ -158,8 +158,10 @@ dose_selection_and_ssre <- function(dat_int, n_pln, n_max, trt_ref, trt_active,
 #'                trt_active = trt_active, gamma = 0.98)
 #'
 #' # Bayesian approach for dose selection
+#' \dontrun{
 #' dose_selection(dat_int = dat_int, n_pln = 150, trt_ref = trt_ref,
 #'                trt_active = trt_active, method = "bayes")
+#' }
 #' @export
 #'
 #' @importFrom rlang .data