R/latest.R

`latest` <-
function(x)as.character(
  tapply(
    x,
    INDEX=dirname(dirname(x)),
    FUN=function(group)rev(sort(group))[[1]]
  )
)
anniejw6/metrumrg documentation built on May 10, 2019, 11:50 a.m.