if(exists(as.character(id), envir=slimeConnection$idToObject)) {
value <- get(as.character(id), envir=slimeConnection$idToObject)
list(value, TRUE)
if(exists(as.character(id), envir=slimeConnection$idToObject)) {
value <- get(as.character(id), envir=slimeConnection$idToObject)
list(value, TRUE)