Я использую блестящий, и я не могу получить график графически. Это появлялось раньше, я не знаю, что изменилось.

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

шинидашбаорд 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, проблемный имеет это под стиль

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

тогда как видимые имеют

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

так что я предполагаю, что это связано (хотя направление причинно-следственной связи неизвестно ...)