`<<`

<< operator

`%<<%` <- function(con, x)
{
  UseMethod("%<<%", x)
}

`%<<%.function` <- function(con, x)
{
  if (!identical(x, close))
    stop("Unknown function provided to <<", call. = FALSE)

  close(con)
}

`%<<%.character` <- function(con, x)
{
  file <- if (is.character(con)) file(con, open = "a") else con
  cat(x, file = file)
  invisible(file)	
}

`%<<%.data.frame` <- function(con, x)
{
  file <- if (is.character(con)) file(con, open = "a") else con
  nm <- summary(file)$description
  write.table(x, 
              file      = file, 
              row.names = FALSE,
              col.names = FALSE)
              invisible(file)	
}