diff --git a/sql/dwc_occurrence.sql b/sql/dwc_occurrence.sql index 8004b91..3e9442b 100644 --- a/sql/dwc_occurrence.sql +++ b/sql/dwc_occurrence.sql @@ -102,6 +102,7 @@ SELECT WHEN o."Sporen Waarnemingen Naam" = 'Watercrassula' THEN 'Crassula helmsii' WHEN o."Sporen Waarnemingen Naam" = 'Moerashyacint' THEN 'Pontederia cordata' WHEN o."Sporen Waarnemingen Naam" = 'Moerasanemoon' THEN 'Houttuynia cordata' + WHEN o."Sporen Waarnemingen Naam" = 'Gele maskerbloem' THEN 'Mimulus guttatus DC.' -- Animalia WHEN o."Sporen Waarnemingen Naam" = 'Muskusrat' THEN 'Ondatra zibethicus' WHEN o."Sporen Waarnemingen Naam" = 'Muskusr. > 400gr' THEN 'Ondatra zibethicus' @@ -176,7 +177,8 @@ SELECT o."Sporen Waarnemingen Naam" = 'Afghaanse duizendknoop' OR o."Sporen Waarnemingen Naam" = 'Watercrassula' OR o."Sporen Waarnemingen Naam" = 'Moerashyacint' OR - o."Sporen Waarnemingen Naam" = 'Moerasanemoon' THEN 'Plantae' + o."Sporen Waarnemingen Naam" = 'Moerasanemoon' OR + o."Sporen Waarnemingen Naam" = 'Gele maskerbloem' THEN 'Plantae' ELSE 'Animalia' END AS kingdom FROM occurrences AS o diff --git a/tests/test_dwc_occurrence.R b/tests/test_dwc_occurrence.R index d69cbaf..22b14ae 100644 --- a/tests/test_dwc_occurrence.R +++ b/tests/test_dwc_occurrence.R @@ -182,7 +182,8 @@ testthat::test_that("scientificName is never NA and one of the list", { "Koenigia polystachya", "Crassula helmsii", "Pontederia cordata", - "Houttuynia cordata" + "Houttuynia cordata", + "Mimulus guttatus DC." ) testthat::expect_true(all(!is.na(dwc_occurrence$scientificName))) testthat::expect_true(all(dwc_occurrence$scientificName %in% species))