Add assign_events() function

[peterdesmet]

As part of read_camtrapdp(), eventIDs are assigned to the media:

camtrapdp/R/read_camtrapdp.R

Lines 90 to 101 in 472e64e

	# Add eventID to media
	media(x) <-
	dplyr::left_join(
	media(x),
	events(x),
	by = dplyr::join_by(
	"deploymentID",
	"timestamp" >= "eventStart",
	"timestamp" <= "eventEnd"
	)
	) %>%
	dplyr::select(-"eventStart", -"eventEnd")

Users might want to do this again after they have cleaned/altered the observations e.g. with an assign_events() or assign_eventID() function:

• Clear current eventID in media
• Assign new ones based on the code above