r - 如何为演示教程创建演示？

Question

我想为演示教程准备一个演示(将按点击顺序播放)...有人可以帮助我如何编写演示，假设以下是演示中的步骤...

#start 
set.seed(1345)
x1 <- sample(letters[1:10], 5)
x1 
sort(x1)
x <- sample(1:10, 5)  
 y <- sample(c(11:20), 5)
require(lattice) 
plot(x,y)
z <- rnorm(5, 1, 0.5)
dataframe <- data.frame(x, y, z)
model1 <- lm(y ~x)
aov(model1)
#end

抱歉，经过数小时和数天的搜索，我可以找到解决方案。我感谢您的帮助。

Answer 1

另一种方法:

将脚本保存在文件中 ( demo.R )

编辑脚本并撒上 pause()战略要地

在 R 中，定义 pause <- function() invisible(readline())

使用 source("demo.R", echo=TRUE) 运行脚本

然后它将打印并运行您的命令并停止并等待洒水 pause() 处的输入。 .刚打 <Enter>接着说。

编辑:我不知道隐藏 pause() 的好方法陈述。一种可能的方法是复制 source() 的代码并修改它以跳过对 pause() 的打印调用，但我认为这有点矫枉过正......

...但您可以将暂停功能重命名为您喜欢的任何名称 - 包括 '....' ，但你仍然需要这样称呼它: ....()
嗯。也许是这样的:

'....' <- function(...) invisible(readline())

然后将您的脚本洒上:

....('Press Enter to continue')
# Or
....(Press_Enter_to_continue)

如果您将暂停功能重命名为 Pausing... 的另一种可能性:

Pausing...(Press_Enter)