Merge pull request #261 from cmansch/main

Fixing Bug for Cut Functions in Parallel

R/sim_gs_n.R

@@ -360,6 +360,7 @@ sim_gs_n <- function(
 #' # Cut the trial data
 #' cutting(trial_data)
 create_cut <- function(...) {
+  lapply(X = list(...), FUN = force)
   function(data) {
     get_analysis_date(data, ...)
   }