library(whereami) library(ggplot2)
ggplot(iris) + aes(x=Sepal.Length,y=Sepal.Width) + geom_point()
/private/var/folders/kx/t4h_mm1910sb7vhm_gnfnx2c0000gn/T/Rtmp0FOAEA/Rbuild15b1d39c3fbd4/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)))