※ 引述《Wush978 (拒看低质媒体)》之铭言：
: ※ 引述《dppman (*^o^*)》之铭言：
: : 我试了repeat：
: : repeat {
: : m = hdfs.read(f)
: : c = rawToChar(m)
: : print(c)
: : if ( is.null(c) ) break
: : }
: : 可是跑好久还没跑完...
: : 我是用Web版的RStudio开发，看了一下m的type是raw...
: : Sorry..我只剩C还在脑中有，R实在跟他不熟....
: : 不知道是否有人可以指点一下...，这样的写法是否OK？怎么增加效能呢？
: : Thanks in advance!
: :
: 建议你先测量一下throughput
: ```r
: start.time <- Sys.time()
: repeat {
: m = hdfs.read(f)
: duration <- as.numeric(difftime(Sys.time(), start.time, unit = "secs"))
: print(length(m) / duration) # 每秒的bytes数
: start.time <- Sys.time()
: }
: ```
: 先看一下hdfs.read的效能，如果throughput是1MB / s的速度的话
: 20G 需要 20*2^30 / 2^20 秒，大约是5.6小时
: