R/objClear.R

Defines functions objClear

Documented in objClear

objClear <- function (id = "default")
{
    ## Clear any reference to a given 'id' object browser
	id <- as.character(id)[1]  # Make sure id is character
	if (id == "") id <- "default"
	Pars <- getTemp(".guiObjParsCache", default = list())
	Pars[[id]] <- NULL
	assignTemp(".guiObjParsCache", Pars)
    List <- getTemp(".guiObjListCache", default = list())
    List[[id]] <- NULL
	assignTemp(".guiObjListCache", List)
	## Also delete corresponding files
	Root <- objDir()
	ParsFile = file.path(Root, paste("Pars_", id, ".txt", sep=""))
	if (file.exists(ParsFile)) unlink(ParsFile)
	ListFile = file.path(Root, paste("List_", id, ".txt", sep=""))
	if (file.exists(ListFile)) unlink(ListFile)
	MenuFile = file.path(Root, paste("Menu_", id, ".txt", sep=""))
	if (file.exists(MenuFile)) unlink(MenuFile)
	invisible(TRUE)
}

Try the svMisc package in your browser

Any scripts or data that you put into this service are public.

svMisc documentation built on May 29, 2017, 12:18 p.m.