Распечатать / показать файл JPG в R

Question

При использовании rvest пакет Я пытаюсь напечатать / показать плакат lego_movie в R. Я не могу этого сделать. Вот мои попытки:

library(rvest)
poster <- lego_movie %>%
  html_nodes("#img_primary img") %>%
  html_attr("src")

## 1st attempt
library(jpeg)
jpeg(poster)
dev.off()

## 2nd attempt
readJPEG(poster)
dev.off()

Я думаю, что EBImage имеет display функция. Этот пакет не может быть установлен в R-3.1.2, Показывает предупреждающее сообщение: package ‘EBImage’ is not available (for R version 3.1.2),

Суть моего вопроса: как увидеть файл JPEG в R в качестве дисплея, не используя EBImage пакет?

Несколько связанных вопросов:

Постройте изображение JPG, используя основную графику в R

Как сохранить сюжет в виде изображения на диске?

Answer 1

Вот некоторый стартовый код, на котором вы можете построить:

library(rvest)
library(httr)
library(jpeg)

lego_movie <- html("http://www.imdb.com/title/tt1490017/")

poster <- lego_movie %>%
  html_nodes("#img_primary img") %>%
  html_attr("src")

GET(poster, write_disk("lego.jpg"))
img <- readJPEG("lego.jpg")
plot(1:2, type='n')
rasterImage(img, 1, 1.25, 1.1, 1)