The R Project SVN R

Rev

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

Rev 68898 Rev 71177
Line 2... Line 2...
2 
## We attempt to test for that.
 2 
## We attempt to test for that.
3 
 
 3 
 
4 
if(.Platform$OS.type == "unix" &&
 4 
if(.Platform$OS.type == "unix" &&
5 
   is.null(nsl("cran.r-project.org"))) q()
 5 
   is.null(nsl("cran.r-project.org"))) q()
6 
 
 6 
 
7 
# test do_download.
 7 
# test do_download (and "record" #{packages}):
8 
nrow(available.packages(contrib.url("http://cran.r-project.org")))
 8 
ap <- available.packages(contrib.url("http://cran.r-project.org"))
- 
 
 9 
## IGNORE_RDIFF_BEGIN
- 
 
 10 
nrow(ap)
- 
 
 11 
## IGNORE_RDIFF_END
9 
 
 12 
 
10 
# test url connections on http
 13 
# test url connections on http
11 
zz <- url("http://cran.r-project.org/")
 14 
zz <- url("http://cran.r-project.org/")
12 
readLines(zz)
 15 
readLines(zz)
13 
close(zz)
 16 
close(zz)