Golden Cheetah : Ajout Tuiles

{
  KM_TO_MILES <- 1/1.609;
  rides <- aggregate(metrics(Distance)*KM_TO_MILES, metrics(date), max);
  n <- length(rides);
  E <- 0;
  above <- 0;
  H <- c();
  r <- 0;
  while (r < n)
    {
      ride <- ceil(rides[r]);
      if (ride > E)
        {
          above <- above+1;
          if (ride < n)
            {
              H[ride] <- H[ride]+1;
            }
            if (above > E)
              {
                E <- E+1;
                above <- above - H[E];
              }
        }
        r <- r + 1;
    }
    E;
}

{


# column names
names {
dates <- (1900+floor(metrics(date)/365.25));
years <- uniq(dates);
sort(descend, years);
}

# values to display as doubles
values { 
dates <- (1900+floor(metrics(date)/365.25));
rides <- floor(aggregate(metrics(Distance), dates, sum));
years <- uniq(dates);
multisort(descend, years, rides);
rides;
} 

}

Today - tail(res_dates,1);

datestring(tail(res_dates,1));

{
keyword <- "chaine";
# array of activities' date
dates <- metrics(date);
# array of activities' distance, work, wcode
distances <- metrics(Distance);
works <- metrics(Work);
wcodes <- metadata("Workout Code");
# distance, date, work since the last workout code containing keyword
res_distances <- c();
res_dates <- c();
res_works <- c();
# temporary values for iterating and summing
tmp_dist <- 0;
tmp_date <- dates[0];
tmp_work <- works[0];
i <- 1;
while (i <= length(distances)) {
tmp_dist <- tmp_dist + distances[i-1];
tmp_work <- tmp_work + works[i-1];
if(wcodes[i] contains keyword) {
append(res_distances, tmp_dist);
append(res_dates, tmp_date);
append(res_works, tmp_work);
tmp_dist <- 0;
tmp_work <- 0;
tmp_date <- dates[i];
}
i <- i+1;
} # end while
append(res_distances, tmp_dist);
append(res_dates, tmp_date);
# Uncomment if Result is the sum of distances
# round(tail(res_distances,1));
# Uncomment if Result is the sum of works
# round(tail(res_works,1));
# Uncomment if Result is the sum of days
# round(tail(res_dates,1));
# Uncomment if result is the nb of days since the last keyword
# Today - tail(res_dates,1);
# Uncomment if result is the 
# last date string since the last workout code containing keyword
datestring(tail(res_dates,1));
}