The following code will generate a randomly named *_reprex.md file that can be copied for others.
reprex::reprex(
{
library(tibble)
library(purrr)
library(dplyr)
mutate(tibble(a=1),b = map(a, ~ tibble(c=1)))
}
, outfile = "reprex.html", html_preview=FALSE, session_info = TRUE
)