Managing checkpoint snapshot archives

Andrie de Vries


The checkpoint() function enables reproducible research by managing your R package versions. These packages are downloaded into a local .checkpoint folder.

If you use checkpoint() for many projects, these local packages can consume some storage space, so the package also exposes functions to manage your snapshots.

In this vignette:

1 Setting up an example project:

For illustration, set up a script referencing a single package:

# Example from ?darts
x = c(12,16,19,3,17,1,25,19,17,50,18,1,3,17,2,2,13,18,16,2,25,5,5,
mod = simpleEM(x, niter=100)
e = simpleExpScores(mod$
oldpar <- par(mfrow=c(1, 2))
drawAimSpot(e, cex = 5)

Next, create the checkpoint:

dir.create(file.path(tempdir(), ".checkpoint"), recursive = TRUE, showWarnings = FALSE)
options(install.packages.compile.from.source = "no")
oldLibPaths <- .libPaths()

## Create a checkpoint by specifying a snapshot date
checkpoint("2015-04-26", project = tempdir(), checkpointLocation = tempdir())

2 Working with checkpoint archive snapshots

You can query the available snapshots on disk using the checkpointArchives() function. This returns a vector of snapshot folders.

# List checkpoint archives on disk.
## [1] "2015-04-26"

You can get the full paths by including the argument full.names=TRUE:

checkpointArchives(tempdir(), full.names = TRUE)
## [1] "C:/Users/adevries/AppData/Local/Temp/Rtmp6bA7GF/.checkpoint/2015-04-26"

2.1 Working with access dates

Every time you use checkpoint() the function places a small marker in the snapshot archive with the access date. In this way you can track when was the last time you actually used the snapshot archive.

# Returns the date the snapshot was last accessed.
## C:/Users/adevries/AppData/Local/Temp/Rtmp6bA7GF/.checkpoint/2015-04-26 
##                                                           "2017-06-26"

2.2 Removing a snapshot from local disk

Since the date of last access is tracked, you can use this to manage your checkpoint archives.

The function checkpointRemove() will delete archives from disk. You can use this function in multiple ways. For example, specify a specific archive to remove:

# Remove singe checkpoint archive from disk.

You can also remove a range of snapshot archives older (or more recent) than a snapshot date

# Remove range of checkpoint archives from disk.
checkpointRemove("2015-04-26", allSinceSnapshot = TRUE)
checkpointRemove("2015-04-26", allUntilSnapshot =  = TRUE)

Finally, you can remove all snapshot archives that have not been accessed since a given date:

# Remove snapshot archives that have not been used recently
checkpointRemove("2015-04-26", notUsedSince = TRUE)

3 Reading the checkpoint log file

One of the side effects of checkpoint() is to create a log file that contains information about packages that get downloaded, as well as the download size.

This file is stored in the checkpoint root folder, and is a csv file with column names, so you can read this with your favourite R function or other tools.

dir(file.path(tempdir(), ".checkpoint"))
## [1] "2015-04-26"         "checkpoint_log.csv" "R-3.4.0"

Inspect the log file:

log_file <- file.path(tempdir(), ".checkpoint", "checkpoint_log.csv")
log <- read.csv(log_file)
##             timestamp snapshotDate   pkg bytes
## 1 2017-06-26 18:14:54   2015-04-26 darts  7011

4 Resetting the checkpoint

In older versions of checkpoint() the only way to reset the effect of checkpoint() was to restart your R session.

In v0.3.20 and above, you can use the function unCheckpoint(). This will reset you .libPaths to the user folder.

## [1] "C:/Users/adevries/AppData/Local/Temp/Rtmp6bA7GF/.checkpoint/2015-04-26/lib/x86_64-w64-mingw32/3.4.0"
## [2] "C:/Users/adevries/AppData/Local/Temp/Rtmp6bA7GF/.checkpoint/R-3.4.0"                                
## [3] "C:/R/R-34~1.0/library"

Now use unCheckpoint() to reset your library paths

# Note this is still experimental
## [1] "C:/Users/adevries/Documents/R/win-library/3.4"
## [2] "C:/R/R-3.4.0/library"
## cleanup
unlink(file.path(tempdir(), "managing_checkpoint_example_code.R"))
unlink(file.path(tempdir(), ".checkpoint"), recursive = TRUE)