@ -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")
@ -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 ========================================================================================================