[R] demo creating

[Jean-Christophe BOUËTTÉ]

looking at the code of example I found that:

oldask <- grDevices::devAskNewPage(ask = TRUE)
x <- rnorm(1000)
hist(x)
plot(x)
plot(x^2)
grDevices::devAskNewPage(oldask)

which will do what you want in terms of displaying plots with a pause.

2011/9/16 John Clark <rosbreed.pba at gmail.com>:
> My question was not related to embedding R codes in powerpoint / word,
> rather I need to execute some of the commands in sequential way in R, so
> that I do not need to type them. This is similar to what you get when you
> use the following demo:
> require(lattice);
> demo(lattice)
> So I want to put my commands in the same way into a flow
> Thanks for the suggestions:
>
>
> On Fri, Sep 16, 2011 at 9:39 AM, Duncan Murdoch <murdoch.duncan at gmail.com>
> wrote:
>>
>> On 15/09/2011 10:22 PM, John Clark wrote:
>>>
>>> R experts:
>>>
>>> I want to prepare a demo (that will play sequentially in clicks) for a
>>> presentation tutorial...Can somebody help me how can I write a demo,
>>> suppose
>>> the following are steps in the demo..
>>>
>>> #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
>>> Please help me, I could not get proper function / package to it.
>>
>> I would use the tcltk package for this, but it does mean you need to learn
>> the TCL/TK language.  For example, I have used this in a presentation:
>>
>> demos <- function() {
>>    base <- tktoplevel()
>>    tkwm.title(base,"Demos")
>>    font <- "{Arial 24}"
>>    tkpack(tkbutton(base, command=PointCloud, text="Point cloud",
>> font=font), side="left")
>>    tkpack(tkbutton(base, command=Volcano, text="Volcano", font=font),
>> side="left")
>>    tkpack(tkbutton(base, command=ChangeColour, text="Change colour",
>> font=font), side="left")
>>    tkpack(tkbutton(base, command=SmoothingDemo, text="Smoothing",
>> font=font), side="left")
>> }
>>
>> PointCloud, Volcano, ChangeColour, and SmoothingDemo are regular R
>> functions, called with no arguments when you click on their button.
>>
>> Duncan Murdoch
>
>