Displaying 1 result from an estimated 1 matches for "jmfuns".
Did you mean:
smfuns
2002 Dec 20
0
RE workspace vs. image
...name[!e.test],"\nin pos =", pos,".\n\n") }
} #end of case where object exists in destination directory
} #end of function
definition --------------------------------------------------
# and here is the second function:
rm.sv<-
function(x, pos=NA, dir="e:/r/jmm/jmfuns.rda") {
if (is.na(pos)) dirL _ paste("file:", dir, sep="") else dirL _
search()[pos]
if (mode(x) != "character") name _ deparse(substitute(x)) else name _ x
# Assign the correct number to tmpos = pos, if it is not already assigned.
if (is.na(pos)) {...