嗨，有人可以在这里帮助我吗？ 从网站中仅提取一个数字需要5秒钟以上。有没有一种更快的方法可以从网站提取该市盈率？
library(rvest)
library(zoo)
library(stringr)
library(magrittr)
my.url <- 'https://www.ishares.com/us/products/239726/ishares-core-sp-500-etf'
my.xpath <- '//*[@id="fundamentalsAndRisk"]/div[1]/div[1]/span[2]'
my.node <- html_nodes(read_html(my.url), xpath = my.xpath) %>%
html_text()
pe1 <- as.numeric(str_extract_all(my.node, "[0-9].+")[[1]])