From 671970ede1e78ff2c069766221ca70b8bb89978e Mon Sep 17 00:00:00 2001 From: Joe Thorley Date: Thu, 2 Jan 2025 19:21:47 -0800 Subject: [PATCH] start calling xnew_data issue #40 --- R/new-data.R | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/R/new-data.R b/R/new-data.R index e2957a6..059606a 100644 --- 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()