s*********e
发帖数: 1051 | 1 steal from page 23 in "data manangment with R"
> rpage = url(’http://www.r-project.org/main.shtml’,’r’)
> while(1){
+ l = readLines(rpage,1)
+ if(length(l) == 0)break;
+ if(regexpr(’has been released’,l) > -1){
+ ver = sub(’
+ print(gsub(’^ *’,’’,ver))
+ break
+ }
+ } |
|
