[R] Using ? for object summaries

[Tom Smith]

This short script makes ?name give help on "name" and
provides a summary of the variable "name"
[specifically, str("name") and summary ("name")]. I
add this to my .Rprofile to save my fingers some
typing.

"?" <- function(name) {
  try(str(name))
  options(show.error.messages = FALSE)
  try(print(summary(name)))
  try(do.call("help",list(deparse(substitute(name)))))
  options(show.error.messages = TRUE)
}