Browse Source

mod

tags/v0.1.1
hrbrmstr 9 years ago
parent
commit
98d00e5e54
  1. 18
      R/geom_xspline.r
  2. 2
      README.md

18
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)
}

2
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 ========================================================================================================

Loading…
Cancel
Save