[R] calling a function with dynamically generated buttons

[jim holtman]

Untested, but try something like this:

 for(i in 1:(reihen-1)) {

       but <- tkbutton(base, text = classi[i], command = local({
                       anzeige <- data.matrix(dataframe[i,-c(spalten)])
                        namen <- names(anzeige)
                        tit <- paste(classi[i], "\nTotal Threshold
for", classi[i], ":", dataframe[i, spalten])
                       function() {plotten(mat = anzeige, namen =
namen, titel = tit)}
                   }))
       tkgrid(but, row=4, column=i, sticky="e")
}

On Wed, Aug 12, 2009 at 8:47 AM, Anne Skoeries<home at anne-skoeries.de> wrote:
> Hallo,
>
> I'm dynamically generating buttons depending on the number of rows of my
> dataframe. Every button is supposed to call a function which generates a
> plot with the values of one of my dataframe rows.
>
> My code looks like this:
>
> base <- tktoplevel()
>
> plotten <- function(mat, namen, titel) {
>        midpts <- barplot(height=mat, names.arg = namen, main = titel, las=2)
>        text(midpts, 1, mat)
>        mtext(text=paste("Treshold:", thresh), side=3, col="blue")
>      }
>
>  lb <- tklabel(base, text="Barplot:")
>  tkgrid(lb, row=4, column=0)
>
>  for(i in 1:(reihen-1)) {
>        anzeige <- data.matrix(dataframe[i,-c(spalten)])
>        namen <- names(anzeige)
>        tit <- paste(classi[i], "\nTotal Threshold for", classi[i], ":",
> dataframe[i, spalten])
>
>        but <- tkbutton(base, text = classi[i], command = function()
> {plotten(mat = anzeige, namen = namen, titel = tit)})
>        tkgrid(but, row=4, column=i, sticky="e")
> }
>
> The buttons are all displayed correctly in my window, but after pressing
> one, it always generates a plot with the last parameters. So, if I've
> generated 3 buttons and choose button1, it generates a plot with the
> parameters of button3. The same plot after pressing button2 or button3.
>
> How can I make sure, that each button calls the function with it's "own"
> parameters? So that button1 calls the function with the first row of my
> dataframe as the function parameter, button2 with the second row and so on?
>
> Thanks in advance,
>
> --
> Anne Skoeries
>
> ______________________________________________
> R-help at 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.
>



-- 
Jim Holtman
Cincinnati, OH
+1 513 646 9390

What is the problem that you are trying to solve?