README

README.md

@@ -139,6 +139,8 @@ count(mpg, class) %>%
 ``` r
 df <- data.frame(x=c(20, 25, 30), y=c(4, 4, 4), txt=c("One", "Two", "Three"))
 
+# piped
+
 ggplot(mtcars, aes(mpg, wt)) +
   geom_point() +
   geom_text(data=df, aes(x=x, y=y, label=txt)) +
@@ -149,8 +151,36 @@ ggplot(mtcars, aes(mpg, wt)) +
   gg_check()
 ```
 
+    ## Possible misspelled words in [title]: (Thisy, titlle)
+
+    ## Possible misspelled words in [subtitle]: (subtitley)
+
+    ## Possible misspelled words in [caption]: (captien)
+
 <img src="README_files/figure-markdown_github/unnamed-chunk-10-1.png" width="672" />
 
+``` r
+# not-piped
+
+ggplot(mtcars, aes(mpg, wt)) +
+  geom_point() +
+  geom_text(data=df, aes(x=x, y=y, label=txt)) +
+  labs(x="This is some txt", y="This is more text",
+       title="Thisy is a titlle",
+       subtitle="This is a subtitley",
+       caption="This is a captien") -> gg
+
+gg_check(gg)
+```
+
+    ## Possible misspelled words in [title]: (Thisy, titlle)
+
+    ## Possible misspelled words in [subtitle]: (subtitley)
+
+    ## Possible misspelled words in [caption]: (captien)
+
+<img src="README_files/figure-markdown_github/unnamed-chunk-10-2.png" width="672" />
+
 ### Test Results
 
 ``` r
@@ -160,7 +190,7 @@ library(testthat)
 date()
 ```
 
-    ## [1] "Sat Feb 11 20:33:00 2017"
+    ## [1] "Sat Feb 11 20:45:48 2017"
 
 ``` r
 test_dir("tests/")