2010-05-13 86 views

回答

12

我使用这样做的函数,实际上已经把它放在{R目录} \ etc \ Rprofile.site中,以便它始终可用。

cls <- function() { 
     require(rcom) 
     wsh <- comCreateObject("Wscript.Shell") 
     comInvoke(wsh, "SendKeys", "\014") 
     invisible(wsh) 
} 
cls() 

要清除控制台给

cls() 

附:该函数在第一次调用时不起作用,这就是为什么在Rprofile.site中声明它之后立即调用该函数的原因。据我记得,你可能会被要求安装一些程序,为了这个工作。

+1

由于RCom已经停产,我认为可能值得将其移植到PowerShell(在大多数Windows系统上可用)'cls < - function(){{ ComObject Wscript.Shell).SendKeys([string] [char] 12)“); }' – Antony 2016-06-20 21:56:31

1

我可能会大大忽略这一点,但很简单,system("clear")更简单的方法?当然,它只能在Linux/Unix环境中使用...

0

创建此功能:

cls <- function() cat(rep("\n",100)) 

然后调用它:

cls() 

作品有:

  • Windows
  • Linux
  • Mac
+2

这实际上并没有清除控制台。只需打印100个新行。 – 2014-01-26 04:46:45

+0

@Siddharth。你是对的。当我使用这个cls()时,意图是摆脱先前的命令,这将它们推离屏幕的顶部。 – Contango 2014-01-27 07:49:28