Data with plotly

library(shiny)
library(magrittr)
library(plotly)


ui <- shinyServer(fluidPage(
  plotlyOutput("plot")
))


alarms = c("NodeDown","GrowthRate","DecayRate","DiskFull","ServiceDown","Planned_shutdown","etc.....etc","ServerOutage",
           "No Casue")

server <- shinyServer(function(input, output, session){
  get_new_data <- function(){
    new = sample(alarms,1)
    return(new)
  }
 
  my_data <-reactiveValues(data=get_new_data())
 
  observeEvent(reactiveTimer(2000)(),{ # Trigger every 2 seconds
    my_data$data<-c(get_new_data(),my_data$data)
    print(my_data$data)
  })
 
  output$plot <- renderPlotly({
    dd=as.data.frame(table(my_data$data))
    print(dd)
    plot_ly(dd, x = ~Var1, y = ~Freq)
  })
 
})

shinyApp(ui=ui,server=server)