rppa.selectFactors <- function(spots, factor="SampleName")
{
require(tcltk)
tt<-tktoplevel()
tl<-tklistbox(tt,height=10,selectmode="multiple",background="white")
tkgrid(tklabel(tt,text="Please select factors to include."))
tkgrid(tl)
spotNames <- levels(spots[[factor]])
for (i in (1:length(spotNames)))
{
tkinsert(tl,"end",spotNames[i])
}
tkselection.set(tl,0)
OKSelection <- function()
{
spotNames <<- as.integer(tkcurselection(tl))
tkdestroy(tt)
}
OK.but <-tkbutton(tt,text=" OK ",command=OKSelection)
tkgrid(tklabel(tt,text=" "))
tkgrid(OK.but)
tkfocus(tt)
tkwait.window(tt)
spotNames <- spotNames + 1
return(spots[spots$SampleName %in% levels(spots$SampleName)[spotNames],])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.