el gráfico gráfico no aparece

Estoy usando brillo y no puedo hacer que aparezca un gráfico de trazado. Aparecía antes, no sé qué cambió.

MRE:

global.r (o poner esto en 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 versión 3.2.3

versión brillante 13.0

shinydashbaord 0.5.1

plotly 2.0.16

ambiente vacio

Noté que cuando ejecuto el código anterior, recibo un errorError in gregexpr(calltext, singleline, fixed = TRUE) : regular expression is invalid UTF-8.

Tras una investigación más a fondo condebug(gregexpr), Veo esto

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

No estoy seguro de qué hacer con eso. ¿Realmente hay algún código oculto que se supone que está modificando una cadena que luego se evalúa como una función?

Encontré otro programa que tengo donde el gráfico de trazado se ve bien. gregrexpr () nunca se llama. Mirando el HTML generado, el problemático tiene esto bajo estilo

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

mientras que los visibles tienen

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

así que imagino que esto está relacionado (aunque la dirección de causalidad es desconocida ...)