Use restyle to add some points after initial render

restyle.R

library(plotly)
library(htmlwidgets)

plot_ly(x = c(1, 2), y = c(1, 2)) %>%
  onRender(
    'function(el, x) { 
      setTimeout(function() {
        var gd = document.getElementById(el.id);
        var obj = {"mode": "markers"};
        for (var i = 0; i < 10; i++) {
          var j = i + 2;
          var x = "x[" + j + "]";
          var y = "y[" + j + "]";
          // iteration values
          obj[x] = [j];
          // likelihood
          obj[y] = [Math.random()];
          Plotly.restyle(gd, obj);
        }
      }, 1000)
    }')