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 ...)