R/zzz.R

In pmur002/director: Automate video demonstrations

.onLoad <- function(libname, pkgname) {
    path <- Sys.which("espeak")
    if (path != "") {
        options("director.espeakPath"=path)
    } else {
        options("director.espeakPath"=NULL)
    }
}