这个是暂停
pause
睡眠
Sys.sleep
等待键盘输入
cat ("Press [enter] to continue")
line <- readline()
readkey <- function()
{
cat("[press [enter] to continue]")
number <- scan(n=1)
}
这个是暂停
pause
睡眠
Sys.sleep
等待键盘输入
cat ("Press [enter] to continue")
line <- readline()
readkey <- function()
{
cat("[press [enter] to continue]")
number <- scan(n=1)
}