inst/extdata/testscript.R

# pour tester certaines functions depuis un script
#sink("inst/extdata/log.txt",append=FALSE)
#sink()
vtest <- c(1,2,3,4)
countif(vtest)

sortBy <- function(a, field) a[order(sapply(a, "[", i = field))]
sortBy(a, "day")
gdesve/epifield documentation built on Jan. 23, 2022, 10:03 a.m.