R/util.r

In wrathematics/kbhit: Keyboard input

clear <- function()
{
  platform <- .Platform$OS.type
  gui <- .Platform$GUI
  
  if (gui == "RStudio" || platform == "Windows")
    cat("\014")
  else if (platform == "unix")
    system("clear")
  else # what the hell are you using?
    cat(rep("\n", 100))
  
  invisible()
}