# nocov start
#' Venue-specific shortcuts
#'
#' These are thin wrappers around `reprex()` that incorporate the target `venue`
#' as a suffix in the function name, for easier access via auto-completion.
#'
#' @param ... Passed along to [reprex()].
#'
#' @name reprex_venue
NULL
#' @export
#' @rdname reprex_venue
reprex_html <- function(...) reprex(..., venue = "html")
#' @export
#' @rdname reprex_venue
reprex_r <- function(...) reprex(..., venue = "r")
#' @export
#' @rdname reprex_venue
reprex_rtf <- function(...) reprex(..., venue = "rtf")
#' @export
#' @rdname reprex_venue
reprex_slack <- function(...) reprex(..., venue = "slack")
# these should exist for completeness, but I predict they'd never get used and
# they just clutter the auto-complete landscape
# reprex_gh <- function(...) reprex(..., venue = "gh")
# reprex_so <- function(...) reprex(..., venue = "so")
# reprex_ds <- function(...) reprex(..., venue = "ds")
# nocov ends
normalize_venue <- function(venue) {
venue <- ds_is_gh(venue)
venue <- so_is_gh(venue)
venue <- rtf_requires_highlight(venue)
venue
}
ds_is_gh <- function(venue) {
if (venue == "ds") {
reprex_info('
The Discourse venue "ds" is an alias for the default GitHub venue "gh".
There is no need to specify the venue.')
venue <- "gh"
}
venue
}
so_is_gh <- function(venue) {
if (venue == "so") {
reprex_info('
The Stack Overflow venue "so" is an alias for the default GitHub venue
"gh". There is no need to specify the venue.')
venue <- "gh"
}
venue
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.