Vistime / plotly chart in R - how to add points to existing chart?

Question

I have a plot in R that I\'ve built using plotly/vistime:

library(vistime)
library(plotly)
data <- read.csv(text="event,group,start,end,color,line.col