Nothing
track.auto <- function(auto=NULL, pos=1, envir=as.environment(pos)) {
if (!env.is.tracked(envir)) {
warning("env is not tracked")
return(FALSE)
}
trackingEnv <- getTrackingEnv(envir)
current <- mget(".trackAuto", ifnotfound=list(list(on=FALSE, last=-1)), envir=trackingEnv)[[1]]
callback.name <- "track.auto"
haveCallback <- is.element(callback.name, getTaskCallbackNames())
if (is.null(auto)) {
if (current$on && !haveCallback)
warning("should be auto-tracking, but don't have a task callback with name '",
callback.name, "' (use track.auto(TRUE) to fix)")
else if (!current$on && haveCallback)
warning("shouldn't be auto-tracking, but do have a task callback with name '",
callback.name, "' (use track.auto(FALSE) to remove)")
return(current$on)
}
if (!is.logical(auto))
stop("auto must be NULL or logical")
trace <- getOption("track.callbacks.trace", FALSE)
if (!auto && current$on) {
remove(list=".trackAuto", envir=trackingEnv)
if (haveCallback) {
if (trace==1)
cat("track.auto: removing callback at ", date(), "\n", sep="")
removeTaskCallback(callback.name)
}
} else if (auto) {
if (!haveCallback) {
if (trace==1)
cat("track.auto: adding callback at ", date(), "\n", sep="")
addTaskCallback(track.sync.callback, data=NULL, name=callback.name)
}
if (!current$on)
assign(".trackAuto", list(on=TRUE, last=-1), envir=trackingEnv)
}
return(invisible(auto))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.