Displaying 1 result from an estimated 1 matches for "rsockread".
Did you mean:
nsock_read
2012 Apr 04
1
read.socket utils package : somthing is going wrong
...loop = FALSE)
debug: {
if (length(port <- as.integer(socket$socket)) != 1L)
stop("invalid 'socket' argument")
maxlen <- as.integer(maxlen)
buffer <- paste(rep.int("#", maxlen), collapse = "")
repeat {
tmp <- .C("Rsockread", port, buffer = buffer, len = maxlen,
PACKAGE = "base")
rval <- substr(tmp$buffer, 1L, tmp$len)
if (nzchar(rval) || !loop)
break
}
rval
}
everything works fine up to .C("Rsockread", port, buffer = buffer, len =
maxlen,...