README.Rmd

---
output: github_document
---

<!-- README.md is generated from README.Rmd. Please edit that file -->

```{r, include = FALSE}
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "man/figures/README-",
  out.width = "100%"
)
```

# s3sink

<!-- badges: start -->
[![R build status](https://github.com/TylerGrantSmith/s3sink/workflows/R-CMD-check/badge.svg)](https://github.com/TylerGrantSmith/s3sink)
[![Lifecycle: experimental](https://img.shields.io/badge/lifecycle-experimental-orange.svg)](https://www.tidyverse.org/lifecycle/#experimental)
[![Codecov test coverage](https://codecov.io/gh/TylerGrantSmith/s3sink/branch/master/graph/badge.svg)](https://codecov.io/gh/TylerGrantSmith/s3sink?branch=master)
<!-- badges: end -->


## Installation

You can install the development version from [GitHub](https://github.com/) with:

``` r
# install.packages("devtools")
devtools::install_github("TylerGrantSmith/s3sink")
```
## Example


```{r example, fig.align='center', out.width='80%'}
library(s3sink)

plotting_function <- function() {
  g <- ggplot2::ggplot(mtcars) + ggplot2::geom_point(ggplot2::aes(mpg, disp))
  print(g)
  invisible(NULL)
}

sink_s3("print.ggplot", "ggplot2")
plotting_function()
out <- unsink_s3("print.ggplot")

str(out, 1)
```