Hello,
I've migrated an ADMB application with a user dialog from S to R. The
script below will produce a dialog in R, and don't need data to address
this issue. It works in terms of capturing user inputs to pass along, no
problem running the ADMB program. However some of the options have
dependencies. E.g. if we fix a parameter it should not have an
estimation phase, but we want the full suite of phases available to the
user when the parameter is active. Thus the selection of one listbox is
constrained by the selection of another listbox. I had callback
functionality in S for this, and am now trying to implement callbacks in
tcltk2 using tkbind. At the bottom of the dialog function below I
include an attempt at a callback function. Just for one parameter-phase
pair and scenario to illustrate. It includes a troubleshooting cat to
tell if it works. When I run this it immediately cats the correct value,
although this is premature, as I haven't interacted with the dialog yet.
More importantly, it subsequently ignores interactions. If I change the
parameter definition in one listbox, the callback should verify that the
estimation phase is appropriate in the other listbox and change it if
not. But beyond running the callback function when the dialog is
created, it does not appear to be active after that. Anybody know what
I'm doing wrong?
require(tcltk2)
OtofanGUI=function() {
OtofanR=tktoplevel()
tktitle(OtofanR) <- "Age-Related Data Analysis with OTOFAN"
tkgrid(tklabel(OtofanR,text="DATA SELECTION & DEFINITION"),stick="we")
tkgrid(tklabel(OtofanR,text="If you already have files of ADMB-formatted
data, and/or optional PIN, click button(s) to retrieve them"))
ADMBdata <- tk2button(OtofanR, text = "ADMB Data", width = 10, command =
function() tkgetOpenFile())
ADMBfile <- tk2button(OtofanR, text = "ADMB Pin", width = 10, command =
function() tkgetOpenFile())
tkgrid(ADMBdata)
tkgrid(ADMBfile)
tkgrid(tklabel(OtofanR,text=""))
tkgrid(tklabel(OtofanR,text="If you have a dataframe in R,
confirm/identify it, and the variables to build the ADMB inputs"))
CustomFile <- tclVar("AgeData")
tkgrid(tklabel(OtofanR,text="Dataframe name"),tk2entry(OtofanR,
textvariable=CustomFile, width=20))
Ages <- tclVar("AgeYears")
tkgrid(tklabel(OtofanR,text="Age variable"),tk2entry(OtofanR,
textvariable=Ages, width=20))
FishLens <- tclVar("FishLength")
tkgrid(tklabel(OtofanR,text="Fish Length variable"),tk2entry(OtofanR,
textvariable=FishLens, width=20))
OtoWts <- tclVar("NA")
tkgrid(tklabel(OtofanR,text="Otolith Weight variable"),tk2entry(OtofanR,
textvariable=OtoWts, width=20))
OtoLens <- tclVar("NA")
tkgrid(tklabel(OtofanR,text="Otolith Length variable"),tk2entry(OtofanR,
textvariable=OtoLens, width=20))
FishWts <- tclVar("NA")
tkgrid(tklabel(OtofanR,text="Fish Weight variable"),tk2entry(OtofanR,
textvariable=FishWts, width=20))
GroupID <- tclVar("NA")
tkgrid(tklabel(OtofanR,text="Group ID variable"),tk2entry(OtofanR,
textvariable=GroupID, width=20))
YearID <- tclVar("NA")
tkgrid(tklabel(OtofanR,text="Year ID variable"),tk2entry(OtofanR,
textvariable=YearID, width=20))
Sex <- tclVar("NA")
tkgrid(tklabel(OtofanR,text="Sex variable"),tk2entry(OtofanR,
textvariable=Sex, width=20))
LFdata <- tclVar("NA")
tkgrid(tklabel(OtofanR,text="Separate Length-Frequency Dataframe
name"),tk2entry(OtofanR, textvariable=LFdata, width=20))
FreqVar <- tclVar("NA")
tkgrid(tklabel(OtofanR,text="Frequency variable"),tk2entry(OtofanR,
textvariable=FreqVar, width=20))
OSTypes <- c("Random at Length", "Simple Random")
OSlist=tk2listbox(OtofanR, values=OSTypes, selection=1, selectmode =
"single", height = 2, scroll = "none", autoscroll = "x", enabled = TRUE)
tkgrid(tklabel(OtofanR,text="Otolith Sample Type"),OSlist)
ASTypes <- c("Random at Length", "Simple Random")
ASlist=tk2listbox(OtofanR, values=ASTypes, selection=1, selectmode =
"single", height = 2, scroll = "none", autoscroll = "x", enabled = TRUE)
tkgrid(tklabel(OtofanR,text="Age Sample Type"),ASlist)
AppApply <- tk2button(OtofanR, text = "Apply", width = 7, command =
function()
OtofanDT(tclvalue(ADMBdata),tclvalue(ADMBFile),tclvalue(ADMBPin),ADMBF="
NA",ADMBP="NA",tclvalue(GS),
Regdata="NA",tclvalue(CustomFile),tclvalue(Ages),tclvalue(FishLens),tclv
alue(OtoWts),tclvalue(OtoLens),tclvalue(FishWts),tclvalue(GroupID),tclva
lue(YearID),
tclvalue(Sex),tclvalue(LFdata),tclvalue(FreqVar),
tclvalue(tclVar(OSTypes[as.numeric(tkcurselection(OSlist))+1])),tclvalue
(tclVar(ASTypes[as.numeric(tkcurselection(ASlist))+1])),
tclvalue(tclVar(LAAdet[as.numeric(tkcurselection(detlist))+1])),tclvalue
(tclVar(LPhase[as.numeric(tkcurselection(LPlist))+1])),
tclvalue(tclVar(Ldist[as.numeric(tkcurselection(Ldlist))+1])),tclvalue(t
clVar(LAAstdev[as.numeric(tkcurselection(LAASDlist))+1])),
tclvalue(tclVar(LSDPhase[as.numeric(tkcurselection(LSDlist))+1])),tclval
ue(tclVar(LSDdist[as.numeric(tkcurselection(LSDdlist))+1])),
tclvalue(tclVar(LSDcov[as.numeric(tkcurselection(LSDcovlist))+1])),OAA="
NA",tclvalue(tclVar(OAAdet[as.numeric(tkcurselection(odetlist))+1])),
tclvalue(tclVar(OPhase[as.numeric(tkcurselection(OPlist))+1])),tclvalue(
tclVar(Odist[as.numeric(tkcurselection(Odlist))+1])),
tclvalue(tclVar(OAAstdev[as.numeric(tkcurselection(OAASDlist))+1])),tclv
alue(tclVar(OSDPhase[as.numeric(tkcurselection(OSDlist))+1])),
tclvalue(tclVar(OSDdist[as.numeric(tkcurselection(OSDdlist))+1])),CORR="
NA",tclvalue(tclVar(CORest[as.numeric(tkcurselection(CORRlist))+1])),
tclvalue(tclVar(CPhase[as.numeric(tkcurselection(CPlist))+1])),GS2="NA",
tclvalue(tclVar(PAAPhase[as.numeric(tkcurselection(PAAlist))+1]))))
AppCancel <- tk2button(OtofanR, text = "Cancel", width = 7, command =
function() tkdestroy(OtofanR))
tkgrid(AppApply,sticky="w")
tkgrid(AppCancel,sticky="w")
#Length at Age Tab
tkgrid(tklabel(OtofanR,text="LENGTH AT AGE
FITTING"),sticky="we",column=2,row=1)
LAAdet <- c("Mean, Estimated", "Constrained BY VBGF, Estimated",
"Constrained TO VBGF, Fixed")
detlist=tk2listbox(OtofanR, values=c("Mean, Estimated", "Constrained BY
VBGF, Estimated", "Constrained TO VBGF, Fixed"), selection=1, selectmode
= "single", height = 3, scroll = "none", autoscroll = "x", enabled =
TRUE, width=30)
tkgrid(tklabel(OtofanR,text="Determination Method"),column=2,row=2)
tkgrid(detlist,column=2,row=3)
LPhase <- c("0", "1", "2", "3")
LPlist=tk2listbox(OtofanR, values=c("0", "1", "2", "3"), selection=3,
selectmode = "single", height = 4, scroll = "none", autoscroll = "x",
enabled = TRUE)
tkgrid(tklabel(OtofanR,text="Activation Phase (0 = Fixed, do not
estimate)"),column=2,row=5)
tkgrid(LPlist,column=2,row=6)
Ldist <- c("0", "1", "2", "3")
Ldlist=tk2listbox(OtofanR, values=c("0", "1", "2", "3"), selection=1,
selectmode = "single", height = 4, scroll = "none", autoscroll = "x",
enabled = TRUE)
tkgrid(tklabel(OtofanR,text="Estimate Distribution in Phase (0 = Fixed,
do not estimate)"),column=2,row=8)
tkgrid(Ldlist,column=2,row=9)
LAAstdev <- c("Traditional Calculation, Fixed", "Constrained BY
regression, Estimated", "Constrained TO regression, Fixed")
LAASDlist=tk2listbox(OtofanR, values=c("Traditional Calculation, Fixed",
"Constrained BY regression, Estimated", "Constrained TO regression,
Fixed"), selection=1, selectmode = "single", height = 4, scroll =
"none", autoscroll = "x", enabled = TRUE, width=35)
tkgrid(tklabel(OtofanR,text="Standard Deviation"),column=2,row=11)
tkgrid(LAASDlist,column=2,row=12)
LSDPhase <- c("0", "1", "2", "3")
LSDlist=tk2listbox(OtofanR, values=c("0", "1", "2", "3"), selection=4,
selectmode = "single", height = 4, scroll = "none", autoscroll = "x",
enabled = TRUE)
tkgrid(tklabel(OtofanR,text="St Dev Activation Phase (0 = Fixed, do not
estimate)"),column=2,row=14)
tkgrid(LSDlist,column=2,row=15)
LSDdist <- c("0", "1", "2", "3")
LSDdlist=tk2listbox(OtofanR, values=c("0", "1", "2", "3"), selection=1,
selectmode = "single", height = 4, scroll = "none", autoscroll = "x",
enabled = TRUE)
tkgrid(tklabel(OtofanR,text="Estimate St Dev Distribution in Phase (0 =
do not estimate)"),column=2,row=17)
tkgrid(LSDdlist,column=2,row=18)
LSDcov <- c("0", "1", "2", "3")
LSDcovlist=tk2listbox(OtofanR, values=c("0", "1", "2", "3"),
selection=1, selectmode = "single", height = 4, scroll = "none",
autoscroll = "x", enabled = TRUE)
tkgrid(tklabel(OtofanR,text="Estimate CV in Phase (0 = Fixed, do not
estimate)"),column=2,row=20)
tkgrid(LSDcovlist,column=2,row=21)
#Otolith at Age Tab
tkgrid(tklabel(OtofanR,text="OTOLITH METRICS AT AGE
FITTING"),sticky="we",column=3,row=1)
OAAdet <- c("Mean, Estimated", "Constrained BY regression, Estimated",
"Constrained TO regression, Fixed")
odetlist=tk2listbox(OtofanR, values=c("Mean, Estimated", "Constrained BY
regression, Estimated", "Constrained TO regression, Fixed"),
selection=1, selectmode = "single", height = 3, scroll = "none",
autoscroll = "x", enabled = TRUE, width=30)
tkgrid(tklabel(OtofanR,text="Determination Method"),column=3,row=2)
tkgrid(odetlist,column=3,row=3)
OPhase <- c("0", "1", "2", "3")
OPlist=tk2listbox(OtofanR, values=c("0", "1", "2", "3"), selection=3,
selectmode = "single", height = 4, scroll = "none", autoscroll = "x",
enabled = TRUE)
tkgrid(tklabel(OtofanR,text="Activation Phase (0 = Fixed, do not
estimate)"),column=3,row=5)
tkgrid(OPlist,column=3,row=6)
Odist <- c("0", "1", "2", "3")
Odlist=tk2listbox(OtofanR, values=c("0", "1", "2", "3"), selection=1,
selectmode = "single", height = 4, scroll = "none", autoscroll = "x",
enabled = TRUE)
tkgrid(tklabel(OtofanR,text="Estimate Distribution in Phase (0 = Fixed,
do not estimate)"),column=3,row=8)
tkgrid(Odlist,column=3,row=9)
OAAstdev <- c("Traditional Calculation, Fixed", "Constrained BY
regression, Estimated", "Constrained TO regression, Fixed")
OAASDlist=tk2listbox(OtofanR, values=c("Traditional Calculation, Fixed",
"Constrained BY regression, Estimated", "Constrained TO regression,
Fixed"), selection=1, selectmode = "single", height = 4, scroll =
"none", autoscroll = "x", enabled = TRUE, width=35)
tkgrid(tklabel(OtofanR,text="Standard Deviation"),column=3,row=11)
tkgrid(OAASDlist,column=3,row=12)
OSDPhase <- c("0", "1", "2", "3")
OSDlist=tk2listbox(OtofanR, values=c("0", "1", "2", "3"), selection=4,
selectmode = "single", height = 4, scroll = "none", autoscroll = "x",
enabled = TRUE)
tkgrid(tklabel(OtofanR,text="St Dev Activation Phase (0 = Fixed, do not
estimate)"),column=3,row=14)
tkgrid(OSDlist,column=3,row=15)
OSDdist <- c("0", "1", "2", "3")
OSDdlist=tk2listbox(OtofanR, values=c("0", "1", "2", "3"), selection=1,
selectmode = "single", height = 4, scroll = "none", autoscroll = "x",
enabled = TRUE)
tkgrid(tklabel(OtofanR,text="Estimate St Dev Distribution in Phase (0 =
do not estimate)"),column=3,row=17)
tkgrid(OSDdlist,column=3,row=18)
#Dependencies Tab
tkgrid(tklabel(OtofanR,text="DEPENDENCIES"),sticky="we",column=4,row=1)
tkgrid(tklabel(OtofanR,text="Correlations"),sticky="we",column=4,row=2)
CORest <- c("Age-Specific", "Age-Invariant")
CORRlist=tk2listbox(OtofanR, values=c("Age-Specific", "Age-Invariant"),
selection=1, selectmode = "single", height = 4, scroll = "none",
autoscroll = "x", enabled = TRUE)
tkgrid(tklabel(OtofanR,text="Method"),column=4,row=3)
tkgrid(CORRlist,column=4,row=3)
CPhase <- c("1", "2", "3")
CPlist=tk2listbox(OtofanR, values=c("1", "2", "3"), selection=3,
selectmode = "single", height = 4, scroll = "none", autoscroll = "x",
enabled = TRUE)
tkgrid(tklabel(OtofanR,text="Activation Phase"),column=4,row=5)
tkgrid(CPlist,column=4,row=6)
PAAPhase <- c("1", "2", "3")
PAAlist=tk2listbox(OtofanR, values=c("1", "2", "3"), selection=1,
selectmode = "single", height = 4, scroll = "none", autoscroll = "x",
enabled = TRUE)
tkgrid(tklabel(OtofanR,text="Activation Phase to Estimate Proportions at
Age"),column=4,row=8)
tkgrid(PAAlist,column=4,row=9)
OtofanCallback = function(detlist,LAAdet,LPhase,LPlist) {
if
(tclvalue(tclVar(LAAdet[as.numeric(tkcurselection(detlist))+1]))!="3" &
tclvalue(tclVar(LPhase[as.numeric(tkcurselection(LPlist))+1]))=="0")tkse
lection.set(detlist, 2)
cat(tclvalue(tclVar(LAAdet[as.numeric(tkcurselection(detlist))+1])))
}
tkbind(detlist,"<Key>", OtofanCallback(detlist,LAAdet,LPhase,LPlist))
}
OtofanGUI()
[immediately outputs as below]
Mean, Estimated<Tcl>
Mark Fowler
Population Ecology Division
Bedford Inst of Oceanography
Dept Fisheries & Oceans
Dartmouth NS Canada
B2Y 4A2
Tel. (902) 426-3529
Fax (902) 426-9710
Email mark.fow...@dfo-mpo.gc.ca <mailto:mark.fow...@dfo-mpo.gc.ca>
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
