網路上找的, 看不懂, 不過好像可以用~ 分享一下~
<br />
<br />
library(rcom)<br />
<br />
#################################################################<br />
<br />
cls <- function() {<br />
require(rcom)<br />
wsh <- comCreateObject("Wscript.Shell")<br />
comInvoke(wsh, "SendKeys", "\014")<br />
invisible(wsh)<br />
}<br />
<br />
cls()<br />
<br />
#################################################################<br />
<br />
cls.console <- function() {<br />
if (.Platform$GUI[1] != "Rgui")<br />
return(invisible(FALSE))<br />
if (!require(rcom, quietly = TRUE)) # Not shown any way!<br />
stop("Package rcom is required for 'cls()'")<br />
wsh <- comCreateObject("Wscript.Shell")<br />
if (is.null(wsh)) {<br />
return(invisible(FALSE))<br />
} else {<br />
comInvoke(wsh, "SendKeys", "\014")<br />
return(invisible(TRUE))<br />
}<br />
}<br />
<br />
cls.console()<br />
<br />
