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

我想为演示教程准备一个演示（按点击顺序播放）…有人能帮助我如何编写演示吗，假设演示中有以下步骤

#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

#开始
种子集（1345）
x1做你想做的事的一种老套方法是：


将命令另存为脚本，例如
testDemo.r
复制到现有软件包的演示文件夹中，例如
/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)

op另一种方法：

将脚本保存在文件中（
demo.R
）
编辑脚本，并在关键位置使用
pause（）

在R中，定义
暂停听起来像是你想要一堆屏幕截图和powerpoint演示文稿。如果您使用的是RStudio或类似软件，您可以将命令保存在文本文件（.R）中，然后使用ctrl+return一次运行一个命令，输出将显示“一次单击一次”…您可以查看
demo
的源代码，它使用
readline
。我倾向于使用swave（R+LaTeX）对于R的教程，它的好处是可以很容易地从swave文件（.Rnw）中提取R代码。因此，您不必再担心R脚本与演示文稿保持同步。@Thierry和使用Beamer将其制作成演示文稿我的问题与在powerpoint/word中嵌入R代码无关，我需要在R中按顺序执行一些命令，这样我就不需要键入它们了。这与使用以下演示时得到的结果类似：require（lattice）；演示（晶格）因此，我想以同样的方式将我的命令放入流中感谢您的建议感谢James…它工作起来…像demo…这是我所期望的…最终的解决方案是通过命令执行…@John查看
demo
，似乎行为主要是通过适当的默认设置
source
和参数的使用来设置的
options
中的
device.ask.default
。将作为编辑添加感谢Tommy..对于改进的解决方案…当我尝试此操作时，暂停（）出现在我要暂停的位置…是否有任何方法可以抑制它们…是否可以显示“…”而不是“暂停（）”之类的内容…只是看起来更好看，因为参与者不会认为我在暂停时没有尝试执行任何功能…谢谢像漩涡这样的东西也许你可以在漩涡中写一节课
'....' <- function(...) invisible(readline())

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

Pausing...(Press_Enter)