[R-es] Pantallazos al actualizar graficos

[Jesús Para Fernández]

Buenas,

Estoy intantando hacer un grafico que se actualice cada segundo en R, usando ggplot2 y shiny. Los datos los obtengo de una consulta SQL, pero el problema que tengo es que el tiempo que transcurre al hacer la consulta, el grafico da como un flash, y se vuelve a cdargar entero (no solo los puntos).

El codigo, simulando el tiempo de la consulta con un Sys.sleep, es este:

#---------------------------------------------------------------------------

library(ggplot2)
library(shiny)

ui <- fluidPage(
plotOutput("grafico")
)
server <- function(input,output){
datos <- reactive({
invalidateLater(1000)
Sys.sleep(1)
data.frame(x=c(1:100),y=rnorm(100,2,3))
})

output$grafico <- renderPlot({
datos <- datos()
ggplot(datos,aes(x,y))+geom_point()+ylim(0,100)

})

}

shinyApp(ui,server)
#---------------------------------------------------------------------------

¿Cómo puedo evitar esos flashes?

[[alternative HTML version deleted]]