In S-plus I have depended upon a simple extended ls() function developed by John
wallace called lsx()
Reason: lsx() allows me to search for object names in my local workspace matching an
unquoted character string.
Since I forget all the function names or data object names I have added, I can quickly
find any/all names matching any specified string.
BUT: the lsx() function when installed (successfully, no errors reported) in R does
not work in R.
Why ? Can it be fixed so it can work?
Code is below:
---------------------------
lsx<-function(pattern, pos = 1, wild = T, long = F, mode = "function")
{
# lsx = extended listing: pattern match on quoted string, incl wildcards
#
# LS-eXtended (saved as ls3.s): list objects all or matching <pattern>
# DATE WRITTEN: February 1995 LAST REVISED: 15 August 1995
# AUTHOR: John R. Wallace ([EMAIL PROTECTED])
#
if(!missing(pattern)) {
if(!is.character(substitute(pattern, frame = sys.nframe())))
pattern <- deparse(substitute(pattern, frame = sys.nframe()))
if(wild)
pattern <- paste("*", pattern,"*", sep = "")
if(!(substring(as.character(version)[1], 2, 4) == "WIN"))
pattern <- pat2grep(pattern)
if(long)
print(out <- objects.summary(objects(pos, pat = pattern),
where = pos))
else print(out <- objects(pos, pat = pattern), q = F)
}
else {
if(long)
print(out <- objects.summary(where = pos, mode = mode))
else {
if(substring(as.character(version)[1], 2, 4) == "WIN") {
pattern <- "[!.]*"
print(out <- objects(pos, pat = pattern), q = F)
}
else {
all <- objects(pos)
print(out <- all[!match(all, objects(pos, pat =
"^\\."),no = 0)], q = F)
}
}
}
invisible(out)
}
---------------------------
Andy White
Andrew N. White, Ph.D. - Manager Research Unit
Financial Reporting & Medical Economics Dept.
Hawaii Medical Service Association
- Blue Cross Blue Shield of Hawaii
An Independent Licensee of the Blue Cross and Blue Shield Association -
818 Keeaumoku Street, Honolulu, HI 96814
Ph. 808-948-5344 - Email: [EMAIL PROTECTED]
______________________________________________
[EMAIL PROTECTED] mailing list
https://www.stat.math.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
