Nothing
# nocov start
#' Render a "prex"
#'
#' @description
#' `prex()` is like [reprex()], but much less reproducible!
#' * Code is evaluated in the global environment of the current R session.
#' * Current working directory is used.
#' * `advertise = FALSE` is the default.
#' This violates many principles of a true reprex, which is why the `prex()`
#' family of functions is unexported. The main motivation is to make
#' `prex_rtf()` available for preparing code snippets that are scattered around
#' a talk and that can't necessarily be self-contained.
#'
#' Specific `reprex()` arguments do not appear as `prex()` arguments or may have
#' different capabilities (i.e., more limited).
#' * `std_out_err`: not offered in `prex()`
#'
#' @noRd
#' @keywords internal
#'
#' @examples
#' # compare and contrast to get a feel for reprex() vs prex()
#' reprex(ls()) # character(0)
#' prex(ls()) # whatever is lying around your current workspace
#'
#' reprex(search()) # won't reflect anything you attach in .Rprofile
#' prex(search()) # generally does reflect packages attached in .Rprofile
#'
#' reprex(getwd()) # a reprex directory below session temp directory
#' prex(getwd()) # current working directory
prex <- function(x = NULL,
input = NULL,
venue = c("gh", "r", "rtf", "html", "slack", "so", "ds"),
render = TRUE,
advertise = FALSE, # <-- different from reprex
session_info = opt(FALSE),
style = opt(FALSE),
html_preview = opt(TRUE),
comment = opt("#>"),
tidyverse_quiet = opt(TRUE)) {
reprex_impl(
x_expr = substitute(x),
input = input,
wd = ".", # <-- different from reprex
venue = venue,
render = render,
new_session = FALSE, # <-- different from reprex()
advertise = advertise,
session_info = session_info,
style = style,
comment = comment,
tidyverse_quiet = tidyverse_quiet,
std_out_err = FALSE, # <-- different from reprex()
html_preview = html_preview
)
}
prex_html <- function(...) prex(..., venue = "html")
prex_r <- function(...) prex(..., venue = "r")
prex_rtf <- function(...) prex(..., venue = "rtf")
prex_slack <- function(...) prex(..., venue = "slack")
# these should exist for completeness, but I predict they'd never get used and
# they just clutter the auto-complete landscape
# prex_gh <- function(...) prex(..., venue = "gh")
# prex_so <- function(...) prex(..., venue = "so")
# prex_ds <- function(...) prex(..., venue = "ds")
# nocov end
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.