Re: [R] slide show with R

From: Greg Snow <greg.snow_at_ihc.com>
Date: Wed 30 Mar 2005 - 08:18:18 EST

Another approach is to put your commands below into a text file.

Add a line like:

tmp <- readline('Press Enter to Continue:')

everywhere you want to pause.

Then do:

source('path/to/text/file', echo=T)

it will print out the commands and execute them, but everytime it gets to the tmp <- ... line it will pause and wait for you to press enter before continuing on. you can discuss the lines that have just been executed and the current plot, then press enter for the next chunk.

hope this helps,

Greg Snow, Ph.D.
Statistical Data Center
greg.snow@ihc.com
(801) 408-8111

>>> <George_Heine@blm.gov> 03/29/05 01:54PM >>>

Trying to use R to build an interactive "slide show", to be displayed on a
projector. The purpose of the presentation is to show how one could construct a simple graph using R. It is meant as a general overview rather
than as detailed instruction.

For example, something like the following sequence of commands. At lecture time, I want the interpreter to read these commands one at a time
from a file, display and execute the command, (or two or three commands)
and then wait for another prompt.

pale.yellow="#ffff99"
par(bg=pale.yellow)
plot(c(0,2*pi),c(-1,1),type="n",ylab="",yaxt="n") mirror<-function(t) { c(t,rev(2*max(t)-t)) } z<-log(1:1000)/log(1000)
zz<-z*pi/2
zzz<-mirror(mirror(zz))

polygon(zzz,sin(25*zzz)*sin(zzz),border="blue")
polygon(zzz,sin(5*zzz)*sin(zzz),border="green")
polygon(zzz,sin(zzz),lwd=2)

points(zzz,rep(0,length(zzz)),col="red",pch="|")

Wrapping the following around each command works, sort of :

a<-expression(<command>)
x<-readline(a)
eval(a)

However, this doesn't work properly for the function definition, and it
gets very clumsy to display two or three lines as a block and then evaluate.

Any help would be much appreciated.

<>=<>=<>=<>=<>=<>=<>=<>=<>=<>=<>

George Heine, PhD
Mathematical Analyst
National IRM Center
U.S. Bureau of Land Management
voice (303) 236-0099

fax       (303) 236-1974
cell      (303) 905-5382

pager gheine@my2way.com
<>=<>=<>=<>=<>=<>=<>=<>=<>=<>=<>


R-help@stat.math.ethz.ch mailing list
https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide!
http://www.R-project.org/posting-guide.html

R-help@stat.math.ethz.ch mailing list
https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html Received on Wed Mar 30 08:27:54 2005

This archive was generated by hypermail 2.1.8 : Fri 03 Mar 2006 - 03:30:57 EST