added test for image creation for gists fix #33

Author: sckott

R/gist_create.R

@@ -90,7 +90,7 @@
 #' ## but check back later as I'm working on an option to get binary files uploaded, 
 #' ## but will involve having to use git
 #' file <- system.file("examples", "plots.Rmd", package = "gistr")
-#' gist_create(file, knit=TRUE, imgur_inject = TRUE, artifacts = TRUE)
+#' gist_create(file, knit=TRUE, imgur_inject = TRUE)
 #' 
 #' # Render `.R` files
 #' file <- system.file("examples", "example1.R", package = "gistr")

figure/unnamed-chunk-2-1.png

@@ -1,3 +1,7 @@
+```{r echo=FALSE}
+knitr::opts_knit$set(upload.fun = imgur_upload, base.url = NULL)
+```
+
 ## Scatter plot 
 
 ```{r}

figure/unnamed-chunk-3-1.png

@@ -0,0 +1,28 @@
+
+
+## Scatter plot 
+
+
+```r
+plot(mpg ~ cyl, data=mtcars)
+```
+
+![plot of chunk unnamed-chunk-2](http://i.imgur.com/07jtYvL.png) 
+
+## Bar plot
+
+
+```r
+barplot(VADeaths)
+```
+
+![plot of chunk unnamed-chunk-3](http://i.imgur.com/tpuEz9k.png) 
+
+## Histogram
+
+
+```r
+hist(iris$Petal.Length)
+```
+
+![plot of chunk unnamed-chunk-4](http://i.imgur.com/IghDLyE.png) 

figure/unnamed-chunk-4-1.png

@@ -7,7 +7,7 @@
 plot(mpg ~ cyl, data=mtcars)
 ```
 
-![plot of chunk unnamed-chunk-2](http://i.imgur.com/GQWpLGK.png) 
+![plot of chunk unnamed-chunk-2](http://i.imgur.com/c7Tq4mH.png) 
 
 ## Bar plot
 
@@ -16,7 +16,7 @@ plot(mpg ~ cyl, data=mtcars)
 barplot(VADeaths)
 ```
 
-![plot of chunk unnamed-chunk-3](http://i.imgur.com/ZapLSCS.png) 
+![plot of chunk unnamed-chunk-3](http://i.imgur.com/zULHBZ4.png) 
 
 ## Histogram
 
@@ -25,4 +25,4 @@ barplot(VADeaths)
 hist(iris$Petal.Length)
 ```
 
-![plot of chunk unnamed-chunk-4](http://i.imgur.com/8yr7wEm.png) 
+![plot of chunk unnamed-chunk-4](http://i.imgur.com/4iU5qKL.png) 

inst/examples/plots.Rmd

@@ -113,7 +113,7 @@ gist_create(file, knit=TRUE)
 ## but check back later as I'm working on an option to get binary files uploaded,
 ## but will involve having to use git
 file <- system.file("examples", "plots.Rmd", package = "gistr")
-gist_create(file, knit=TRUE, imgur_inject = TRUE, artifacts = TRUE)
+gist_create(file, knit=TRUE, imgur_inject = TRUE)
 
 # Render `.R` files
 file <- system.file("examples", "example1.R", package = "gistr")

inst/examples/plots.md

@@ -26,3 +26,21 @@ test_that("gist_create works from a code block", {
   # cleanup
   suppressMessages(h %>% delete())
 })
+
+test_that("gist_create works to upload images", {
+  ## using imgur - if you're file uses imgur or similar, you're good
+  file <- system.file("examples", "plots_imgur.Rmd", package = "gistr")
+  res1 <- gist_create(file, knit=TRUE, browse = FALSE)
+  
+  ## inject imgur
+  file <- system.file("examples", "plots.Rmd", package = "gistr")
+  res2 <- gist_create(file, knit=TRUE, browse = FALSE, imgur_inject = TRUE)
+  
+  expect_is(res1, "gist")
+  expect_equal(names(res1$files), "plots_imgur.md")
+  expect_true(res1$public)
+  
+  # cleanup
+  suppressMessages(res1 %>% delete())
+  suppressMessages(res2 %>% delete())
+})