cleanup

R/geom_xspline.r

@@ -173,10 +173,6 @@ StatXspline <- ggproto("StatXspline", Stat,
 
   required_aes = c("x", "y"),
 
-  setup_params = function(data, params) {
-    params
-  },
-
   compute_group = function(self, data, scales, params,
                            spline_shape=-0.25, open=TRUE, rep_ends=TRUE) {
     tf <- tempfile(fileext=".png")

README.md

@@ -174,7 +174,7 @@ library(ggalt)
 library(testthat)
 
 date()
-#> [1] "Tue Sep  8 18:42:57 2015"
+#> [1] "Tue Sep  8 18:56:26 2015"
 
 test_dir("tests/")
 #> testthat results ========================================================================================================