Nothing
#' @export
model_unlock <- function(id,folder=".",file=".lock",oncluster=TRUE) {
lfile <- path(folder,file)
if(!oncluster) {
if(!file.exists(lfile)) stop("Lock file does not exist!")
load(lfile)
row <- which(as.integer(lock_queue[,1])==id)
if(length(row)==0) stop("Could not find a process with the given id!")
if(length(row)>1) stop("More than one lock entry for the given id!")
if(dim(lock_queue)[1]>1) {
lock_queue <- lock_queue[-row,,drop=FALSE]
save(lock_queue,file=lfile)
} else {
unlink(lfile)
}
message("...entry removed from queue!")
}
else {
if(!system(paste0("rm -r ",lfile),intern=F,ignore.stdout=T,ignore.stderr=T)) {
message("The model was unlocked")
} else {
stop("Lockfile does not exist")
}
}
}
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.