|
《基于R语言的自动数据收集:网络抓取和文本挖掘实用指南》第十章,。其中数据准备方面,如下 > library(RCurl) > library(XML) > library(bitops) > library(stringr) > all_links<- character() > new_results<-"government/announcements?keywords=&announcement_filter_option=all&topics[]=all&departments[]=all&world_locations[]=all&from_date=01/07/2010" > signatures<- system.file("CurlSSL",cainfo="cacert.pem",package ="RCurl") > while(length(new_results)>0){ + new_results <-str_c("https://www.gov.uk/",new_results) + results <-getURL(new_results,cainfo=signature) + results_tree <- htmlParse(results) + all_links <- c(all_links,xpathSApply(results_tree,"//li[@id]//a",xmlGetAttr,"href")) + new_results <-xpathSApply(results_tree,"//nav[@id='show-more-documents']//li[@class='next']//a",xmlGetAttr,"href") + } Error in function(type, msg, asError = TRUE) : error setting certificate verify locations: CAfile: ? CApath: none > signatures [1] "D:/ProgramFiles (x86)/R/R-3.3.0/library/RCurl/CurlSSL/cacert.pem" 有哪位大神可以帮着解决一下这报错啊
|