The R Project SVN R

Rev

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

Rev 62968 Rev 63202
Line 1... Line 1...
1 
 
 1 
 
2 
R Under development (unstable) (2013-06-04 r62863) -- "Unsuffered Consequences"
 2 
R Under development (unstable) (2013-07-06 r63201) -- "Unsuffered Consequences"
3 
Copyright (C) 2013 The R Foundation for Statistical Computing
 3 
Copyright (C) 2013 The R Foundation for Statistical Computing
4 
Platform: x86_64-unknown-linux-gnu (64-bit)
 4 
Platform: x86_64-unknown-linux-gnu (64-bit)
5 
 
 5 
 
6 
R is free software and comes with ABSOLUTELY NO WARRANTY.
 6 
R is free software and comes with ABSOLUTELY NO WARRANTY.
7 
You are welcome to redistribute it under certain conditions.
 7 
You are welcome to redistribute it under certain conditions.
Line 27... Line 27...
27 
> if(.Platform$OS.type == "unix" &&
 27 
> if(.Platform$OS.type == "unix" &&
28 
+    is.null(nsl("cran.r-project.org"))) q()
 28 
+    is.null(nsl("cran.r-project.org"))) q()
29 
>
29 
>
30 
> # test do_download.
 30 
> # test do_download.
31 
> nrow(available.packages(contrib.url("http://cran.r-project.org")))
 31 
> nrow(available.packages(contrib.url("http://cran.r-project.org")))
32 
[1] 4613
 32 
[1] 4666
33 
>
33 
>
34 
> # test url connections on http
 34 
> # test url connections on http
35 
> zz <- url("http://cran.r-project.org/")
 35 
> zz <- url("http://cran.r-project.org/")
36 
> readLines(zz)
 36 
> readLines(zz)
37 
 [1] "<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML//EN\">"
37 
 [1] "<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML//EN\">"