Clean up readme, fix finding images for paint_pomological

R/paint_pomological.R

 
 pomological_images <- function(which = c("background", "overlay")) {
   which <- match.arg(which)
-  system.file("inst/images", paste0("pomological_", which, ".png"),
+  exts <- c("background" = ".png", "overlay" = ".jpg")
+  system.file("images", paste0("pomological_", which, exts[which]),
               package = "ggpomological")
 }

Readme.Rmd

 
 ```{r setup, include=FALSE}
 knitr::opts_chunk$set(echo = TRUE, fig.width=8, fig.height=5)
+library(ggpomological)
+library(dplyr)
 ```
 
-[![lifecycle](https://img.shields.io/badge/lifecycle-experimental-orange.svg)](https://img.shields.io/badge/lifecycle-experimental-orange.svg)
-
 ## Pomological Plots
 
 
 
 ![](Readme_files/pom-examples.jpg)
 
+## Installation
+
+```r
+# If you don't have devtools installed
+install.packages("devtools")
+
+devtools::install_github("gadenbuie/ggpomological")
+```
+
 ## Color Palette
 
 The colors for this theme were drawn from many images from the [USDA Pomological Watercolors collection][usda-pom], I chose just a few that I thought worked well together for color and fill scales
 
 We'll need dplyr and ggplot2 (loaded with **ggpomological**)
 
-```{r libraries, messages=FALSE, warning=FALSE}
+```r
 library(ggpomological)
 library(dplyr)
 ```
 
 ### One last plot
 
-(in my handwriting)
+Using my own handwriting and the `ggridges` package.
 
 ```{r plot-ridges}
 ridges_pomological <- ggplot(diamonds) + 

Readme.md

 Garrick Aden-Buie
 2/4/2018
 
-<https://img.shields.io/badge/lifecycle-experimental-orange.svg>
-
 ## Pomological Plots
 
 <!-- Links -->
 
 ![](Readme_files/pom-examples.jpg)
 
+## Installation
+
+``` r
+# If you don't have devtools installed
+install.packages("devtools")
+
+devtools::install_github("gadenbuie/ggpomological")
+```
+
 ## Color Palette
 
 The colors for this theme were drawn from many images from the [USDA
 
 ``` r
 library(ggpomological)
-```
-
-    ## Loading required package: ggplot2
-
-``` r
 library(dplyr)
 ```
 
-    ## 
-    ## Attaching package: 'dplyr'
-
-    ## The following objects are masked from 'package:stats':
-    ## 
-    ##     filter, lag
-
-    ## The following objects are masked from 'package:base':
-    ## 
-    ##     intersect, setdiff, setequal, union
-
 ### Basic iris plot
 
 ``` r
   magick::image_write("Readme_files/figure-gfm/plot-demo-painted.png")
 ```
 
-    ## Warning: Cannot find file ""
-
 ![](Readme_files/figure-gfm/plot-demo-painted.png)
 
 ### Stacked bar chart
   magick::image_write("Readme_files/figure-gfm/plot-bar-chart-painted.png")
 ```
 
-    ## Warning: Cannot find file ""
-
 ![](Readme_files/figure-gfm/plot-bar-chart-painted.png)
 
 ### Density Plot
   magick::image_write("Readme_files/figure-gfm/plot-density-demo-painted.png")
 ```
 
-    ## Warning: Cannot find file ""
-
 ![](Readme_files/figure-gfm/plot-density-demo-painted.png)
 
 ### Points and lines
   magick::image_write("Readme_files/figure-gfm/plot-full-bar-stack-painted.png")
 ```
 
-    ## Warning: Cannot find file ""
-
 ![](Readme_files/figure-gfm/plot-full-bar-stack-painted.png)
 
 ### One last plot
 
-(in my handwriting)
+Using my own handwriting and the `ggridges` package.
 
 ``` r
 ridges_pomological <- ggplot(diamonds) + 
   magick::image_write("Readme_files/figure-gfm/plot-ridges-painted.png")
 ```
 
-    ## Warning: Cannot find file ""
-
     ## Picking joint bandwidth of 0.057
 
 ![](Readme_files/figure-gfm/plot-ridges-painted.png)