我要爬取的链接是：http://ts.21cn.com/home/search?keyword=%E6%9C%89%E5%93%81%E9%92%B1%E5%8C%85
但是从R中跳转到网页的时候网址就变成了：http://ts.21cn.com/home/search?keyword=%E9%8F%88%E5%A4%8A%E6%90%A7%E9%96%BD%E5%8D%9E%E5%AF%98



我的编码是：
library(rvest)
library(stringr)
url <- 'http://ts.21cn.com/home/search?keyword=%E6%9C%89%E5%93%81%E9%92%B1%E5%8C%85'
web <- read_html(url,encoding="UTF-8") #读取信息
course.link <- web %>% html_nodes('div.complaint-info a._blank') %>% html_attrs()#获取属性
link <- c(1:length(course.link))#定义长度
for(i in c(1:length(course.link))){link <- course.link[][1]}#获取link_中的每一行中第一个数据（网址）

title <- web %>% html_nodes('div.complaint-info a._blank') %>% html_text()

现在无法读取网页数据，不知道怎么处理这个网页问题？