The R Project SVN R

Rev

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

Rev 72597 Rev 72599
Line 71... Line 71...
71 
 
 71 
 
72 
## --------------------------------------------------------------
 72 
## --------------------------------------------------------------
73 
## Some platforms have problems with certificates,
 73 
## Some platforms have problems with certificates,
74 
## so allow them to skip the https tests
 74 
## so allow them to skip the https tests
75 
junk <- tryCatch(curlGetHeaders("http://bugs.r-project.org"),
 75 
junk <- tryCatch(curlGetHeaders("http://bugs.r-project.org"),
76 
                 error = function(e) q())
 76 
                 error = function(e) {
- 
 
 77 
			 message("Check for working https failed:\n\t",
- 
 
 78 
				 conditionMessage(e),
- 
 
 79 
				 "skipping https tests\n")
- 
 
 80 
			 q()
- 
 
 81 
		 })
77 
 
 82 
 
78 
example(curlGetHeaders, run.donttest = TRUE)
 83 
example(curlGetHeaders, run.donttest = TRUE)
79 
 
 84 
 
80 
## https URL
 85 
## https URL
81 
head(readLines(zz <- url("https://httpbin.org", method = "libcurl"),
 86 
head(readLines(zz <- url("https://httpbin.org", method = "libcurl"),