R 将base64解码为光栅

这是一个相当不典型的场景，我在PowerBI中使用R Custom visual绘制光栅，传递数据的唯一方法是使用数据帧

这就是我到目前为止所做的， 在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")

#输入负载。请不要换衣服#
`数据集`=read.csv（'https://raw.githubusercontent.com/djouallah/keplergl/master/raster.csv，check.names=FALSE，encoding=“UTF-8”，blank.lines.skip=FALSE）；
#原稿。请在此处更新脚本内容，完成后将下面的部分复制回原始编辑窗口#
图书馆（caTools）
图书馆（readr）
dataset$Value事实证明，解决方案非常简单，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)

fil
saveRDS（y，“myFile.rds”）
相关帖子：我无法在powerBI中保存，我需要在内存中读取y