哪位R语言大神能知道怎样通过一个循环函数实现网页在R中不断导入，执行下列程序？？？如何通过循环函数实行

#for
addr <- 'http://www.dianping.com/shop/2248828/review_all?pageno=1'#此处如何切换10页网址实现循环
web <- readLines(addr, encoding = 'UTF-8')
web <- paste(web, collapse = '')
pt <-"<span title=\"\" class=\"item-rank-rst irr-star(\\d{2})\"></span>"
out <- gregexpr(pt, web)
out <- unlist(lapply(out, getcontent, web))
out <- gsub(pt, '\\1', out)