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

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

另一种方法：

1. 将脚本保存在文件中 (demo.R)
2. 编辑脚本并将pause()撒在重要位置
3. 在 R 中，定义 pause <- function() invisible(readline())
4. 使用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)

Answer 2

做你想做的事的一个hacky方式是：

• 将命令保存为脚本，例如testDemo.r
• 复制到现有包的演示文件夹，例如<Library>/base/demo
• 使用demo(testDemo,package="base") 运行

但它会在页面中而不是通过命令暂停。但最终，您可能希望创建自己的包来包含自定义演示。

编辑

看来demo的代码主要是为了检查demo是否存在，核心很简单：

op <- options(device.ask.default=TRUE)
source("testDemo.r",echo=TRUE,max.deparse.length=Inf,keep.source=TRUE)
options(op)

请注意，任何暂停仅由图形的存在完成，而不是任何长度的回显文本，demo 实际上就是这种情况。