Geo*_*tas 12
我使用一个函数来实现,实际上已将它放在{R directory}\etc\Rprofile.site中,以便它始终可用.
cls <- function() {
require(rcom)
wsh <- comCreateObject("Wscript.Shell")
comInvoke(wsh, "SendKeys", "\014")
invisible(wsh)
}
cls()
Run Code Online (Sandbox Code Playgroud)
清除控制台给
cls()
Run Code Online (Sandbox Code Playgroud)
PS该函数在第一次调用时不起作用,这就是我在Rprofile.site中声明函数后立即调用该函数的原因.我记得,可能会要求您安装一些程序,以便使其正常工作.