vignettes/plots.Rmd
plots.Rmd
library(whereami) library(ggplot2)
ggplot(iris) + aes(x=Sepal.Length,y=Sepal.Width) + geom_point()
/tmp/Rtmp8T36Ny/callr-scr-2d3c4b4fa39c
ggplot(iris) + aes(x=Sepal.Length,y=Sepal.Width) + geom_point() + labs(caption = sprintf('sourced from: %s',whereami(path_expand = TRUE)))