[R] Source Code

[R. Michael Weylandt <michael.weylandt@gmail.com>]

On Apr 20, 2013, at 7:13 PM, David Winsemius <dwinsemius at comcast.net> wrote:

> 
> On Apr 20, 2013, at 4:05 PM, Eva Prieto Castro wrote:
> 
>> 
>> Thanks!. The problem is that I can't see the source code in .Internal(txt...
> 
> Exactly.... which was why I provided the link to Ligges' article. (So now you _are_ expected to do some self-study.)
> 

Note also that the graphics code isn't exactly the easiest either (to my mind) -- perhaps you could say a bit about what you are after and we'll try to give pointers as best we're able. 

MW

(Sorry for brain borking in the text() function earlier -- I blame it on the travel!)


> -- 
> David.
>> 
>> 
>>> text.default
>> function (x, y = NULL, labels = seq_along(x), adj = NULL, pos = NULL, 
>>    offset = 0.5, vfont = NULL, cex = 1, col = NULL, font = NULL, 
>>    ...) 
>> {
>>    if (!missing(y) && (is.character(y) || is.expression(y))) {
>>        labels <- y
>>        y <- NULL
>>    }
>>    labels <- as.graphicsAnnot(labels)
>>    if (!is.null(vfont)) 
>>        vfont <- c(typeface = pmatch(vfont[1L], Hershey$typeface), 
>>            fontindex = pmatch(vfont[2L], Hershey$fontindex))
>>    .Internal(text(xy.coords(x, y, recycle = TRUE), labels, adj, 
>>        pos, offset, vfont, cex, col, font, ...))
>> }
>> <bytecode: 0x12b4cdb4>
>> <environment: namespace:graphics>
>> 
>> Regards,
>> 
>> Eva
>> 
>> --- El dom, 21/4/13, David Winsemius <dwinsemius at comcast.net> escribió:
>> 
>> De: David Winsemius <dwinsemius at comcast.net>
>> Asunto: Re: [R] Source Code
>> Para: "R. Michael Weylandt <michael.weylandt at gmail.com>" <michael.weylandt at gmail.com>
>> CC: "Eva Prieto Castro" <evapcastro at yahoo.es>, "<r-help at stat.math.ethz.ch>" <r-help at stat.math.ethz.ch>
>> Fecha: domingo, 21 de abril, 2013 00:45
>> 
>> 
>> On Apr 20, 2013, at 3:34 PM, R. Michael Weylandt <michael.weylandt at gmail.com> wrote:
>> 
>>> 
>>> 
>>> On Apr 20, 2013, at 6:23 PM, Eva Prieto Castro <evapcastro at yahoo.es> wrote:
>>> 
>>>> Dear all,
>>>> 
>>>> How can I get the source code of text function?
>>> 
>>> What is the 'text function'?
>>> 
>>> Try typing the name of the function at the prompt without any parentheses after it. If its written in R, then it should be visible.
>> 
>> (It's not, .. or at least it might not seem so to a newbR.)
>> 
>>> text
>> function (x, ...) 
>> UseMethod("text")
>> <bytecode: 0x10191f780>
>> <environment: namespace:graphics>
>> 
>> 
>> methods(text)
>> text.default
>> graphics:::trext.formula
>> 
>> And then .... to go further ... I think she may need the added information in Uwe Ligges classic R-News article:
>> 
>> http://cran.r-project.org/doc/Rnews/Rnews_2006-4.pdf
>> 
>> 
>> -- 
>> David Winsemius
>> Alameda, CA, USA
> 
> David Winsemius
> Alameda, CA, USA
>