inst/data_raw/Runners/add_id_to_Runners.R

In mosaicCalc: R-Language Based Calculus Operations for Teaching

# add a unique ID to each runner.
# This relies on the ordering of the original <Runners>
library(mosaicCalc)
# Runners is without ID.
load("Runners.rda")
#put an ID number
firsts <- Runners %>% filter(previous==0) %>% mutate(id = paste0("A", row_number()))

all_id <- with(firsts, rep(id, nruns))

Runners <- Runners %>% mutate(id = all_id)

# save(Runners, file="data/Runners.rda")