R/call_chunk_null.R

In shinyreprex: Reproducible Code for 'Shiny' Objects

#' Generic Method for Reproducing Code
#'
#' @description
#' Standard response is to return the called object
#'
#' @noRd
S7::method(repro_call_chunk, class_call_null) <- function(x, repro_code = Repro(), env = rlang::caller_env()) {
  eval_call <- x

  repro_code@packages <- get_pkg_name(x)
  repro_code@code <- eval_call
  repro_code
}