diff --git a/DESCRIPTION b/DESCRIPTION index 3cf94949..c7dbf709 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -41,4 +41,4 @@ Config/Needs/website: tidyverse/tidytemplate Config/testthat/edition: 3 Encoding: UTF-8 Roxygen: {library(tidyr); list(markdown = TRUE)} -RoxygenNote: 7.3.1 +RoxygenNote: 7.3.2 diff --git a/NAMESPACE b/NAMESPACE index 8f81a743..07d234ad 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -17,9 +17,11 @@ S3method(distinct,dtplyr_step) S3method(do,dtplyr_step) S3method(dt_call,dtplyr_step) S3method(dt_call,dtplyr_step_assign) +S3method(dt_call,dtplyr_step_call) S3method(dt_call,dtplyr_step_first) S3method(dt_call,dtplyr_step_join) S3method(dt_call,dtplyr_step_modify) +S3method(dt_call,dtplyr_step_mutate) S3method(dt_call,dtplyr_step_set) S3method(dt_call,dtplyr_step_subset) S3method(dt_has_computation,dtplyr_step) diff --git a/R/step-call.R b/R/step-call.R index 7e9a01ff..0b130024 100644 --- a/R/step-call.R +++ b/R/step-call.R @@ -16,6 +16,7 @@ step_call <- function(parent, fun, args = list(), vars = parent$vars, in_place = ) } +#' @export dt_call.dtplyr_step_call <- function(x, needs_copy = x$needs_copy) { call2(x$fun, dt_call(x$parent, needs_copy), !!!x$args) } diff --git a/R/step-mutate.R b/R/step-mutate.R index 5906b132..c34100f0 100644 --- a/R/step-mutate.R +++ b/R/step-mutate.R @@ -26,6 +26,7 @@ step_mutate <- function(parent, new_vars = list(), use_braces = FALSE, by = new_ out } +#' @export dt_call.dtplyr_step_mutate <- function(x, needs_copy = x$needs_copy) { # i is always empty because we never mutate a subset if (is_empty(x$new_vars)) {