[R] Sweave and scan()

[David Winsemius]

On Jul 27, 2010, at 7:01 AM, Murray Jorgensen wrote:

> Both suggestions generate similar errors to those of the original  
> code. I would also be worried if the results would not puzzle my  
> students.

You are teaching them about R or about Sweave? You are setting up code  
that is designed to run at an open console session, but submitting it  
to a batch process.

http://finzi.psych.upenn.edu/R/Rhelp02/archive/31347.html

After reading that I am wondering if you could set up a textConnection  
first and then  scan from that?

 > con <- textConnection("64 62 66 65 62\n69 72 72 70")
 > scan(file=con)
Read 9 items
[1] 64 62 66 65 62 69 72 72 70

-- 
David.
>
> But thanks!  Murray
>
> David Winsemius wrote:
>> On Jul 26, 2010, at 11:54 PM, Murray Jorgensen wrote:
>>> I am introducing the scan() function to my class. Consider the  
>>> following file (Scanexamp.Rnw )
>>>
>>> \documentclass[12pt]{article}
>>>
>>> \begin{document}
>>> <<>>=
>>> height = scan()
>>> 64 62 66 65 62
>>> 69 72 72 70
>> Have you considered adding an empty line or an ";" after the  
>> closing paren of scan? (At the console the semi-colon gambit has  
>> the desired effect while the empty line strategy fails.)
>>>
>>> part = scan(what = character(0))
>>> "Soprano" "Soprano" "Soprano"
>>> "Alto"    "Alto"    "Tenor"
>>> "Tenor"   "Bass"    "Bass"
>>>
>>> sh = data.frame(height, part)
>>> sh
>>> @
>>> \end{document}
>>>
>>> Now what happens when I attempt to Sweave this is
>>>
>>> > Sweave("scanexamp.Rnw")
>>> Writing to file scanexamp.tex
>>> Processing code chunks ...
>>> 1 : echo term verbatim
>>>
>>> Error:  chunk 1
>>> Error in parse(text = chunk) : unexpected numeric constant in:
>>> "height = scan()
>>> 64 62"
>>> >
>>>
>>> Comments would be appreciated. (And thanks to Ross Darnell for a  
>>> lot of help on another list.)
>>>
>>> Cheers,  Murray Jorgensen
>>>
>>> -- 
>>> Dr Murray Jorgensen      http://www.stats.waikato.ac.nz/Staff/maj.html
>>> Department of Statistics, University of Waikato, Hamilton, New  
>>> Zealand
>>> Email: maj at waikato.ac.nz                                Fax 7 838  
>>> 4155
>>> Phone  +64 7 838 4773 wk    Home +64 7 825 0441   Mobile 021 0200  
>>> 8350
>>>
>>> ______________________________________________
>>> 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
>> Heritage Laboratories
>> West Hartford, CT
>
>
> -- 
> Dr Murray Jorgensen      http://www.stats.waikato.ac.nz/Staff/maj.html
> Department of Statistics, University of Waikato, Hamilton, New Zealand
> Email: maj at waikato.ac.nz    majorgensen at ihug.co.nz      Fax 7 838 4155
> Phone  +64 7 838 4773 wk    Home +64 7 825 0441   Mobile 021 0200 8350

David Winsemius, MD
Heritage Laboratories
West Hartford, CT