infile<-'http://datayyy.com/data_R/'
x<-readLines(infile)
a<-grep(".RData",x)
head(a)
print(a)
b<-x[a]
c<-sub("^.*data_R/","", b)
e<-sub(".RData.*$",".RData", c)

print(length(e))