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
|
# Work in progress - simple GUI for mkin
w <- gwindow('Simple R GUI for kinetic evaluations', visible=FALSE)
# Project definition {{{
pr <- gexpandgroup("Project", cont=w)
n.observed <- 1
max.n.observed <- 9
observed.names = c("parent", paste("M", 1:(max.n.observed - 1), sep=""))
prg <- ggroup(horizontal=FALSE, cont = pr)
prl <- glayout(cont = prg)
prl[1,1] <- glabel("Number of observed variables", cont=prl)
prl[1,2] <- (n.observed.gw = gcombobox(
1:max.n.observed,
handler = function(h, ...) {
n.observed <<- svalue(n.observed.gw)
filter.expression <- paste("^[1-", n.observed, "]$", sep="")
observed.gw$filter("Index", filter.expression)
},
cont=prl))
observed.gw <- gdf(
items = data.frame(Index = 1:max.n.observed,
Name = observed.names, stringsAsFactors=FALSE),
name = "Names of observed variables",
width = 500, height=250, cont=prg)
addSpace(prg, 15)
prf <- gfile("Project file in binary R format (preferably use .RData as extension)",
container = prg)
addSpring(prg)
addSpace(prg, 15)
pr.ok <- gbutton("save",
handler=function(h,...) {
galert(svalue(prf), parent=w)
}, container=prg)
gbutton("ok", handler = function(h, ...) {
observed <- observed.gw[1:n.observed,2]
save(observed, file="observed.RData")
visible(pr) <- FALSE
},
cont=prg
)
visible(pr) <- TRUE
# }}}
# Dataset definition
ds <- gexpandgroup("Datasets", cont=w)
s <- gdf(data.frame( Author = c("Meier"), Year = "3", Title = "4"),
name = "Studies",
cont=ds)
size(s) <- c(800,200)
visible(ds) <- TRUE
# Model definition
ms <- gexpandgroup("Models", cont=w)
visible(ms) <- FALSE
# Evaluation window
mw <- gframe("Evaluations", cont=w)
# Status bar
gstatusbar("Powered by gWidgetsWWW", cont = w)
visible(w) <- TRUE
# vim: set foldmethod=marker:
|
