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