긁어

Question

내가, 내가 rvest 및 RCurl하지만 두 경우 모두를 시도

https://www.mcxindia.com/market-data/spot-market-price

아래 페이지에서 테이블을 추출하기 위해 도착 페이지를 원하는 rvest 또는 RCurl 또는 HTTR를 사용하여 R의 페이지 다운로드 한 내용이 브라우저에서 보는 것과 다릅니다. 나는 감지하거나 어떤 도움을 주시면 감사하겠습니다

에 따라 드릴 수 없습니다 리디렉션의 형태가 가정입니다

PS :

: phantomjs

이것은 내가 지금까지 시도 무엇에 관심이 없음

1 HTTR

base_url <- "https://www.mcxindia.com/market-data/spot-market-price" ua <- "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/60.0.3112.113 Safari/537.36 Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8" library(httr) library(XML) doc <- POST(base_url,user_agent(ua),set_cookies(`_ga` = "GA1.2.543290785.1505100652",`_gid`="GA1.2.1409943545.1505881384",`_gat`="1")) doc <- htmlParse(doc) poptable<-readHTMLTable(doc,which=7) 

결과

: 데이터 없음 !!!!

2 RCurl

library(RCurl) curl <- getCurlHandle() curlSetOpt(curl = curl, ssl.verifypeer = FALSE, useragent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/60.0.3112.113 Safari/537.36 Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8", timeout = 60, followlocation = TRUE, cookiejar = "./cookies", cookiefile = "./cookies") newDoc = getURL("https://www.mcxindia.com/market-data/spot-market-price", curl=curl) newDoc <- htmlParse(newDoc) poptable<-readHTMLTable(newDoc,which=7) 

결과

: 데이터 없음 !!!!

또한 나는 (작은 엑셀 아이콘이 표시)

Answer 1

여기

library(rvest) 
library(stringi) 
library(V8) 

    ctx <- v8() 
    pg <- read_html("https://www.mcxindia.com/market-data/spot-market-price") 
    html_nodes(pg, xpath=".//script[contains(., 'Data')]")[[1]] %>% 
    html_text() %>% stri_unescape_unicode() %>% stri_replace_all_fixed('\\\\', '')%>% 
    ctx$eval() -> ignore_the_blank_return_value 
    data <- ctx$get("vSMP")$Data[,c("Symbol","TodaysSpotPrice","Unit")] 

즐기 대답을있는 엑셀 파일을 얻는 방법을 알고 관심을 가질 것입니다!