Я пытаюсь создать приложение с блестящим + gridSVG. Эта проблема возникала постоянно, и я понятия не имею об этом.Ошибка в grobToDev.default (gTree, dev)
Мои server.R:
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
})
})
это мой ЯШ:
<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!
ли какой-либо один знает причину ?