1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
|
\name{slider}
\alias{slider}
%- Also NEED an '\alias' for EACH other topic documented here.
%- cp slider2.Rd /home/wiwi/pwolf/work/work.rtrevive/install.dir/rwined/man/slider.Rd
\title{slider / button control widgets}
\description{
\code{slider} constructs a Tcl/Tk-widget with sliders and buttons
automated calculation and plotting. For example slider allows complete
all axes rotation of objects in a plot.
}
\usage{
slider(sl.functions, sl.names, sl.mins, sl.maxs, sl.deltas, sl.defaults,
but.functions, but.names, no, set.no.value, obj.name, obj.value,
reset.function, title)
}
%- maybe also 'usage' for other objects documented here.
\arguments{
\item{sl.functions}{set of functions or function connected to the slider(s)}
\item{sl.names}{labels of the sliders}
\item{sl.mins}{minimum values of the sliders' ranges}
\item{sl.maxs}{maximum values of the sliders' ranges}
\item{sl.deltas}{change of step per click}
\item{sl.defaults}{default values for the sliders}
\item{but.functions}{function or list of functions
that are assigned to the button(s)}
\item{but.names}{labels of the buttons}
\item{no}{\code{slider(no=i)} requests slider \code{i}}
\item{set.no.value}{\code{slider(set.no.value=c(i,val))} sets slider \code{i} to value \code{val}}
\item{obj.name}{\code{slider(obj.name=name)} requests the value of
variable \code{name} from environment \code{slider.env}}
\item{obj.value}{\code{slider(obj.name=name,obj.value=value)} assigns \code{value}
to variable \code{name} in environment \code{slider.env}}
\item{reset.function}{function that comprises the commands of the
\code{reset.button}}
\item{title}{title of the control window}
}
\details{
With slider you can:
a. define (multiple) sliders and buttons,
b. request or set slider values, and
c. request or set variables in the environment \code{slider.env}.
Slider function management takes place in the
environment \code{slider.env}. If \code{slider.env}
is not found it is generated.
Definition: ... of sliders: First of all you have to define sliders, buttons and the attributes of them.
Sliders are established by six arguments:
\code{sl.functions, sl.names, sl.minima, sl.maxima,sl.deltas}, and \code{sl.defaults}.
The first argument,
\code{sl.functions}, is either a list of functions or a single function that
entails the commands for the sliders.
If there are three sliders and slider 2 is moved with the mouse the function stored in
\code{sl.functions[[2]]} (or in case of one function for all sliders the function \code{sl.functions})
is called.
Definition: ... of buttons: Buttons are defined by a vector of labels \code{but.names} and a list of functions:
\code{but.functions}. If button \code{i} is pressed the function stored in \code{but.functions[[i]]} is called.
Requesting: ... a slider:
\code{slider(no=1)} returns the actual value of slider 1,
\code{slider(no=2)} returns the value of slider 2, etc.
You are allowed to include expressions of the type
\code{slider(no=i)} in functions describing the effect of
sliders or buttons.
Setting: ... a slider: \code{slider(set.no.value=c(2,333))} sets slider \code{2} to value 333.
\code{slider(set.no.value=c(i,value))} can be included in the functions
defining the effects of moving sliders or pushing buttons.
Variables: ... of the environment \code{slider.env}: Sometimes information
has to be trransferred back and forth between functions defining the effects of sliders and buttons.
Imagine for example two sliders: one to control \code{p} and another one to control \code{q},
but they should satisfy: \code{p+q=1}. Consequently, you have to correct the value of the first slider
after the second one was moved. To prevent the creation of global
variables store them in the environment \code{slider.env}.
Use \code{slider(obj.name="p.save",obj.value=1-slider(no=2))}
to assign value \code{1-slider(no=2)} to the variable \code{p.save} .
\code{slider(obj.name=p.save)} returns the value of variable \code{p.save}.
}
\value{
Using \code{slider} in definition mode \code{slider} returns the value of new created the top level widget.
\code{slider(no=i)} returns the actual value of slider \code{i}.
\code{slider(obj.name=name)} returns the value of variable \code{name} in environment \code{slider.env}.
}
\author{Hans Peter Wolf}
\note{You can move the slider in 3 different ways: You can left click
and drag the slider itself, you can left click in the trough to either
side of the slider and the slider will move 1 unit in the direction
you clicked, or you can right click in the trough and the slider will
jump to the location you clicked at.
This function may not stay in this package (consider it
semi-depricated), the original of the slider function is in the relax
package and can be used from there. In TeachingDemos the
\code{\link{tkexamp}}
function is taking the place of \code{slider} and gives a possibly
more general approach.
}
\seealso{\code{\link{tkexamp}}, \code{\link{sliderv}}}
\examples{
# example 1, sliders only
\dontrun{
## This example cannot be run by examples() but should work in an interactive R session
plot.sample.norm<-function(){
refresh.code<-function(...){
mu<-slider(no=1); sd<-slider(no=1); n<-slider(no=3)
x<-rnorm(n,mu,sd)
plot(x)
}
slider(refresh.code,sl.names=c("value of mu","value of sd","n number of observations"),
sl.mins=c(-10,.01,5),sl.maxs=c(+10,50,100),sl.deltas=c(.01,.01,1),sl.defaults=c(0,1,20))
}
plot.sample.norm()
}
# example 2, sliders and buttons
\dontrun{
## This example cannot be run by examples() but should work in an interactive R session
plot.sample.norm.2<-function(){
refresh.code<-function(...){
mu<-slider(no=1); sd<-slider(no=2); n<-slider(no=3)
type= slider(obj.name="type")
x<-rnorm(n,mu,sd)
plot(seq(x),x,ylim=c(-20,20),type=type)
}
slider(refresh.code,sl.names=c("value of mu","value of sd","n number of observations"),
sl.mins=c(-10,.01,5),sl.maxs=c(10,10,100),sl.deltas=c(.01,.01,1),sl.defaults=c(0,1,20),
but.functions=list(
function(...){slider(obj.name="type",obj.value="l");refresh.code()},
function(...){slider(obj.name="type",obj.value="p");refresh.code()},
function(...){slider(obj.name="type",obj.value="b");refresh.code()}
),
but.names=c("lines","points","both"))
slider(obj.name="type",obj.value="l")
}
plot.sample.norm.2()
}
# example 3, dependent sliders
\dontrun{
## This example cannot be run by examples() but should work in an interactive R session
print.of.p.and.q<-function(){
refresh.code<-function(...){
p.old<-slider(obj.name="p.old")
p<-slider(no=1); if(abs(p-p.old)>0.001) {slider(set.no.value=c(2,1-p))}
q<-slider(no=2); if(abs(q-(1-p))>0.001) {slider(set.no.value=c(1,1-q))}
slider(obj.name="p.old",obj.value=p)
cat("p=",p,"q=",1-p,"\n")
}
slider(refresh.code,sl.names=c("value of p","value of q"),
sl.mins=c(0,0),sl.maxs=c(1,1),sl.deltas=c(.01,.01),sl.defaults=c(.2,.8))
slider(obj.name="p.old",obj.value=slider(no=1))
}
print.of.p.and.q()
}
# example 4, rotating a surface
\dontrun{
## This example cannot be run by examples() but should work in an interactive R session
R.veil.in.the.wind<-function(){
# Mark Hempelmann / Peter Wolf
par(bg="blue4", col="white", col.main="white",
col.sub="white", font.sub=2, fg="white") # set colors and fonts
samp <- function(N,D) N*(1/4+D)/(1/4+D*N)
z<-outer(seq(1, 800, by=10), seq(.0025, 0.2, .0025)^2/1.96^2, samp) # create 3d matrix
h<-100
z[10:70,20:25]<-z[10:70,20:25]+h; z[65:70,26:45]<-z[65:70,26:45]+h
z[64:45,43:48]<-z[64:45,43:48]+h; z[44:39,26:45]<-z[44:39,26:45]+h
x<-26:59; y<-11:38; zz<-outer(x,y,"+"); zz<-zz*(65<zz)*(zz<73)
cz<-10+col(zz)[zz>0];rz<-25+row(zz)[zz>0]; z[cbind(cz,rz)]<-z[cbind(cz,rz)]+h
refresh.code<-function(...){
theta<-slider(no=1); phi<-slider(no=2)
persp(x=seq(1,800,by=10),y=seq(.0025,0.2,.0025),z=z,theta=theta,phi=phi,
scale=T, shade=.9, box=F, ltheta = 45,
lphi = 45, col="aquamarine", border="NA",ticktype="detailed")
}
slider(refresh.code, c("theta", "phi"), c(0, 0),c(360, 360),c(.2, .2),c(85, 270) )
}
R.veil.in.the.wind()
}
}
\keyword{dynamic}% at least one, from doc/KEYWORDS
\keyword{iplot}% __ONLY ONE__ keyword per line
|
