Thank you all for your answers.
On Mon, Oct 20, 2008 at 6:32 AM, Henrique Dallazuanna <[EMAIL PROTECTED]>wrote:
> Try this:
>
> Using 'envir' argument, in ls and get function:
>
> get.vars.name.prefix<-function(prefix, envir = parent.frame()){
>result<-list()
>len<-nchar(prefix)
>var.
On 20/10/2008 2:06 AM, erwann rogard wrote:
hi,
get.vars.name.prefix<-function(prefix){
result<-list()
len<-nchar(prefix)
var.names<-ls(name=1,pattern=prefix) #name=1 probably wrong option
print(var.names)
for(i in 1:length(var.names)){
name<-var.names[i]
field<-substr(name,len+1,nchar(
Try this:
Using 'envir' argument, in ls and get function:
get.vars.name.prefix<-function(prefix, envir = parent.frame()){
result<-list()
len<-nchar(prefix)
var.names<-ls(envir = envir,pattern=prefix)
print(var.names)
for(i in 1:length(var.names)){
name<-var.names[i]
fie
hi,
get.vars.name.prefix<-function(prefix){
result<-list()
len<-nchar(prefix)
var.names<-ls(name=1,pattern=prefix) #name=1 probably wrong option
print(var.names)
for(i in 1:length(var.names)){
name<-var.names[i]
field<-substr(name,len+1,nchar(name))
result[[field]]<-get(name)
}
result
4 matches
Mail list logo