Update timelineR.R

Agregrada la función writeEvent