1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
## These are tests that require a working Internet connection.
## We attempt to test for that on Unix.
if(.Platform$OS.type == "unix" &&
is.null(nsl("cran.r-project.org"))) q()
## As virtually all http sites redirect to https:, we only test the latter
# test do_download (and "record" #{packages}):
ap <- available.packages(contrib.url("https://cran.r-project.org"))
## IGNORE_RDIFF_BEGIN
nrow(ap)
## IGNORE_RDIFF_END
# test url connections
zz <- url("https://cran.r-project.org/")
readLines(zz)
close(zz)
# and via read.table, using an r-project.org site
read.table("https://developer.R-project.org/inet-tests/ch11b.dat")
showConnections(all = TRUE)
|
