The R Project SVN R

Rev

Rev 19083 | Rev 29580 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 19083 Rev 26972
Line 1... Line 1...
1 
 
 1 
 
2 
R : Copyright 2002, The R Development Core Team
 2 
R : Copyright 2003, The R Foundation for Statistical Computing
3 
Version 1.5.0 Under development (unstable) (2002-04-02)
 3 
Version 1.9.0 Under development (unstable) (2003-11-09), ISBN 3-900051-00-3
4 
 
 4 
 
5 
R is free software and comes with ABSOLUTELY NO WARRANTY.
 5 
R is free software and comes with ABSOLUTELY NO WARRANTY.
6 
You are welcome to redistribute it under certain conditions.
 6 
You are welcome to redistribute it under certain conditions.
7 
Type `license()' or `licence()' for distribution details.
 7 
Type 'license()' or 'licence()' for distribution details.
8 
 
 8 
 
9 
R is a collaborative project with many contributors.
 9 
R is a collaborative project with many contributors.
10 
Type `contributors()' for more information.
 10 
Type 'contributors()' for more information and
- 
 
 11 
'citation()' on how to cite R in publications.
11 
 
 12 
 
12 
Type `demo()' for some demos, `help()' for on-line help, or
 13 
Type 'demo()' for some demos, 'help()' for on-line help, or
13 
`help.start()' for a HTML browser interface to help.
 14 
'help.start()' for a HTML browser interface to help.
14 
Type `q()' to quit R.
 15 
Type 'q()' to quit R.
15 
 
 16 
 
16 
> ####  eval / parse / deparse / substitute  etc
 17 
> ####  eval / parse / deparse / substitute  etc
17 
>
18 
>
18 
> ##- From: Peter Dalgaard BSA <p.dalgaard@biostat.ku.dk>
 19 
> ##- From: Peter Dalgaard BSA <p.dalgaard@biostat.ku.dk>
19 
> ##- Subject: Re: source() / eval() bug ??? (PR#96)
 20 
> ##- Subject: Re: source() / eval() bug ??? (PR#96)
Line 59... Line 60...
59 
>
60 
>
60 
> ## The first failed in 0.65.0 :
 61 
> ## The first failed in 0.65.0 :
61 
> attach(list(x=1))
 62 
> attach(list(x=1))
62 
> evalq(dim(x) <- 1,as.environment(2))
 63 
> evalq(dim(x) <- 1,as.environment(2))
63 
> dput(get("x", env=as.environment(2)))
 64 
> dput(get("x", env=as.environment(2)))
64 
structure(1, .Dim = 1)
 65 
structure(1, .Dim = as.integer(1))
65 
>
66 
>
66 
> e <- local({x <- 1;environment()})
 67 
> e <- local({x <- 1;environment()})
67 
> evalq(dim(x) <- 1,e)
 68 
> evalq(dim(x) <- 1,e)
68 
> dput(get("x",env=e))
 69 
> dput(get("x",env=e))
69 
structure(1, .Dim = 1)
 70 
structure(1, .Dim = as.integer(1))
70 
>
71 
>
71 
> ### Substitute, Eval, Parse, etc
 72 
> ### Substitute, Eval, Parse, etc
72 
>
73 
>
73 
> ## PR#3 : "..." matching
 74 
> ## PR#3 : "..." matching
74 
> ## Revised March 7 2001 -pd
 75 
> ## Revised March 7 2001 -pd