The R Project SVN R

Rev

Rev 84394 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 84394 Rev 84631
Line 12... Line 12...
12 
try(url("http://foo.bar", "r"))
 12 
try(url("http://foo.bar", "r"))
13 
 
 13 
 
14 
if(onWindows)
 14 
if(onWindows)
15 
    try(url("http://foo.bar", "r", method = "wininet"))
 15 
    try(url("http://foo.bar", "r", method = "wininet"))
16 
 
 16 
 
- 
 
 17 
## available.packages() (not) caching in case of errors
- 
 
 18 
tools::assertWarning(ap1 <- available.packages(repos = "http://foo.bar"))
- 
 
 19 
tools::assertWarning(ap2 <- available.packages(repos = "http://foo.bar"))
- 
 
 20 
stopifnot(nrow(ap1) == 0, identical(ap1, ap2))
- 
 
 21 
## had failed for a while in R-devel (left empty *.rds file)
- 
 
 22 
 
17 
## download.file(.. , headers = character()) - PR#17710
 23 
## download.file(.. , headers = character()) - PR#17710
18 
## https://bugs.r-project.org/show_bug.cgi?id=17710
 24 
## https://bugs.r-project.org/show_bug.cgi?id=17710
19 
## character() should be the same as NULL, but was not for wininet
 25 
## character() should be the same as NULL, but was not for wininet
20 
tf <- tempfile()
 26 
tf <- tempfile()
21 
download.file("https://cloud.r-project.org/src/base/THANKS", destfile = tf,
 27 
download.file("https://cloud.r-project.org/src/base/THANKS", destfile = tf,