tests/test_tagtales.R

In Myfanwy/tagtales: Functions For Summarizing Acoustic and PIT Telemetry Data

library(tagtales)

load("tag_tale_test_df.rda")

# Should work with either characters or columns
a = tag_tales(tag_tale_test_df, "TagID", "GroupedStn", "DateTimePST")
b = tag_tales(tag_tale_test_df, tag_tale_test_df$TagID, tag_tale_test_df$GroupedStn, "DateTimePST")

stopifnot(all.equal(a,b))

stopifnot(nrow(a) == 3)

#----------------------------------------#
# Testing overlapping paths functions

a = tag_tales(tag_tale_test_df, "TagID", "GroupedStn", "DateTimePST", allow_overlap = FALSE)
stopifnot(nrow(a) == 72)