From 98d00e5e548da7f62c26f955db0469e3daa28ac8 Mon Sep 17 00:00:00 2001
From: hrbrmstr <bob@rudis.net>
Date: Tue, 8 Sep 2015 18:44:10 -0400
Subject: [PATCH] mod

---
 R/geom_xspline.r | 18 ------------------
 README.md        |  2 +-
 2 files changed, 1 insertion(+), 19 deletions(-)

diff --git a/R/geom_xspline.r b/R/geom_xspline.r
index 4a29172..2a02988 100644
--- a/R/geom_xspline.r
+++ b/R/geom_xspline.r
@@ -189,21 +189,3 @@ StatXspline <- ggproto("StatXspline", Stat,
     data.frame(x=tmp$x, y=tmp$y)
   }
 )
-
-# function to do the xspline interpolation and return a data.frame since we have
-# to do this graphics device wrapper
-xspline_int <- function(dat, shape, open, rep_ends) {
-
-  # despite the "draw=FALSE" parameter, xspline still
-  # tries to use the graphics device so we have to
-  # do this to work around it
-  tf <- tempfile(fileext=".png")
-  png(tf)
-  plot.new()
-  tmp <- xspline(dat$x, dat$y, shape, open, rep_ends, draw=FALSE, NA, NA)
-  invisible(dev.off())
-  unlink(tf)
-
-  data.frame(x=tmp$x, y=tmp$y)
-
-}
diff --git a/README.md b/README.md
index 5079fca..2359423 100644
--- a/README.md
+++ b/README.md
@@ -174,7 +174,7 @@ library(ggalt)
 library(testthat)
 
 date()
-#> [1] "Tue Sep  8 17:20:02 2015"
+#> [1] "Tue Sep  8 18:42:57 2015"
 
 test_dir("tests/")
 #> testthat results ========================================================================================================