将base64解码为光栅答案

【问题标题】：decode base64 to a raster将base64解码为光栅
【发布时间】：2019-11-29 06:11:58
【问题描述】：

这是一个相当不典型的场景，我在 PowerBI 中使用 R 自定义视觉对象来绘制栅格，而传递数据的唯一方法是使用数据框。

这是我到目前为止所做的，在 R 中生成栅格使用 SaveRDS 将其保存到文件将文件编码为 base64 并将其保存为 csv。

现在使用此代码，我设法读取 csv，将其加载到数据帧中并结合所有行

我的问题是如何将其解码回光栅对象？

这是一个可重现的例子

# Input load. Please do not change #
`dataset` = read.csv('https://raw.githubusercontent.com/djouallah/keplergl/master/raster.csv', check.names = FALSE, encoding = "UTF-8", blank.lines.skip = FALSE);
# Original Script. Please update your script content here and once completed copy below section back to the original editing window #
library(caTools)
library(readr)
dataset$Value <- as.character(dataset$Value)
dataset <- dataset[order(dataset$Index),]
z <- paste(dataset$Value)
Raster <- base64decode(z,"raw")

这是结果

【问题讨论】：

saveRDS(y, "myFile.rds") ?
相关帖子：stackoverflow.com/q/21370132/680068
powerBI无法保存，需要读取内存中的Y

标签： r r-raster rdata

【解决方案1】：

原来解决方法很简单，saveRDS 有一个选项可以用 ascii = TRUE 保存

saveRDS(background,'test.rds',ascii = TRUE,compress = FALSE)

现在我只是将其读取为 humain readbale 格式（很容易加载到 PowerBI）并且它可以工作

fil <- 'https://raw.githubusercontent.com/djouallah/keplergl/master/test.rds'

cony <- gzcon(url(fil))

XXX <- readRDS(cony,refhook = NULL)
plotRGB(XXX)

【讨论】：