if(FALSE){
tdir <- tempfile()
dir.create(tdir)
git2r::clone("https://github.com/tdhock/binsegRcpp", tdir)
atime.list <- atime::atime_versions(
pkg.path=tdir,
setup={
max.segs <- as.integer(N/2)
data.vec <- 1:N
},
expr=binsegRcpp::binseg_normal(data.vec, max.segs),
cv="908b77c411bc7f4fcbcf53759245e738ae724c3e",
"rm unord map"="dcd0808f52b0b9858352106cc7852e36d7f5b15d",
mvl_construct="5942af606641428315b0e63c7da331c4cd44c091")
plot(atime.list)
atime::atime_versions_remove("binsegRcpp")
gdir <- tempfile()
dir.create(gdir)
git2r::clone("https://github.com/tdhock/grates", gdir)
glist <- atime::atime_versions(
file.path(gdir,"pkg"),
current = "1aae646888dcedb128c9076d9bd53fcb4075dcda",
old = "51056b9c4363797023da4572bde07e345ce57d9c",
setup = date_vec <- rep(Sys.Date(), N),
expr = grates::as_yearmonth(date_vec))
plot(glist)
atime::atime_versions_remove("grates")
}
Run the code above in your browser using DataLab