From 14e8f3693ea72cc967ad8e3e9bb91a71c8568d03 Mon Sep 17 00:00:00 2001 From: Aleksander Chlebowski Date: Fri, 10 Jan 2025 14:11:51 +0100 Subject: [PATCH] fix errors introduced in PR 232 --- R/delayed_choices.R | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/R/delayed_choices.R b/R/delayed_choices.R index 345ec9a5..edd17424 100644 --- a/R/delayed_choices.R +++ b/R/delayed_choices.R @@ -56,9 +56,9 @@ first_choice <- function() { original_fun <- x$subset added_fun <- function(x) x[1L] x$subset <- function(data) { - added_fun(original_fun(x)) - x + added_fun(original_fun(data)) } + x } }, class = c("delayed_choices") @@ -78,10 +78,9 @@ last_choice <- function() { original_fun <- x$subset added_fun <- function(x) x[length(x)] x$subset <- function(data) { - added_fun(original_fun(x)) - x + added_fun(original_fun(data)) } - + x } }, class = c("delayed_choices")