Have line color match fill color in vistime/plotly timeline in R

Question

I have a very simple timeline I\'ve created using the vistime library in R:

data <- read.csv(text="event,group,start,end,color