Estou usando brilhante e não consigo exibir um gráfico plotado. Estava aparecendo antes, não sei o que mudou.

MRE:

global.r (ou coloque isso em 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 versão 3.2.3

versão brilhante 13.0

shinydashbaord 0.5.1

2.0.16

ambiente vazio

Notei que quando executo o código acima, recebo um erroError in gregexpr(calltext, singleline, fixed = TRUE) : regular expression is invalid UTF-8.

Após uma investigação mais aprofundada comdebug(gregexpr)Eu vejo isso

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\")"

Não tenho certeza do que fazer disso. Existe realmente algum código secreto que deveria estar modificando uma string que é avaliada posteriormente para uma função?

Encontrei outro programa em que o gráfico de plotagem é bom. gregrexpr () nunca é chamado. Olhando para o HTML gerado, o problemático tem isso sob estilo

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

enquanto os visíveis têm

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

então eu imagino que isso esteja relacionado (embora a direção da causa seja desconhecida ...)