求助R数据挖掘，getNodeSet函数的正则表达式怎么写？

lvzhp06

3242

收藏 2015-09-20

悬赏 100 个论坛币未解决

查找下面这一段代码，url<-"http://www.renrendai.com/lend/loanList.action"
url.html<-htmlParse(url,encoding="UTF-8")
xpath<-"//*/script[@id='loan-list-rsp']"url.node<-getNodeSet(url.html,xpath)

这么写这能找到下面这么一大段，可是我只想找到其中
短期周转，购买车，以及其他的一些数据等。
能不能把这些信息提取出来，或者直接定位到这个地方呢？

<script id="loan-list-rsp" type="text/x-json">{"status":0,"data":{"loans":[{"loanId":741749.0,"title":"短期周转","picture":"","amount":39500.0,"interest":10.5,"months":18.0,"loanType":"DEBX","status":"IN_PROGRESS","allowAccess":false,"utmSource":"debx-as","openTime":"Sep 11, 2015 3:37:19 PM","startTime":"Sep 27, 2015 3:39:50 PM","readyTime":"Sep 20, 2015 3:40:10 PM","passTime":"Sep 20, 2015 3:51:44 PM","surplusAmount":0.0,"finishedRatio":100.0,"repaidByGuarantor":false,"borrowerId":2280194.0,"forbidComment":false,"nickName":"131276.as","borrowerLevel":"A","displayLoanType":"JGDB","currentIsRepaid":false,"amountPerShare":0.0,"oldLoan":false,"interestPerShare":0.0,"principal":0.0,"leftMonths":18.0,"overDued":false,"beginBidTime":"Sep 20, 2015 3:39:50 PM","productId":32.0},{"loanId":741799.0,"title":"购买车","picture":"","amount":28100.0,"interest":11.0,"months":24.0,"loanType":"DEBX","status":"IN_PROGRESS","allowAccess":false,"utmSource":"debx-as","openTime":"Sep 11, 2015 3:40:08 PM","startTime":"Sep 27, 2015 3:40:13 PM","readyTime":"Sep 20, 2015 3:40:21 PM","passTime":"Sep 20, 2015 3:51:37 PM","surplusAmount":0.0,"finishedRatio":100.0,"repaidByGuarantor":false,"borrowerId":2280254.0,"forbidComment":false,"nickName":"131327.as","borrowerLevel":"A","displayLoanType":"JGDB","currentIsRepaid":false,"amountPerShare":0.0,"oldLoan":false,"interestPerShare":0.0,"principal":0.0,"leftMonths":24.0,"overDued":false,"beginBidTime":"Sep 20, 2015 3:40:13 PM","productId":32.0},{"loanId":741798.0,"title":"扩大经