start calling xnew_data issue #40

poissonconsulting · Jan 3, 2025 · 671970e · 671970e
1 parent 7cd183a
commit 671970e
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/new-data.R b/R/new-data.R
@@ -70,7 +70,11 @@ new_data <- function(
   }
 
   if(missing(ref) && missing(obs_only)) {
-    # TODO: use xnew_data(data, seq, .length_out = length_out)
+    args <- c(list(.data = data, .length_out = length_out), seq)
+    # TODO: make work when seq is specified
+   if(missing(seq)) {
+      return(do.call("xnew_data", args = args))
+    }
   }
 
   obs_only <- obs_only %>% unique()