R/view.R

In krlmlr/tibble: Simple Data Frames

#' View an object
#'
#' @description
#' \lifecycle{experimental}
#'
#' Calls [utils::View()] on the input and returns it, invisibly.
#' The RStudio IDE overrides `utils::View()`, this is picked up
#' correctly.
#'
#' @param x The object to display.
#' @param title The title to use for the display, by default
#'   the deparsed expression is used.
#' @param ... Unused, for extensibility.
#'
#' @export
view <- function(x, title = NULL, ...) {
  if (!interactive()) return(invisible(x))

  if (is.null(title)) {
    title <- expr_deparse(enexpr(x))
  }

  view_fun <- get("View", envir = as.environment("package:utils"))
  eval_tidy(view_fun({{x}}, {{title}}))

  invisible(x)
}