widgetTools wFuns problem
1
0
Entering edit mode
mattia ▴ 80
@mattia-1512
Last seen 9.6 years ago
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=glob alenv(),wFuns=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
DynDoc tkWidgets reposTools widgetTools DynDoc tkWidgets reposTools widgetTools • 1.3k views
ADD COMMENT
0
Entering edit mode
John Zhang ★ 2.9k
@john-zhang-6
Last seen 9.6 years ago
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=glo balenv(),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
ADD COMMENT
0
Entering edit mode
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=globa lenv(),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=g lobalen > >>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
ADD REPLY
0
Entering edit mode
Hi John, I forgot to ask you if it is possible to give to "wFuns" not only a function but also some argument for this function (like the apply functions..). In this case it would be very useful to me because I could set the name of the variable where to store the file names returned by "fileBrowser". In this way I can put many Browse buttons in my widgets without overwriting the obtained file-names vectors. for example: tempFun <- function(fileName){files <- fileBrowser();multiassign(fileName, paste(files,collapse=";"), env = .GlobalEnv)} and then browserButton<-button(wName="browserButton",wValue="Browse",wEnv=globa lenv( ),wFuns=list(command=tempFun,fileName="fileList"){)) I tried but I have got an error message when I started the widget, since a function is expected: Error in function () : attempt to apply non-function Is there any documentation regarding what can be put in the "wFuns" argument? thanks 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=glo balenv( >),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 =global > > >>en 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
ADD REPLY

Login before adding your answer.

Traffic: 611 users visited in the last hour
Help About
FAQ
Access RSS
API
Stats

Use of this site constitutes acceptance of our User Agreement and Privacy Policy.

Powered by the version 2.3.6