R/chunk_reactive.R

In shinyreprex: Reproducible Code for 'Shiny' Objects

#' @description
#' When reproducing a reactive object, a step is required to get the environment that
#' the reactive was assigned in, rather than the environment that is calling `shiny_reprex`.
#' For that, some diving into the internals of the observable object is required to
#' get the specific environment, before generating the reproducible code.
#'
#' ## Environments
#' The `Observable` object attached to the given reactive is extracted. Within the
#' `Observable`, the `.origFunc` contains the environment that the reactive expression
#' was created - the parent environment being the module that the reactive is assigned
#' in. This allows the variables in the module to be found and set as pre-requisites
#' for the given reactive.
#'
#' If `bindCache` or `bindEvent` are used, then the environment found is the call within
#' the relevant function. To get to the module environment, we find that the `reactive`
#' is assigned as "`wrappedFunc`", so that is used to find the module environment.
#'
#' @include repro_chunk.R
#' @noRd
S7::method(repro_chunk, class_reactive) <- function(x, repro_code = Repro(), env = rlang::caller_env()) {
  observer <- attr(x, "observable", exact = TRUE)
  module_env <- rlang::env_parent(env = environment(observer$.origFunc))
  inner_reactive <- observer$.origFunc

  # Accounts for bindEvent and bindCache
  while ("wrappedFunc" %in% names(attributes(module_env$valueFunc))) {
    inner_reactive <- attr(module_env$valueFunc, "wrappedFunc", exact = TRUE)
    module_env <- rlang::env_parent(env = environment(inner_reactive))
  }

  reactive_body <- rlang::fn_body(inner_reactive)
  reactive_exprs <- as.list(reactive_body)[-1]

  for (reactive_expr in reactive_exprs) {
    repro_code <- repro_chunk(reactive_expr, repro_code = repro_code, env = module_env)
  }

  repro_code
}