我正在尝试使用Shiny + gridSVG构建应用程序。这个问题经常发生,我对此一无所知。
我的服务器
library(grid)
library(lattice)
library(gridSVG)
shinyServer(function(input, output) {
data = reactive({
inFile = input$file1
if (is.null(inFile))
return(NULL)
read.csv(inFile$datapath, header=input$header,
sep=input$sep, quote=input$quote)
})
featurelist = reactive({
return (colnames(data()))
})
output$classUI = renderUI({
selectInput("classlabel","Classify by:", featurelist())
})
output$svg.grid = reactive({
dat = data()
features = featurelist()
#group = dat[,c(which(features == input$classlabel))]
subsetted.features = features[-c(which(features == input$classlabel))]
#classlabel.level = levels(group)
xyplot.out = xyplot(subsetted.features[1] ~ subsetted.features[2]|input$classlabel,
data = dat
)
tempsvg <- tempfile(fileext=".svg")
on.exit(unlink(tempsvg))
gridToSVG(name=tempsvg)
svgoutput <- readLines(tempsvg, n=-1)
svgoutput
})
})
这是我的js:
<script>
var networkOutputBinding = new Shiny.OutputBinding();
$.extend(networkOutputBinding, {
find: function(scope) {
return $(scope).find('.shiny-network-output');
},
renderValue: function(el, data) {
$(el).html(data.join(''));
}
});
Shiny.outputBindings.register(networkOutputBinding, 'timelyportfolio.networkbinding');
</script>
控制台中的错误消息是:
Error in grobToDev.default(gTree, dev) : We shouldn't be here!
有人知道原因吗?
最佳答案
我不知道为什么,但是我有相同的错误消息并通过执行以下操作解决了该问题:
退出RStudio。
更新到R的最新版本(在我的情况下为3.2)
重新启动RStudio
重新安装gridSVG软件包
问题消失了。
顺便说一句:这是重新安装软件包的一种好方法:http://www.r-bloggers.com/automated-re-install-of-packages-for-r-3-0/
关于rstudio-server - grobToDev.default(gTree,dev)中的错误,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/17255207/