Extract the AphiaID from the first row of each worms_records tibble

This function extracts the AphiaID from the first row of a given worms_records tibble. If the tibble is empty, it returns NA.

extract_aphia_id(record)

Arguments

record

A tibble containing worms_records with at least an 'AphiaID' column.

Value

A numeric value representing the AphiaID of the first row in the tibble, or NA if the tibble is empty.

Examples

# Example usage:
record <- tibble::tibble(AphiaID = c(12345, 67890))
iRfcb:::extract_aphia_id(record)
#> [1] 12345

empty_record <- tibble::tibble(AphiaID = numeric(0))
iRfcb:::extract_aphia_id(empty_record)
#> [1] NA