首先，你需要安装R语言的rvest包，这个包可以用来抓取网页信息。你可以使用以下命令安装：
```R
install.packages("rvest")
```
接下来，你需要创建一个函数，这个函数用于处理代理信息。你可以使用以下代码：
```R
get_proxy <- function() {
proxy_host <- "www.duoip.cn"
proxy_port <- 8000
proxy <- list(
http = paste0("http://", proxy_host, ":", proxy_port),
https = paste0("https://", proxy_host, ":", proxy_port)
)
return(proxy)
}
```
然后，你需要创建一个函数，这个函数用于抓取网页信息。你可以使用以下代码：
```R
get_content <- function(url) {
proxy <- get_proxy()
page <- read_html(url, proxy)
return(page)
}
```
最后，你可以调用get_content函数来抓取网页信息。你可以使用以下代码：
```R
url <- "http://www.aimaike.com"
page <- get_content(url)
```以上就是一个简单的R语言爬虫程序的基本框架。你可以根据需要来修改这个程序，例如添加错误处理代码，或者处理抓取到的网页信息。请注意，使用爬虫程序时需要遵守相关法律法规，尊重网站的使用条款，并避免对网站服务器造成过大的压力。如果你不确定是否可以使用某个网站的爬虫程序，建议先来联系网站的管理员或查看网站的使用条款。