[R-es] Pantallazos al actualizar graficos

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?