reprex (version 0.1.1)

un-reprex: Un-render a reprex

Description

Recover clean, runnable code from a reprex captured in the wild. The code is printed, returned invisibly, and written to the clipboard, if possible. Pick the function that deals with your problem:

• reprex_invert() handles Markdown, with code blocks indicated with backticks or indentation, e.g., the direct output of reprex(..., venue = "gh") or reprex(..., venue = "so").

• reprex_clean() assumes R code is top-level, possibly interleaved with commented output, e.g., a displayed reprex copied from GitHub or the direct output of reprex(..., venue = "R").

• reprex_rescue() assumes R code lines start with a prompt and printed output is top-level, e.g., what you'd get by copying from the R Console.

Usage

reprex_invert(input = NULL, venue = c("gh", "so"), comment = "^#>")
reprex_clean(input = NULL, comment = "^#>")
reprex_rescue(input = NULL, prompt = getOption("prompt"))

Arguments

input

character, holding a wild-caught reprex as a character vector (length greater than one), string (length one with terminating newline), or file path (length one with no terminating newline). If not provided, the clipboard is consulted for input.

venue

"gh" for GitHub (default), "so" for StackOverflow, "r" or "R" for a runnable R script, with commented output interleaved.

comment

regular expression that matches commented output lines

prompt

character, the prompt at the start of R commands

Value

character vector holding just the clean R code, invisibly

Functions

• reprex_invert: Attempts to reverse the effect of reprex(). The input should be Markdown, presumably the output of reprex(). venue matters because, in GitHub-flavored Markdown, code blocks are placed within triple backticks. In other Markdown dialects, such as the one used on StackOverflow, code is indented by four spaces.

• reprex_clean: Removes lines of commented output from a displayed reprex, such as code copied from a GitHub issue or reprex'ed with venue = "R".

• reprex_rescue: Removes lines of output and strips prompts from lines holding R commands. Typical input is copy/paste from R Console.

Examples

# NOT RUN {
## a rendered reprex can be inverted, at least approximately
x <- reprex({
  #' Some text
  #+ chunk-label-and-options-cannot-be-recovered, message = TRUE
  (x <- 1:4)
  #' More text
  y <- 2:5
  x + y
}, show = FALSE)
writeLines(x)
reprex_invert(x)
## a displayed reprex can be cleaned of commented output
x <- c(
  "## a regular comment, which is retained",
  "(x <- 1:4)",
  "#> [1] 1 2 3 4",
  "median(x)",
  "#> [1] 2.5"
  )
reprex_clean(x)

# }
# NOT RUN {
## round trip with reprex(..., venue = "R")
code_in <- c("x <- rnorm(2)", "min(x)")
res <- reprex(input = code_in, venue = "R")
res
(code_out <- reprex_clean(res))
identical(code_in, code_out)
# }
# NOT RUN {
## rescue a reprex that was copied from a live R session
x <- c(
  "> ## a regular comment, which is retained",
  "> (x <- 1:4)",
  "[1] 1 2 3 4",
  "> median(x)",
  "[1] 2.5"
)
reprex_rescue(x)
# }