---
title: "Plots"
output: rmarkdown::html_vignette
vignette: >
%\VignetteIndexEntry{Plots}
%\VignetteEngine{knitr::rmarkdown}
%\VignetteEncoding{UTF-8}
---
```{r, include = FALSE}
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
```
```{r setup}
library(whereami)
library(ggplot2)
```
## Rmarkdown Caption
```{r rmd caption,fig.cap=whereami(path_expand = TRUE),fig.width=7}
ggplot(iris) +
aes(x=Sepal.Length,y=Sepal.Width) +
geom_point()
```
## ggplot2 Caption
```{r ggcaption,fig.width=7}
ggplot(iris) +
aes(x=Sepal.Length,y=Sepal.Width) +
geom_point() +
labs(caption = sprintf('sourced from: %s',whereami(path_expand = TRUE)))
```