lf = list.files(path="/Users/lees/Site/CHAC/PIX", pattern=".RDATA", full.names=TRUE)
for(i in 1:length(lf))
{
fn = lf[i]
ret = chak(DBnov , gstas, gcomps , fn, stas, kind=2, Iendian=1, BIGLONG=FALSE)
if(ret$but == "QUIT") break
}
Run the code above in your browser using DataLab