Skip to content

Commit

Permalink
fix errors introduced in PR 232
Browse files Browse the repository at this point in the history
  • Loading branch information
chlebowa committed Jan 10, 2025
1 parent 85fb64f commit 14e8f36
Showing 1 changed file with 4 additions and 5 deletions.
9 changes: 4 additions & 5 deletions R/delayed_choices.R
Original file line number Diff line number Diff line change
Expand Up @@ -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")
Expand All @@ -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")
Expand Down

0 comments on commit 14e8f36

Please sign in to comment.