各位大神好：
   求问如下报错应怎么解决？
library(RCurl)
library(XML)
try = data.frame()
# i是页数，可根据实际情况进行调整
for (i in 1:10) {
  urli = paste("http://swh.speiyou.com/search/index/grade:1/subject:/level:bx/term:/period:0/teaid:/m:/d:/time:/bg:n/nu:/service:/curpage:", i)
  webi = getURL(urli, .encoding = "utf-8")
  htmi = htmlParse(webi, encoding = "utf-8")
  # 标题、链接
  nodi = getNodeSet(htmi, path = "//div[@class='s-r-list']")
  biaoti = sapply(nodi, function(X) xmlGetAttr(X, "title"))
  Encoding(biaoti) = "GB2312"
   try = rbind(try, data.frame(biaoti,stringsAsFactors = FALSE))

  Sys.sleep(1)
  }


报错：Error in `Encoding<-`(`*tmp*`, value = "GB2312") : 需要字符矢量参数