Skip to content
Permalink
Browse files

???? implementation

git-svn-id: https://svn.r-project.org/R/trunk@46347 00db46b3-68df-0310-9c12-caf00c1e9a41
  • Loading branch information...
murdoch
murdoch committed Aug 14, 2008
1 parent c035e0f commit 34b3998c928fbf50e24ab0e33c7d72ab8c944330
Showing with 8 additions and 0 deletions.
  1. +8 −0 src/library/utils/R/question.R
@@ -27,6 +27,14 @@
# ??foo is parsed as `?`(`?`(foo))
search <- TRUE
topicExpr <- topicExpr[[2]]
if (is.call(topicExpr) && topicExpr[[1]] == "?"
&& is.call(topicExpr[[2]]) && topicExpr[[2]][[1]] == "?") {
cat("Contacting Delphi...")
flush.console()
Sys.sleep(2+rpois(1,2))
cat("the oracle is unavailable.\nWe apologize for any inconvenience.\n")
return(invisible())
}
} else
search <- FALSE

0 comments on commit 34b3998

Please sign in to comment.
You can’t perform that action at this time.