[BioC] widgetTools wFuns problem

[mattia]

Hi Jianhua,

I did not know the "multiassign" function!
I have slightly modified what you suggested, simply because I want to have the 
vector returned by fileBrowser saved in my globalenv, and not its 
components..


tempFun <- function(){files <- fileBrowser();multiassign("fileList", 
paste(files,collapse=";"), env = .GlobalEnv)}

browserButton<-button(wName="browserButton",wValue="Browse",wEnv=globalenv(),wFuns=list(command=tempFun))

browserList<-list(browser=list(browserButton=browserButton))

test<-widget(wTitle="test",pWidgets=browserList,env=globalenv())
...
fileList<-strsplit(fileList,";")


I don't know if using "paste(,collapse..)" and "strsplit" is the best solution 
but it works fine..
Thanks a lot

Mattia


On Friday 03 February 2006 15:36, John Zhang wrote:
> The files names got lost because you did not give instructions on what to
> do with the file names. If you write the function like below:
>
>
> require("Biobase")
> tempFun <- function(){
>   files <- fileBrowser()
>   multiassign(paste("file", 1:length(files), sep = ""), files, env =
> .GlobalEnv) }
>
> and then replace fileBrowser with tempFun in your code. The files seleceted
> will be stored in .GlobalEnv as file1, file2, ...
>
> But would fileBrowser do what you what to achieve by those lines of code?
>
> >X-Original-To: jzhang at jimmy.harvard.edu
> >Delivered-To: jzhang at jimmy.harvard.edu
> >X-Spam-Checker-Version: SpamAssassin 3.1.0 (2005-09-13) on
> > hypatia.math.ethz.ch X-Spam-Level:
> >X-Spam-Status: No, score=0.0 required=5.0 tests=BAYES_50 autolearn=no
>
> version=3.1.0
>
> >From: mattia <mattia.pelizzola at unimib.it>
> >To: bioconductor at stat.math.ethz.ch
> >Date: Thu, 2 Feb 2006 12:03:13 +0100
> >User-Agent: KMail/1.8
> >MIME-Version: 1.0
> >Content-Disposition: inline
> >Received-SPF: pass (hypatia.math.ethz.ch: 129.132.145.15 is authenticated
> > by a
>
> trusted mechanism)
>
> >Received-SPF: none (hypatia: domain of mattia.pelizzola at unimib.it does not
>
> designate permitted sender hosts)
>
> >X-Virus-Scanned: by amavisd-new at stat.math.ethz.ch
> >Subject: [BioC] widgetTools wFuns problem
> >X-BeenThere: bioconductor at stat.math.ethz.ch
> >X-Mailman-Version: 2.1.6
> >List-Id: The Bioconductor Project Mailing List
> > <bioconductor.stat.math.ethz.ch> List-Unsubscribe:
> > <https://stat.ethz.ch/mailman/listinfo/bioconductor>,
>
> <mailto:bioconductor-request at stat.math.ethz.ch?subject=unsubscribe>
>
> >List-Archive: <https://stat.ethz.ch/pipermail/bioconductor>
> >List-Post: <mailto:bioconductor at stat.math.ethz.ch>
> >List-Help: <mailto:bioconductor-request at stat.math.ethz.ch?subject=help>
> >List-Subscribe: <https://stat.ethz.ch/mailman/listinfo/bioconductor>,
>
> <mailto:bioconductor-request at stat.math.ethz.ch?subject=subscribe>
>
> >Content-Transfer-Encoding: 7bit
> >X-PMX-Version: 4.7.1.128075, Antispam-Engine: 2.2.0.0, Antispam-Data:
>
> 2006.02.02.020605
>
> >X-PMX-Spam: Probability=7%, Report='__C230066_P1_5 0, __CD 0, __CT 0,
> > __CTE 0,
>
> __CTYPE_CHARSET_QUOTED 0, __CT_TEXT_PLAIN 0, __HAS_MSGID 0,
> __MIME_TEXT_ONLY 0, __MIME_VERSION 0, __SANE_MSGID 0, __STOCK_CRUFT 0,
> __USER_AGENT 0'
>
> >Hi,
> >
> >I have a problem with widgetTools.
> >I created a simple button that I would like to be associated with the
> >"fileBrowser" function (returning a vector of file names).
> >
> >>library(tkWidgets)
> >>browserButton<-button(wName="browserButton",wValue="Browse",wEnv=globalen
> >>v(),w
>
> Funs=list(command=fileBrowser))
>
> >> browserList<-list(browser=list(browserButton=browserButton))
> >> test<-widget(wTitle="test",pWidgets=browserList,env=globalenv())
> >
> >.. fileBrowser seems to work fine, I select some files, but I'm not able
> > to retrieve the "returned" vector of file names..
> >
> >> test at pWidgets[[1]][[1]]@wValue
> >
> >[1] "Browse"
> >
> >Where does the file-names disappear?
> >
> >this is my configuration:
> >
> >R version 2.1.1, 2005-06-20, x86_64-unknown-linux-gnu
> >
> >attached base packages:
> >[1] "tools"     "tcltk"     "methods"   "stats"     "graphics" 
> > "grDevices" [7] "utils"     "datasets"  "base"
> >
> >other attached packages:
> >  tkWidgets      DynDoc  reposTools widgetTools
> >   "1.5.23"     "1.5.5"    "1.5.19"     "1.4.7"
> >
> >
> >thanks for any suggestion!
> >
> >Mattia
> >
> >
> >--
> >Mattia Pelizzola
> >PhD Student
> >Genopolis Consortium
> >Milano-Bicocca University
> >P.zza della Scienza 4
> >20126 Milano (Italy)
> >tel:+390264483556
> >fax:+390264483552
> >
> >_______________________________________________
> >Bioconductor mailing list
> >Bioconductor at stat.math.ethz.ch
> >https://stat.ethz.ch/mailman/listinfo/bioconductor
>
> Jianhua Zhang
> Department of Medical Oncology
> Dana-Farber Cancer Institute
> 44 Binney Street
> Boston, MA 02115-6084

-- 
Mattia Pelizzola
PhD Student
Genopolis Consortium
Milano-Bicocca University
P.zza della Scienza 4
20126 Milano (Italy)
tel:+390264483556
fax:+390264483552