Следующий код работает нормально:
library(rvest)
url <- "https://www.billboard.com/charts/hot-100"
html <- read_html(url)
, но я не могу заставить его работать с этим URL:
url <- "https://sec.report/Ticker/ZTS"
html <- read_html(url)
Что дает мне:
{html_document}
<html class="" lang="">
[1] <head>\n<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">\n<meta charset="utf- 8">\n<meta http-equiv="X-UA-Compati ...
[2] <body class="chart-page chart-page-" data-trackcategory="Charts-TheHot100" data-content-type="chart">\n<div class="header-wrapper " ...
Если вы посмотрите на этот сайт, он загрузится примерно за 5 секунд, затем предоставит данные. Я всегда получаю
Error in open.connection(x, "rb") : HTTP error 503.
Я надеюсь использовать этот URL для получения кода NAICS для любого биржевого тикера, который я вставил в URL
Возможно ли это?