

   RReeaadd aa LLiinnee ffrroomm tthhee TTeerrmmiinnaall

        readline()

   DDeessccrriippttiioonn::

        `readline' reads a line from the terminal, returning it
        as a character string.

   EExxaammpplleess::

        fun <- function() {
          cat("Are you a satisfied R user? ")
          ANSWER <- readline()
          if (substr(ANSWER, 1, 1) == "n")
            cat("This is impossible.  YOU LIED!\n")
          else
            cat("I knew it.\n")
        }
        fun()

