library(whereami)
library(ggplot2)

Rmarkdown Caption

ggplot(iris) +
  aes(x=Sepal.Length,y=Sepal.Width) +
  geom_point()
/tmp/RtmpApmygx/callr-scr-d99305732f4

/tmp/RtmpApmygx/callr-scr-d99305732f4

ggplot2 Caption

ggplot(iris) +
  aes(x=Sepal.Length,y=Sepal.Width) +
  geom_point() +
  labs(caption = sprintf('sourced from: %s',whereami(path_expand = TRUE)))