R3.0.0上的grid.raster和jpeg问题

以下代码为我提供了两个不同

R

版本的不同输出

R 2.5.3

#R version 2.15.3 (2013-03-01)
#Platform: x86_64-w64-mingw32/x64 (64-bit)

r <- matrix(runif(9, 0, 1), 3)
g <- matrix(runif(9, 0, 1), 3)
b <- matrix(runif(9, 0, 1), 3)

col <- rgb(r, g, b)
dim(col) <- dim(r)

library(grid)

> jpeg(filename="image.jpg")
> grid.raster(col, interpolate=FALSE)
> dev.off()
windows 
      2 

> grid.raster(col, interpolate=FALSE)

在

R 3.0.0

中，

jpeg

给出了上述错误，但也

网格。光栅似乎不起作用：

 > grid.raster(col, interpolate=FALSE)

提供一个完全白色（或透明）的图像。你能复制一下吗

NB：如果我通过
RStudio
打开R，我可以使用
jpeg
但是
网格。光栅仍然不工作，所以我有办法

> dev.off()
null device 
          1

在
image.jpg中没有任何内容
我无法重现您的错误，因为我有相同的R/系统配置。我使用
knitr
在不同的设备上测试
grid.graster
输出。这里是我的Mrakdown文件代码：

```{r}
set.seed(1)
r <- matrix(runif(9, 0, 1), 3)
g <- matrix(runif(9, 0, 1), 3)
b <- matrix(runif(9, 0, 1), 3)
col <- rgb(r, g, b)
dim(col) <- dim(r)
```
```{r,dev='jpeg'}
library(grid)
grid.raster(col, interpolate=FALSE)
```
```{r,dev='png'}
grid.raster(col, interpolate=FALSE)
```
```{r,dev='pdf'}
grid.raster(col, interpolate=FALSE)
```

`{r}
种子（1）
在
r版本3.0.0（2013-04-03）下，r对我来说运行良好；平台：x86_64-w64-mingw32/x64（64位）
。为了让你的例子重现，你也应该设定一个种子。也许是时候重新安装R。。。。
```{r}
set.seed(1)
r <- matrix(runif(9, 0, 1), 3)
g <- matrix(runif(9, 0, 1), 3)
b <- matrix(runif(9, 0, 1), 3)
col <- rgb(r, g, b)
dim(col) <- dim(r)
```
```{r,dev='jpeg'}
library(grid)
grid.raster(col, interpolate=FALSE)
```
```{r,dev='png'}
grid.raster(col, interpolate=FALSE)
```
```{r,dev='pdf'}
grid.raster(col, interpolate=FALSE)
```