[R] Getting sink to work with "message" on R 2.11.0 - what did I miss?

[David Winsemius]

On May 21, 2010, at 5:34 PM, Greg Snow wrote:

> Look at txtStart and friends in the TeachingDemos package as an  
> alternative to sink that includes commands as well as output.

Know the quality of Greg Snows work it will probably be better than  
mine, but perhaps:

 > capfn <- function(inp) {
+          instring <- deparse(substitute(inp))
+          capture.output(instring, inp, file="all.Rout") }
 > capfn(1+3)

The file looks like this:

[1] "1 + 3"
[1] 4
>
> -- 
> Gregory (Greg) L. Snow Ph.D.
> Statistical Data Center
> Intermountain Healthcare
> greg.snow at imail.org
> 801.408.8111
>
>
>> -----Original Message-----
>> From: r-help-bounces at r-project.org [mailto:r-help-bounces at r-
>> project.org] On Behalf Of Tal Galili
>> Sent: Friday, May 21, 2010 3:21 PM
>> To: David Winsemius
>> Cc: r-help at r-project.org
>> Subject: Re: [R] Getting sink to work with "message" on R 2.11.0 -  
>> what
>> did I miss?
>>
>> Hi David,
>>
>> I want to get both the 4 and the "1+3" that created it.
>>
>> I am trying to help someone else on the mailing list that is looking
>> for a
>> way to "sink" the console into word, so he could have word read it to
>> him
>> (he is blind).
>> I know how to do the second part, but the first part (using sink with
>> the
>> commands, and not just the output), I am somehow missing...
>>
>> Best,
>> Tal
>>
>>
>>
>> ----------------Contact
>> Details:-------------------------------------------------------
>> Contact me: Tal.Galili at gmail.com |  972-52-7275845
>> Read me: www.talgalili.com (Hebrew) | www.biostatistics.co.il  
>> (Hebrew)
>> |
>> www.r-statistics.com (English)
>> -----------------------------------------------------------------------
>> -----------------------
>>
>>
>>
>>
>> On Sat, May 22, 2010 at 12:17 AM, David Winsemius
>> <dwinsemius at comcast.net>wrote:
>>
>>>
>>> On May 21, 2010, at 5:02 PM, Tal Galili wrote:
>>>
>>> Hi all,
>>>>
>>>> I am trying to use type message with sink, like this:
>>>>
>>>> sink("all.Rout", type="message")
>>>> 1+3
>>>>
>>>> sink()
>>>>
>>>> readLines(con = "all.Rout")
>>>>
>>>> So to get the following output:
>>>>
>>>> 1+3
>>>>>
>>>> [1] 4
>>>>
>>>> Obviously this doesn't work.
>>>>
>>>>
>>> What are you trying to do? The sink help page has two rather dire
>> warnings
>>> about not using type="message",  and using type="output would give
>> you what
>>> you ask:
>>>
>>>> sink("all.Rout", type="output")
>>>
>>>> 1+3
>>>>
>>>> sink()
>>>>
>>>> readLines(con = "all.Rout")
>>> [1] "[1] 4"
>>>
>>> The extra "[1]" and quotes are from the readLines function, not from
>>> all.Rout.
>>>
>>>
>>> I tried some variations (based on the explanations in the help) but
>> am
>>>> missing something on how to make it work.
>>>>
>>>> Any suggestions?
>>>>
>>>> (p.s: I need this so to help Faiz Rasool in his latest post)
>>>>
>>>> Thanks,
>>>>
>>>> Tal
>>>>
>>> --
>>> David Winsemius, MD
>>> West Hartford, CT
>>>
>>>
>>
>> 	[[alternative HTML version deleted]]
>>
>> ______________________________________________
>> R-help at 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.

David Winsemius, MD
West Hartford, CT