library(tidyverse)
palliX=7
ui <- fluidPage(
    plotOutput("tahvel1")
)
server <- function(input, output){
    uuendus <- reactiveTimer(1000)
    output$tahvel1 <- renderPlot({
        uuendus()
        palliX <<- palliX+1
        tibble(x=c(0, palliX), y=0) %>% ggplot(aes(x, y)) + geom_point()
    })
}
shinyApp(ui = ui, server = server)