read_html()没有在R中获取NES股票网站的HTML

Question

我一直在尝试刮TATAMOTORS股票价格从NSE(国家证券交易所)网站在R使用软件包rvest。我在其中创建了一个可变的nes_link存储网址。并创建另一个变量nes_page，并在其中赋值read_html(nes_link)，但在控制台中没有响应。

码

library(rvest)
library(dplyr)
library(tidyverse)

nes_link <- "https://www.nseindia.com/get-quotes/equity?symbol=TATAMOTORS"

nes_page <- read_html(nes_link)

price_day1 <- nes_page %>% 
  html_nodes("span#quoteLtp") %>% 
  html_text()`

Answer 1

由于网站使用JavaScript，而rvest不使用，所以您应该使用RSelenium。

在你的外壳中：

docker run -d -p 4444:4444 -p 7900:7900 --shm-size="2g" selenium/standalone-firefox

然后在R：

library(tidyverse)
library(RSelenium)

remDr <- remoteDriver$new(
  remoteServerAddr = "localhost",
  port = 4444
)

remDr$open()

remDr$navigate("https://www.nseindia.com/get-quotes/equity?symbol=TATAMOTORS")

remDr$findElement("span#quoteLtp", using = "css")$getElementText()[[1]] %>%
as.numeric()

请检查本网站是否允许刮网。