function (x = NULL, input = NULL, wd = NULL, venue = c("gh",
"r", "rtf", "html", "slack", "so",
"ds"), render = TRUE, advertise = NULL, session_info = opt(FALSE),
style = opt(FALSE), comment = opt("#>"), tidyverse_quiet = opt(TRUE),
std_out_err = opt(FALSE), html_preview = opt(TRUE), outfile = "DEPRECATED",
show = "DEPRECATED", si = "DEPRECATED")
{
if (!missing(show)) {
html_preview <- show
reprex_warning("{.code show} is deprecated, please use {.code html_preview} instead")
}
if (!missing(si)) {
session_info <- si
}
reprex_impl(x_expr = substitute(x), input = input, wd = wd,
venue = venue, render = render, new_session = TRUE, advertise = advertise,
session_info = session_info, style = style, html_preview = html_preview,
comment = comment, tidyverse_quiet = tidyverse_quiet,
std_out_err = std_out_err, outfile = outfile)
}
<bytecode: 0x0000024dd8a6ceb8>
<environment: namespace:reprex>
Here is the output.