Thanks again Frank for quick reply.
True,
someobject=2
Test=function(obj,labe)
{
label(obj)=labe
#at this point add the line:
obj
}
Test(someobject,"somelabel")
#returns a label. But if you retype
someobject
#the label has gone. That is what I meant by the label not being permanently
changed.
Steve
proMENTE social research
research | evaluation | training & consulting
Kranjčevićeva 35, 71000 Sarajevo
mobile: +387 61 215 997 | office: +387 33 556 865 | fax: +387 33 556 866
skype: stevepowell99
www.promente.org | www.mojakarijera.com | www.psih.org
-----Original Message-----
From: Frank E Harrell Jr [mailto:[EMAIL PROTECTED]
Sent: 17 September 2007 17:18
To: Steve Powell
Cc: [EMAIL PROTECTED]
Subject: Re: [R] Creating Hmisc labels inside a function
Steve Powell wrote:
>
> Thanks, Frank - it doesn't work though.
> Your suggestion was:
>
Test=function(obj,labe)
{
label(obj)=labe
#at this point add the line:
obj
}
> #...but just returning the object does not permanently change the label:
> obj
It does for me. Please re-run. -Frank
> attributes(Test(1:3, 'some label'))
$label
[1] "some label"
$class
[1] "labelled"
You don't need assign.
Frank
>
> That is why I wanted to use assign. But "assign" will not work with
> attributes, labels etc. So
>
> assign(label(obj),"some label") #doesn't even work outside a function,
> at the command prompt.
>
> Any more ideas anyone?
> Best wishes
> Steve Powell
>
>
> proMENTE social research
> research | evaluation | training & consulting Kranjčevićeva 35, 71000
> Sarajevo
> mobile: +387 61 215 997 | office: +387 33 556 865 | fax: +387 33 556
> 866
> skype: stevepowell99
> www.promente.org | www.mojakarijera.com | www.psih.org
>
> -----Original Message-----
> From: Frank E Harrell Jr [mailto:[EMAIL PROTECTED]
> Sent: 12 September 2007 14:38
> To: Steve Powell
> Cc: [EMAIL PROTECTED]
> Subject: Re: [R] Creating Hmisc labels inside a function
>
> Steve Powell wrote:
>> hello list members,
>> I am wanting to write a label using the Hmisc package, but inside a
>> function. Normally I can do:
>>
>> library(Hmisc)
>> M=2
>> label(M)="lab"
>>
>> #But inside a function the "=" does not work:
>> Test=function(obj,labe)
>> {
>> label(obj)=labe
>
> at this point add the line:
>
> obj
>
>> }
>
> The returned object will have what you need. -Frank
>
>> Test(M,"new label")
>>
>> I usually use the "assign" function to make assignments inside
>> functions, but assign will not work with attributes, labels etc.
>> Any ideas?
>> Thanks in advance
>>
>> Steve Powell
>>
>>
>> proMENTE social research
>> research | evaluation | training & consulting Kranjčevićeva 35, 71000
>> Sarajevo
>> mobile: +387 61 215 997 | office: +387 33 556 865 | fax: +387 33 556
>> 866
>> skype: stevepowell99
>> www.promente.org | www.mojakarijera.com | www.psih.org
>>
>>
>> Checked by AVG Free Edition.
>>
>> 17:43
>>
>> ______________________________________________
>> R-help@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.
>>
>
>
--
Frank E Harrell Jr Professor and Chair School of Medicine
Department of Biostatistics Vanderbilt University
No virus found in this incoming message.
Checked by AVG Free Edition.
16.09.2007
18:32
Checked by AVG Free Edition.
16.09.2007
18:32
______________________________________________
R-help@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.
