Вы можете попробовать следующий код:
library(httr)
library(jsonlite)
library(rvest)
library(tidyverse)
headers = c(
'User-Agent' = 'Mozilla/5.0',
'Accept' = 'text/javascript, application/javascript, application/ecmascript, application/x-ecmascript, */*; q=0.01',
'X-Requested-With' = 'XMLHttpRequest',
'Accept-Language' = 'en-US,en;q=0.5'
)
r <- httr::GET(url = 'https://www.imdb.com/chart/top/', httr::add_headers(.headers=headers))
read_html(r) %>% html_nodes('td.titleColumn a') %>% html_text()
Надеюсь, этот ответ поможет.