# We use a fake socket client configuration environment
e <- parSocket("fake")
# look at what it contains
ls(e)
# get one data
e$bare
# or
parSocket("fake")$bare
# Change it
parSocket("fake", bare = FALSE)$bare
# Note it is changed too for e
e$bare
# You can change it too with
e$bare <- TRUE
e$bare
parSocket("fake")$bare
# Create a new entry
e$foo <- "test"
ls(e)
parSocket("fake")$foo
# now delete it
parSocket("fake", foo = NULL)
ls(e)
# Our fake socket config is in TempEnv
s <- search()
l <- length(s)
pos <- (1:l)[s == "TempEnv"]
ls(pos = pos) # It is named 'SocketClient_fake'
# delete it
rm(SocketClient_fake, pos = pos)
# do some house keeping
rm(list = c("s", "l", "pos"))Run the code above in your browser using DataLab