Question

我使用闪亮的，我无法获得一个情节图。它出现在之前，我不知道发生了什么变化。

MRE：

global.r（或将其放入server.r）

library(shinydashboard)
library(plotly)

server.r

shinyServer(function(input, output, session) {

  output$plotlyGraph <- renderPlotly({
    input$regraph
    print("graphing...")
    return(plot_ly(list(blank = 0)))
  })

})

ui.r

    dashboardPage(
      dashboardHeader(title = "The Title"),
      dashboardSidebar(
        actionButton("regraph", "graph again")
      ),
      dashboardBody(
        box(plotlyOutput("plotlyGraph"))
      )
    )

R版本3.2.3

闪亮版13.0

shinydashbaord 0.5.1

情节2.0.16

空的环境

我注意到当我运行上面的代码时，出现错误Error in gregexpr(calltext, singleline, fixed = TRUE) : regular expression is invalid UTF-8.

在对debug(gregexpr)进行进一步调查后，我看到了这个

Called from: inherits(x, "ggplot")
debugging in: gregexpr(calltext, singleline, fixed = TRUE)
debug: {
    if (!is.character(text)) 
        text <- as.character(text)
    .Internal(gregexpr(as.character(pattern), text, ignore.case, 
        perl, fixed, useBytes))
}
Browse[2]> text
[1] "function (x) inherits(x, \"ggplot\")"

不知道该怎么做。是否真的有一些底层代码应该修改一个后来被评估为函数的字符串？

我找到了另一个程序，其中情节图呈现良好。永远不会调用gregrexpr（）。查看生成的HTML，有问题的HTML在样式

下具有此功能

width: 100%; height: 400px; visibility: hidden;

而可见的那些

width: 100%; height: 400px; visibility: inherit;

所以我想这是相关的（虽然因果关系方向未知......）

Answer 1

renderPlotly({
return(plot_ly(x))
})

坏了。

renderPlotly(plot_ly(x))

作品。

要在渲染绘图之前做更多工作，请执行类似

的操作

renderPlotly(yourFunctThatGeneratesAPlotly(input$Whatever))

情节图没有显示出来

1 个答案: