Add more occurrence data filtering steps

[soriadelva]

• [ ] BasisOfRecord: use the same rationale to filter these data as is already present in trias (coordinatecleaner) (i.e., remove specimens from museums,...)
• [ ] IdentificationVerificationStatus: to_discard <- c( "unverified", "unvalidated","not able to validate", "control could not be conclusive due to insufficient knowledge") see (https://github.com/trias-project/occ-cube/blob/main/src/2_create_db.Rmd)