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
|
\name{ggraphics}
\alias{ggraphics}
\alias{ggraphicsnotebook}
\title{Constructor for a toolkit specific plot device and a
notebook to wrap plots in}
\description{
If a toolkit provides a graphics device, such as the
cairoDevice package does for GTK+ or qtutils for Qt, this constructor makes
devices that can then be embedded in other widgets. The
notebook interface is one such example.
}
\usage{
ggraphics(width = dpi * 6, height = dpi * 6, dpi = 75, ps = 12, container =
NULL, ..., toolkit = guiToolkit())
ggraphicsnotebook(width=dpi*6, height=dpi*6,dpi=75,
container = NULL,..., toolkit = guiToolkit())
}
\arguments{
\item{width}{width in pixels of device}
\item{height}{height in pixels of device}
\item{dpi}{scale factor for default width and height}
\item{ps}{pointsize}
\item{container}{Optional container to attach widget to}
\item{\dots}{
Passed to add method of container. }
\item{toolkit}{Which GUI toolkit to use}
}
\details{
When multiple graphics devices are present, clicking in the window of
one will make that the current device.
The \code{visible<-} method makes the object the current device.
The \code{svalue(obj, ..., value)} method will save the visible window
to the file in \code{value}. In gWidgetsRGtk2, if the window has
another window clipping part of it, this clipping will be shown. This
"hack" is needed, as \code{dev.copy} does not currently work for the
"cairo" graphic device. (In future versions, there will be support for
pdf files within cairo.)
The \code{addhandlerclicked(obj, handler, action, ...)} method where handler has
first argument \code{h} has the additional values \code{h\$x} and
\code{h\$y} where these are values
are returned using "usr" coordinates (see \code{help("par")}). (This was
in NDC coordinates)
For \pkg{gWidgetsRGtk2} and \pkg{gWidgetsQt} there is also rubber-band
selection implemented. The \code{addHandlerChanged} method can be used
to call a handler when the selection is completed. The \code{x} and
\code{y} components of \code{h} record the lower left and upper right
points of the rectange. See the example for how this can do something
similar to "brushing".
}
% \value{}
% \author{}
% \note{}
\examples{
\dontrun{
win <- gwindow("Graphics example")
ggraphics(ps=6, container=win)
hist(rnorm(100))
## This is for gWidgetsRGtk2 (along with cairoDevice) or qtutils
library(gWidgets)
options(guiToolkit="RGtk2") ## "Qt"
w <- gwindow("brush example", visible=FALSE)
g <- ggroup(container=w)
tbl <- gtable(mtcars, container=g, filter.FUN="manual")
size(tbl) <- c(300, 500)
gg <- ggraphics(container=g)
visible(w) <- TRUE
makePlot <- function(ind) {
plot(mpg ~ wt, mtcars)
if(!missing(ind) && any(ind))
points(mpg ~ wt, mtcars[ind,], cex=2, pch=16, col="red")
}
ID <- addHandlerChanged(gg, handler=function(h,...) {
x <- h$x; y <- h$y
ind <- (mtcars$wt >= x[1]) & (mtcars$wt <= x[2]) &
(mtcars$mpg >= y[1]) & (mtcars$mpg <= y[2])
## udpate graphic and data frame
makePlot(ind)
if(any(ind))
visible(tbl) <- ind
})
## Example using a notebook. The device is raised on tab change
library(gWidgets)
options(guiToolkit="RGtk2")
w <- gwindow("notebook example")
nb <- gnotebook(container=w)
devs <- lapply(1:5, function(i) ggraphics(container=nb, label=as.character(i)))
addHandlerChanged(nb, handler=function(h,...) {
## Tricky part is svalue(h$obj) is not the new page number -- but old
## so we use the pageno component here
gg <- h$obj[h$pageno]
visible(gg) <- TRUE
})
}
}
\keyword{interface}% at least one, from doc/KEYWORDS
|
