在 R 中使用 pagedown 包函数 chrome_print() 转换为 pdf

如何解决在 R 中使用 pagedown 包函数 chrome_print() 转换为 pdf

这是我的代码：

library(rvest)
library(pagedown)

getStackQuestions <- function(search) {
  stackoverflow <- read_html(paste0('https://stackoverflow.com/questions/tagged/',search,'?tab=Votes&pagesize=30'))
  questions <- stackoverflow %>% html_nodes(".question-hyperlink:not(.mb0)")
  question.href <- questions %>% html_attr('href')
  question.text <- questions %>% html_text()
  questions <- data.frame( text = question.text,href = paste0("https://stackoverflow.com",question.href))
  questions
}

mylinks <- getStackQuestions('tidyverse')
mylinks$href %>% map( ~ .x %>% chrome_print(format = 'pdf'))

我想使用我的函数将问题转换为 pdf：getStackQuestions

但是当我将 tidyverse 设置为参数时就可以了。但是，例如，当我设置 r-markdown 时它不起作用，我收到以下错误消息：Error in force(expr) : Failed to generate output. Reason: Failed to open https://graph.facebook.com/10205362244709870/picture?type=large (HTTP status code: 400)

我做错了什么？

有什么帮助吗？