Intro Thoughts
Status Quo
library(tidyverse)
Experiment
ggplot(data = cars) +
aes(x = speed, y = dist) +
geom_point()
knitrExtra::chunk_code_get("cars") ->
plot_code
## It seems you are currently knitting a Rmd/Qmd file. The parsing of the file will be done in a new R session.
plot_code %>%
paste(collapse = "\n") %>%
paste("# source: \n", .) ->
display_code
display_code %>% paste(collapse = " ") %>% parse(text = .) %>% eval() +
annotate(geom = "label",
x = I(-.05),
y = I(.9),
label = display_code,
hjust = 0,
vjust = 1,
lineheight = .8,
color = "darkred",
angle = 0,
size = 6,
font.family = "curiour") +
coord_cartesian(clip = "off")
## Warning in annotate(geom = "label", x = I(-0.05), y = I(0.9), label =
## display_code, : Ignoring unknown parameters: `font.family`
