The R Project SVN R

Rev

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

Rev 20083 Rev 24481
Line 57... Line 57...
57 
        data <- paste(data, read.socket(a, maxlen = len - nchar(data)),
 57 
        data <- paste(data, read.socket(a, maxlen = len - nchar(data)),
58 
                      sep = "")
 58 
                      sep = "")
59 
    }
 59 
    }
60 
    strsplit(data, "\n")[[1]]
 60 
    strsplit(data, "\n")[[1]]
61 
}
 61 
}
- 
 
 62 
 
- 
 
 63 
if(nchar(Sys.getenv("http_proxy")) > 0
- 
 
 64 
   || nchar(Sys.getenv("HTTP_PROXY")) > 0) {
- 
 
 65 
    cat("http proxy is set, so skip test of http over sockets\n")
- 
 
 66 
} else {
62 
httpget("http://www.stats.ox.ac.uk/pub/datasets/csb/ch11b.dat")
 67 
    httpget("http://www.stats.ox.ac.uk/pub/datasets/csb/ch11b.dat")
- 
 
 68 
}
63 
 
 69 
 
64 
finger <- function(user, host = "localhost", port = 79, print = TRUE)
 70 
finger <- function(user, host = "localhost", port = 79, print = TRUE)
65 
{
 71 
{
66 
    if (!is.character(user))
 72 
    if (!is.character(user))
67 
        stop("user name must be a string")
 73 
        stop("user name must be a string")