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