README.Rmd

---
output: github_document
---

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

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

<div id="badges">
[![Travis (.org)](https://img.shields.io/travis/tadaadata/artyfarty.svg?logo=travis)](https://travis-ci.org/tadaadata/artyfarty) 
[![Coverage status](https://codecov.io/gh/tadaadata/artyfarty/branch/master/graph/badge.svg)](https://codecov.io/github/tadaadata/artyfarty?branch=master)  
<!--[![GitHub release](https://img.shields.io/github/release/tadaadata/artyfarty.svg?logo=GitHub)](https://github.com/tadaadata/artyfarty/releases) -->
[![GitHub last commit (master)](https://img.shields.io/github/last-commit/tadaadata/artyfarty/master.svg?logo=GithUb)](https://github.com/tadaadata/artyfarty/commits/master)
</div>

## Fork notice

The original package has not been in active development for >= 2 years, and since then some things have changed. This fork aims to bring the themes up to speed with regard to missing features, like setting fonts/colors for the `subtitle` ggplot2 elements missing in the original package.

### Goals

- Make all themes work with ggplot2 features currently missing (subtitle, caption). See [#1](https://github.com/tadaadata/artyfarty/issues/1)
- Convert manual palettes (`pal()`) to proper `scale_[color|fill]_palette` functions. The idea is to be consistent with theme packages like `hrbthemes` (<3)

## Installation

You can install the development version of artyfarty from with:

``` r
remotes::install_github("tadaadata/artyfarty")
```

## Examples

```{r theme_preview}
library(ggplot2)
library(artyfarty)

# List exported themes
exports <- getNamespaceExports("artyfarty")
themes <- exports[grepl(pattern = "^theme_", exports)]

p <- ggplot(data = mtcars, aes(x = hp, y = mpg, color = cyl)) +
  geom_point() +
  labs(subtitle = "Plot subtitle",
       caption = "Caption",
       x = "X axis text", y = "Y axis text")

for (theme in sort(themes)) {
  p <- p + labs(title = theme) + eval(parse(text = theme))()
  print(p)
}
```


## Code of Conduct

Please note that the [34m'artyfarty'[39m project is released with a [Contributor Code of Conduct](CODE_OF_CONDUCT.md). By contributing to this project, you agree to abide by its terms.

## Original README

`artyfarty` is a collection of ggplot themes published by [dataroots](http://dataroots.io). 

For more info, please check out the examples and documentation [here](https://datarootsio.github.io/artyfarty).

An introductory vignette can be found [here](https://datarootsio.github.io/artyfarty/articles/introduction.html)