I get an error when trying to post the gchart file. So here's the code for the 2019 series:
{
init {
xx<-c();
yy<-c();
FullYear<-seq(43464,43464+364,1);
activities<-0;
}
activity {
# as we iterate over activities
activities <- activities + 1;
}
finalise {
# we just fetch metrics at the end
ActivityDates <- metrics(date, "2019/01/01","2019/12/31");
ActivityDistances <- metrics(Distance,"2019/01/01","2019/12/31");
# make a 365 long vector out of ActivityDistances
# append distances and Dates
Dates <- c(FullYear+0.2,ActivityDates-0.2);
AnnualDistance <- c(rep(0,365),ActivityDistances);
# sort and unique Distances and Dates by Dates
multisort(ascend, Dates, AnnualDistance);
Dates<- round(Dates);
multiuniq(Dates, AnnualDistance);
yy <- cumsum(AnnualDistance);
}
x { Dates+365; }
y { yy; }
}