[13866] in Athena Bugs
sun4 7.7T: help in splus not helpful
daemon@ATHENA.MIT.EDU (Carla Fermann)
Wed Sep 20 10:22:31 1995
To: bugs@MIT.EDU
Date: Wed, 20 Sep 1995 10:22:22 EDT
From: Carla Fermann <carla@MIT.EDU>
System name: mickey-mouse
Type and version: SPARC/Classic 7.7T
Display type: cgthree
Hi!
I did:
add splus; splus
and then inside of splus I did "help".
I got the following message:
function(name = "help", offline = F, call = F, pager = options()$pager, window
= help.running(), display = getenv("DISPLAY"))
{
if(!missing(name) && is.name(sname <- substitute(name)) && !(exists(
as.character(sname)) && is.character(name) && length(name) == 1
))
name <- substitute(name) # name is not yet evaluated
if(is.language(name) && !is.name(name))
name <- eval(name)
name <- as.character(name)
if(length(name) != 1) {
warning("Can only get help on one item at a time")
name <- name[1]
}
if(name == "")
name <- "help"
unquoted.name <- name
name <- paste("'", name, "'", sep = "")
search.list <- paste("'", search(), "'", sep = "", collapse = " ")
if(call) {
cmd <- paste("$SHOME/cmd/call", name, search.list)
unix(cmd, output = F)
}
else if(offline) {
unix(paste("$SHOME/cmd/help OFFLINE", name, search.list),
output = F)
}
else {
#
# use help window if desired and available
#
if(window && help.running()) {
cat("Sending request to help window\n")
return(invisible(help.name(unquoted.name)))
}
# put processed help file into temporary file
tfile <- tempfile("SHELP")
cmd <- paste("$SHOME/cmd/help", name, search.list, ">", tfile)
if(unix(cmd, output = F) != 0) {
cat("No documentation available for ", name, "\n", sep
= "")
unlink(tfile)
invisible(return())
}
if(window == F && missing(display)) {
page(file = tfile, pager = pager, remove.file = T)
}
else {
# try to put help file in a window
if(using.X(display)) {
cat(paste("Starting an X11 help window for",
name, "with", pager, "as the pager.\n"))
page(file = tfile, pager = pager, window = T,
display = display, title = name, remove.file
= T)
}
else {
# put helpfile up on screen and display warning
warning(paste("Unable to open display ",
display, "\n", sep = ""))
page(file = tfile, pager = pager, remove.file
= T)
}
}
}
invisible()
}
>
It didn't pop up any other windows or anything.
Thanks,
Carla
