inst/examples/test.R

In tengfei/objectWidgetsQt: A set of QT based widgets

library(qtbase)
library(qtpaint)
library(objectWidgetsQt)
## ColorEnum is a special single Enum object
nm <- setColorEnum("red", levels = c("red", "black"))
## create an example of SingleEnum for geom 
geomSingleEnum <- setSingleEnum("geom", c("rect", "triangle"))
obj <- geomSingleEnum("rect")

## change levels
levels(obj)
levels(obj) <- c("rect", "circle")

## changed levels must include current value
try(levels(obj) <- c("triangle", "circle"))
obj <- factor("a", letters)

## work on factor
## as(obj, "SingleEnum")
## SingleEnum(obj)
## as(obj, "MultipleEnum")
## MultipleEnum(obj)


## create an example of MultipleEnum 
testMul <- setMultipleEnum("test", c("a", "b", "c"))
## special geom enum, see the example of GUI for the difference



gpar.gen <- setRefClass("GraphicPars", fields = properties(list(a = "character",
                                         b = "numeric",
                                         c = "PositiveInteger",
                                         d = "Color",
                                         e = "NumericWithMin0Max1",
                                         f = "geomSingleEnum",
                                         g = "testMultipleEnum",
                                         h = nm@className),
                                         prototype = list(a = "hah",
                                           b = 2,
                                           c = PositiveInteger(3),
                                           d = Color("red"),
                                           e = new("NumericWithMin0Max1", 1),
                                           f = new("geomSingleEnum", "rect"),
                                           g = new("testMultipleEnum", c("a", "b")),
                                           h = nm("red"))),
                        contains = "PropertySet")

obj <- gpar.gen$new()
obj$properties()
obj$a
class(obj)

test <- Widget(obj)
class(test)
widget(test)
ControlPanel(obj)
## p

mf <- qdata(mtcars)
p <- qscatter(mpg, cyl, data = mf)
str(p$meta)
p$meta$changed$connect(function(){qupdate(p$scene)})
ControlPanel(p$meta)
p
str(p$meta)

ControlPanel(obj, visible = list(a = TRUE,
                    b = FALSE,
                    c = FALSE,
                    d = FALSE,
                    e = TRUE,
                    f = TRUE,
                    g = TRUE,
                    h = FALSE))


     library(cranvas)
     ### (1) tennis data
     data(tennis)
     qtennis <- qdata(tennis)
     qscatter(first.serve.pct, second.serve.pts, data = qtennis, xlab = "First Serve %", 
         ylab = "Second Serve Points")
     qscatter(return.games, first.serves, data = qtennis)

obj$properties()

obj$e
## still under test
## a application window
obj <- IModeGroup()
ControlPanel(ScaleIMode())
obj$menu()


setSingleEnum("PointSize", levels = c("1", "2", "5", "10"), contains = "GlyphEnum")
setGeneric("icons", function(obj, ...) standardGeneric("icons"))
setMethod("icons", "PointSizeSingleEnum", function(obj, pix.size = c(30, 30),
                                                  pixbg.col = "white",
                                                  point.fill = "black",
                                                  point.stroke = NA){
  lst <- lapply(levels(obj), function(i){
    scene <- qscene()
    layer <- qlayer(scene, function(layer, painter){
      qdrawCircle(painter, 20, 10, r = as.numeric(i),
                  fill = point.fill, stroke = point.stroke)
    },limits = qrect(0, 0, 40, 20))
    qpixmap <- Qt$QPixmap(pix.size[1], pix.size[2])
    qpixmap$fill(Qt$QColor("white"))
    pt <- Qt$QPainter(qpixmap)
    scene$render(pt)
    icon <- Qt$QIcon(qpixmap)
  })
  names(lst) <- levels(obj)
  lst
})