Question

我正在尝试使用闪亮的+ gridSVG构建应用。这个问题不断发生，我不知道。

我的服务器.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
  })

})

这是我的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!

有人知道原因吗？

Answer 1

我无法理解为什么，但我有相同的错误信息并通过执行以下操作解决了这个问题：

退出RStudio。
更新到最新版本的R（在我的情况下，这是3.2）
重新启动RStudio
重新安装gridSVG软件包

问题消失了。

BTW：这是一种重新安装软件包的简洁方法：http://www.r-bloggers.com/automated-re-install-of-packages-for-r-3-0/

Answer 2

我也遇到了这个问题（没有闪亮;我只是想把一个情节输出到SVG），我不知道为什么 - 但对我来说只有当我打电话给grid.export时才会这样在我的脚本中。如果我重新显示我的情节并以交互方式再次调用它，它运行正常。我猜是否会出现某种环境差异？

grobToDev.default（gTree，dev）出错

2 个答案: