在R中打印/显示JPG文件

Question

使用rvest软件包时，我试图在R中打印/显示lego_movie海报。我没有这样做。这是我的尝试：

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)。

我的问题的底线是：如何在不使用EBImage软件包的情况下将R中的jpeg文件显示为显示器？

几个相关的问题：

使用R中的基本图形绘制JPG图像

如何将绘图作为图像保存在磁盘上？

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)