Displaying 1 result from an estimated 1 matches for "endmsg".
Did you mean:
sendmsg
2007 Dec 08
1
FW: R memory management
...con2 <- socketConnection(Sys.info()["nodename"], port = ****) #open
socket connection to get data
writeLines(paste(command,',',tickers[y],',',interval,';',sep=''), con2)
data.<-readLines(con2)
end.of.data<-sum(c(data.=="!ENDMSG!",data.=="!SYNTAX_ERROR!"))
while(end.of.data!=1)
{new.data<-readLines(con2);end.of.data<-sum(new.data=="!ENDMSG!");
data.<-c(data.,new.data)}
if (length(data.)>3)
write.table(data.[1:(length(data.)-2)],paste(Working.dir,exchanges.to.get[x]
,'/...