verwijder veld Habitattype.y in resultaat (fixes #206)

inbo · Feb 11, 2025 · 09435a7 · 09435a7
1 parent ba3875b
commit 09435a7
Show file tree

Hide file tree

Showing 9 changed files with 36 additions and 40 deletions.
diff --git a/R/berekenLSVIbasis.R b/R/berekenLSVIbasis.R
@@ -368,7 +368,8 @@ berekenLSVIbasis <- #nolint: object_name_linter
     Resultaat <-
       Data_habitat %>%
       left_join(
-        Invoervereisten,
+        Invoervereisten %>%
+          select(-"Habitattype"),
         by = c("Habitattype" = "Habitatsubtype"),
         relationship = "many-to-many"
       )
@@ -681,7 +682,6 @@ berekenLSVIbasis <- #nolint: object_name_linter
         .data$ID,
         .data$Habitattype,
         .data$Versie,
-        .data$Habitattype.y,
         .data$Criterium,
         .data$Indicator,
         .data$Beoordeling,
@@ -771,7 +771,6 @@ berekenLSVIbasis <- #nolint: object_name_linter
         .data$Habitattype,   #en hier zouden extra gegevens uit Data_habitat
                              #moeten toegevoegd worden
         .data$Versie,
-        .data$Habitattype.y,
         .data$Criterium,
         .data$Indicator,
         .data$Beoordeling,
@@ -801,7 +800,6 @@ berekenLSVIbasis <- #nolint: object_name_linter
             .data$Habitattype,   #en hier zouden extra gegevens uit Data_habitat
                                   #moeten toegevoegd worden
             .data$Versie,
-            .data$Habitattype.y,
             .data$Criterium,
             .data$Indicator,
             .data$Beoordeling,

diff --git a/inst/tests/testthat/test_berekenLSVIbasis.R b/inst/tests/testthat/test_berekenLSVIbasis.R
@@ -1567,7 +1567,6 @@ describe("berekenLSVIbasis", {
                   "Matig?(Waarschijnlijk soorten over het hoofd gezien)"
                 ),
               Versie = "Versie 2.0",
-              Habitattype.y = "4030",
               Criterium = "Vegetatie",
               Indicator = "sleutelsoorten",
               Beoordeling =

diff --git a/inst/tests/testthat/test_berekenLSVIbasis_speciallekes.R b/inst/tests/testthat/test_berekenLSVIbasis_speciallekes.R
@@ -28,7 +28,6 @@ describe("twee voorwaarden vergelijken", {
         ID = "1",
         Habitattype = "1330_hpr",
         Versie = "Versie 2.0",
-        Habitattype.y = "1330",
         Criterium = "Verstoring",
         Indicator = "overgang naar rbbzil",
         Beoordeling =
@@ -78,7 +77,7 @@ describe("twee voorwaarden vergelijken", {
       ),
       Resultaat %>%
         select(
-          ID, Habitattype, Versie, Habitattype.y, Criterium, Indicator,
+          ID, Habitattype, Versie, Criterium, Indicator,
           Beoordeling, Belang, Kwaliteitsniveau
         ) %>%
         mutate(

diff --git a/inst/tests/testthat/test_berekenLSVIbasis_vegetatielaag.R b/inst/tests/testthat/test_berekenLSVIbasis_vegetatielaag.R
@@ -62,7 +62,7 @@ describe("berekenLSVIbasis vegetatielaag", {
             col_types =
               list(
                 col_character(), col_character(), col_character(),
-                col_character(), col_character(), col_character(),
+                col_character(), col_character(),
                 col_character(), col_character(), col_character(),
                 col_integer(), col_logical(), col_double()
               )
@@ -77,7 +77,7 @@ describe("berekenLSVIbasis vegetatielaag", {
             col_types =
               list(
                 col_character(), col_character(), col_character(),
-                col_character(), col_character(), col_character(),
+                col_character(), col_character(),
                 col_character(), col_character(), col_integer(),
                 col_character(), col_character(), col_character(),
                 col_character(), col_character(), col_character(),

diff --git a/inst/vbdata/Resultaat_test2330_dw.Rdata b/inst/vbdata/Resultaat_test2330_dw.Rdata
diff --git a/inst/vbdata/Resultaat_test4030.Rdata b/inst/vbdata/Resultaat_test4030.Rdata
diff --git a/inst/vbdata/Resultaat_test4030v2.Rdata b/inst/vbdata/Resultaat_test4030v2.Rdata
diff --git a/inst/vbdata/Resultaat_test_bosv2/Resultaat_detail.csv b/inst/vbdata/Resultaat_test_bosv2/Resultaat_detail.csv
@@ -1,17 +1,17 @@
-"";"ID";"Habitattype";"Versie";"Habitattype.y";"Criterium";"Indicator";"Beoordeling";"Kwaliteitsniveau";"Belang";"Voorwaarde";"Referentiewaarde";"Operator";"EenheidRefwaarde";"TypeRefwaarde";"InvoertypeRevwaarde";"Waarde";"TypeWaarde";"InvoertypeWaarde";"EenheidWaarde";"AfkomstWaarde";"TheoretischMaximum";"Status_voorwaarde";"Verschilscore"
-"1";"1";"9190";"Versie 2.0";"9190";"Structuur";"aandeel dood hout";"B: 4-10%";1;"b";"aandeel dood hout";"4";">=";"%";"Percentage";NA;"3";"Percentage";NA;"%";"observatie";100;FALSE;-0,25
-"2";"1";"9190";"Versie 2.0";"9190";"Structuur";"bosconstantie";"B: 100-200 jaar";1;"zb";"bosconstantie";"100";">=";NA;"Geheel getal";NA;"90";"Geheel getal";NA;NA;"observatie";250;FALSE;-0,1
-"3";"1";"9190";"Versie 2.0";"9190";"Structuur";"hoeveelheid dik dood hout";"B: 1-3 exemplaren/ha of > 3, maar diameterverdeling lager dan die van de levende bomen";1;"zb";"aantal exemplaren dik dood hout per ha";"1";">=";NA;"Decimaal getal";NA;"1";"Decimaal getal";NA;NA;"observatie";3;TRUE;0
-"4";"1";"9190";"Versie 2.0";"9190";"Structuur";"horizontale structuur - groeiklassen";"B: '3 of meer groeiklassen aanwezig en klasse 7 afwezig' of 'minder dan 3 groeiklassen aanwezig en klasse 7 aanwezig'";1;"b";"aantal groeiklassen aanwezig";"3";">=";NA;"Geheel getal";NA;"4";"Geheel getal";NA;NA;"berekend";7;TRUE;0,25
-"5";"1";"9190";"Versie 2.0";"9190";"Structuur";"horizontale structuur - groeiklassen";"B: '3 of meer groeiklassen aanwezig en klasse 7 afwezig' of 'minder dan 3 groeiklassen aanwezig en klasse 7 aanwezig'";1;"b";"groeiklasse 7 aanwezig";"1";">=";NA;"Geheel getal";NA;"0";"Geheel getal";NA;NA;"berekend";1;FALSE;-1
-"6";"1";"9190";"Versie 2.0";"9190";"Structuur";"horizontale structuur - natuurlijke mozaiekstructuur";"B: mozaïekstructuur met grootte-orde 0,3-1 ha, cfr. femelslagstructuur";1;"b";"schaalgrootte ingrepen (ha)";"1";"<";"ha";"Decimaal getal";NA;"0,2";"Decimaal getal";NA;"ha";"observatie";3;TRUE;0,8
-"7";"1";"9190";"Versie 2.0";"9190";"Structuur";"horizontale structuur - natuurlijke mozaiekstructuur";"B: mozaïekstructuur met grootte-orde 0,3-1 ha, cfr. femelslagstructuur";1;"b";"natuurlijke mozaïekstructuur";"1";"=";NA;"Ja/nee";NA;"1";"Ja/nee";NA;NA;"observatie";1;TRUE;1
-"8";"1";"9190";"Versie 2.0";"9190";"Structuur";"minimum structuurareaal";"B: >= MSA";1;"zb";"MSA";"50";">=";"ha";"Decimaal getal";NA;"60";"Decimaal getal";NA;NA;"observatie";150;TRUE;0,1
-"9";"1";"9190";"Versie 2.0";"9190";"Structuur";"verticale structuur";"B: alle vegetatielagen aanwezig, minstens 1 minder dan abundant";1;"b";"aantal vegetatielagen aanwezig";"3";">=";NA;"Geheel getal";NA;"3";"Geheel getal";NA;NA;"berekend";3;TRUE;1
-"10";"1";"9190";"Versie 2.0";"9190";"Vegetatie";"sleutelsoorten van de boom- en struiklaag";"B: >= 70 en < 90% grondvlak, of >= 90% met slechts 1 soort die minstens 10% inneemt (b.v. homogene beuken-of eikenbestanden)";1;"b";"grondvlak sleutelsoorten boom- en struiklaag";"70";">=";"%";"Percentage";NA;"97.5609756097561";"Percentage";NA;"%";"berekend";100;TRUE;0,91869918699187
-"11";"1";"9190";"Versie 2.0";"9190";"Vegetatie";"sleutelsoorten van de kruidlaag";"B: 30-70% bedekking en >3 soorten of >= 30% bedekking en 4-6 soorten";1;"b";"aandeel sleutelsoorten kruidlaag";"30";">=";"%";"Percentage";NA;"86.637084034866";"Percentage";NA;"%";"berekend";100;TRUE;0,809101200498086
-"12";"1";"9190";"Versie 2.0";"9190";"Vegetatie";"sleutelsoorten van de kruidlaag";"B: 30-70% bedekking en >3 soorten of >= 30% bedekking en 4-6 soorten";1;"b";"aantal sleutelsoorten kruidlaag";"3";">";NA;"Geheel getal";NA;"3";"Geheel getal";NA;NA;"berekend";9;FALSE;0
-"13";"1";"9190";"Versie 2.0";"9190";"Verstoring";"invasieve exoten";"B: < 10 %";1;"b";"bedekking invasieve exoten";"10";"<";"%";"Percentage";NA;"0";"Percentage";NA;"%";"berekend";100;TRUE;1
-"14";"1";"9190";"Versie 2.0";"9190";"Verstoring";"ruderalisering";"B: < 10%";1;"zb";"bedekking ruderalisering";"10";"<";"%";"Percentage";NA;"6.90000000000001";"Percentage";NA;"%";"berekend";100;TRUE;0,309999999999999
-"15";"1";"9190";"Versie 2.0";"9190";"Verstoring";"vergrassing";"B: <= 30%";1;"zb";"bedekking vergrassing";"30";"<=";"%";"Percentage";NA;"30";"Percentage";NA;"%";"berekend";100;TRUE;0
-"16";"1";"9190";"Versie 2.0";"9190";"Verstoring";"verruiging";"B: 10-30%";1;"zb";"bedekking verruiging";"30";"<=";"%";"Percentage";NA;"0";"Percentage";NA;"%";"berekend";100;TRUE;1
+"";"ID";"Habitattype";"Versie";"Criterium";"Indicator";"Beoordeling";"Kwaliteitsniveau";"Belang";"Voorwaarde";"Referentiewaarde";"Operator";"EenheidRefwaarde";"TypeRefwaarde";"InvoertypeRevwaarde";"Waarde";"TypeWaarde";"InvoertypeWaarde";"EenheidWaarde";"AfkomstWaarde";"TheoretischMaximum";"Status_voorwaarde";"Verschilscore"
+"1";"1";"9190";"Versie 2.0";"Structuur";"aandeel dood hout";"B: 4-10%";1;"b";"aandeel dood hout";"4";">=";"%";"Percentage";NA;"3";"Percentage";NA;"%";"observatie";100;FALSE;-0,25
+"2";"1";"9190";"Versie 2.0";"Structuur";"bosconstantie";"B: 100-200 jaar";1;"zb";"bosconstantie";"100";">=";NA;"Geheel getal";NA;"90";"Geheel getal";NA;NA;"observatie";250;FALSE;-0,1
+"3";"1";"9190";"Versie 2.0";"Structuur";"hoeveelheid dik dood hout";"B: 1-3 exemplaren/ha of > 3, maar diameterverdeling lager dan die van de levende bomen";1;"zb";"aantal exemplaren dik dood hout per ha";"1";">=";NA;"Decimaal getal";NA;"1";"Decimaal getal";NA;NA;"observatie";3;TRUE;0
+"4";"1";"9190";"Versie 2.0";"Structuur";"horizontale structuur - groeiklassen";"B: '3 of meer groeiklassen aanwezig en klasse 7 afwezig' of 'minder dan 3 groeiklassen aanwezig en klasse 7 aanwezig'";1;"b";"aantal groeiklassen aanwezig";"3";">=";NA;"Geheel getal";NA;"4";"Geheel getal";NA;NA;"berekend";7;TRUE;0,25
+"5";"1";"9190";"Versie 2.0";"Structuur";"horizontale structuur - groeiklassen";"B: '3 of meer groeiklassen aanwezig en klasse 7 afwezig' of 'minder dan 3 groeiklassen aanwezig en klasse 7 aanwezig'";1;"b";"groeiklasse 7 aanwezig";"1";">=";NA;"Geheel getal";NA;"0";"Geheel getal";NA;NA;"berekend";1;FALSE;-1
+"6";"1";"9190";"Versie 2.0";"Structuur";"horizontale structuur - natuurlijke mozaiekstructuur";"B: mozaïekstructuur met grootte-orde 0,3-1 ha, cfr. femelslagstructuur";1;"b";"schaalgrootte ingrepen (ha)";"1";"<";"ha";"Decimaal getal";NA;"0,2";"Decimaal getal";NA;"ha";"observatie";3;TRUE;0,8
+"7";"1";"9190";"Versie 2.0";"Structuur";"horizontale structuur - natuurlijke mozaiekstructuur";"B: mozaïekstructuur met grootte-orde 0,3-1 ha, cfr. femelslagstructuur";1;"b";"natuurlijke mozaïekstructuur";"1";"=";NA;"Ja/nee";NA;"1";"Ja/nee";NA;NA;"observatie";1;TRUE;1
+"8";"1";"9190";"Versie 2.0";"Structuur";"minimum structuurareaal";"B: >= MSA";1;"zb";"MSA";"50";">=";"ha";"Decimaal getal";NA;"60";"Decimaal getal";NA;NA;"observatie";150;TRUE;0,1
+"9";"1";"9190";"Versie 2.0";"Structuur";"verticale structuur";"B: alle vegetatielagen aanwezig, minstens 1 minder dan abundant";1;"b";"aantal vegetatielagen aanwezig";"3";">=";NA;"Geheel getal";NA;"3";"Geheel getal";NA;NA;"berekend";3;TRUE;1
+"10";"1";"9190";"Versie 2.0";"Vegetatie";"sleutelsoorten van de boom- en struiklaag";"B: >= 70 en < 90% grondvlak, of >= 90% met slechts 1 soort die minstens 10% inneemt (b.v. homogene beuken-of eikenbestanden)";1;"b";"grondvlak sleutelsoorten boom- en struiklaag";"70";">=";"%";"Percentage";NA;"97.5609756097561";"Percentage";NA;"%";"berekend";100;TRUE;0,91869918699187
+"11";"1";"9190";"Versie 2.0";"Vegetatie";"sleutelsoorten van de kruidlaag";"B: 30-70% bedekking en >3 soorten of >= 30% bedekking en 4-6 soorten";1;"b";"aandeel sleutelsoorten kruidlaag";"30";">=";"%";"Percentage";NA;"86.637084034866";"Percentage";NA;"%";"berekend";100;TRUE;0,809101200498086
+"12";"1";"9190";"Versie 2.0";"Vegetatie";"sleutelsoorten van de kruidlaag";"B: 30-70% bedekking en >3 soorten of >= 30% bedekking en 4-6 soorten";1;"b";"aantal sleutelsoorten kruidlaag";"3";">";NA;"Geheel getal";NA;"3";"Geheel getal";NA;NA;"berekend";9;FALSE;0
+"13";"1";"9190";"Versie 2.0";"Verstoring";"invasieve exoten";"B: < 10 %";1;"b";"bedekking invasieve exoten";"10";"<";"%";"Percentage";NA;"0";"Percentage";NA;"%";"berekend";100;TRUE;1
+"14";"1";"9190";"Versie 2.0";"Verstoring";"ruderalisering";"B: < 10%";1;"zb";"bedekking ruderalisering";"10";"<";"%";"Percentage";NA;"6.90000000000001";"Percentage";NA;"%";"berekend";100;TRUE;0,309999999999999
+"15";"1";"9190";"Versie 2.0";"Verstoring";"vergrassing";"B: <= 30%";1;"zb";"bedekking vergrassing";"30";"<=";"%";"Percentage";NA;"30";"Percentage";NA;"%";"berekend";100;TRUE;0
+"16";"1";"9190";"Versie 2.0";"Verstoring";"verruiging";"B: 10-30%";1;"zb";"bedekking verruiging";"30";"<=";"%";"Percentage";NA;"0";"Percentage";NA;"%";"berekend";100;TRUE;1
diff --git a/inst/vbdata/Resultaat_test_bosv2/Resultaat_indicator.csv b/inst/vbdata/Resultaat_test_bosv2/Resultaat_indicator.csv
@@ -1,14 +1,14 @@
-"";"ID";"Habitattype";"Versie";"Habitattype.y";"Criterium";"Indicator";"Beoordeling";"Belang";"Kwaliteitsniveau";"Status_indicator";"Verschilscore"
-"1";"1";"9190";"Versie 2.0";"9190";"Structuur";"aandeel dood hout";"B: 4-10%";"b";1;FALSE;-0,25
-"2";"1";"9190";"Versie 2.0";"9190";"Structuur";"bosconstantie";"B: 100-200 jaar";"zb";1;FALSE;-0,1
-"3";"1";"9190";"Versie 2.0";"9190";"Structuur";"hoeveelheid dik dood hout";"B: 1-3 exemplaren/ha of > 3, maar diameterverdeling lager dan die van de levende bomen";"zb";1;TRUE;0
-"4";"1";"9190";"Versie 2.0";"9190";"Structuur";"horizontale structuur - groeiklassen";"B: '3 of meer groeiklassen aanwezig en klasse 7 afwezig' of 'minder dan 3 groeiklassen aanwezig en klasse 7 aanwezig'";"b";1;TRUE;0,25
-"5";"1";"9190";"Versie 2.0";"9190";"Structuur";"horizontale structuur - natuurlijke mozaiekstructuur";"B: mozaïekstructuur met grootte-orde 0,3-1 ha, cfr. femelslagstructuur";"b";1;TRUE;1
-"6";"1";"9190";"Versie 2.0";"9190";"Structuur";"minimum structuurareaal";"B: >= MSA";"zb";1;TRUE;0,1
-"7";"1";"9190";"Versie 2.0";"9190";"Structuur";"verticale structuur";"B: alle vegetatielagen aanwezig, minstens 1 minder dan abundant";"b";1;TRUE;1
-"8";"1";"9190";"Versie 2.0";"9190";"Vegetatie";"sleutelsoorten van de boom- en struiklaag";"B: >= 70 en < 90% grondvlak, of >= 90% met slechts 1 soort die minstens 10% inneemt (b.v. homogene beuken-of eikenbestanden)";"b";1;TRUE;0,91869918699187
-"9";"1";"9190";"Versie 2.0";"9190";"Vegetatie";"sleutelsoorten van de kruidlaag";"B: 30-70% bedekking en >3 soorten of >= 30% bedekking en 4-6 soorten";"b";1;FALSE;0
-"10";"1";"9190";"Versie 2.0";"9190";"Verstoring";"invasieve exoten";"B: < 10 %";"b";1;TRUE;1
-"11";"1";"9190";"Versie 2.0";"9190";"Verstoring";"ruderalisering";"B: < 10%";"zb";1;TRUE;0,309999999999999
-"12";"1";"9190";"Versie 2.0";"9190";"Verstoring";"vergrassing";"B: <= 30%";"zb";1;TRUE;0
-"13";"1";"9190";"Versie 2.0";"9190";"Verstoring";"verruiging";"B: 10-30%";"zb";1;TRUE;1
+"";"ID";"Habitattype";"Versie";"Criterium";"Indicator";"Beoordeling";"Belang";"Kwaliteitsniveau";"Status_indicator";"Verschilscore"
+"1";"1";"9190";"Versie 2.0";"Structuur";"aandeel dood hout";"B: 4-10%";"b";1;FALSE;-0,25
+"2";"1";"9190";"Versie 2.0";"Structuur";"bosconstantie";"B: 100-200 jaar";"zb";1;FALSE;-0,1
+"3";"1";"9190";"Versie 2.0";"Structuur";"hoeveelheid dik dood hout";"B: 1-3 exemplaren/ha of > 3, maar diameterverdeling lager dan die van de levende bomen";"zb";1;TRUE;0
+"4";"1";"9190";"Versie 2.0";"Structuur";"horizontale structuur - groeiklassen";"B: '3 of meer groeiklassen aanwezig en klasse 7 afwezig' of 'minder dan 3 groeiklassen aanwezig en klasse 7 aanwezig'";"b";1;TRUE;0,25
+"5";"1";"9190";"Versie 2.0";"Structuur";"horizontale structuur - natuurlijke mozaiekstructuur";"B: mozaïekstructuur met grootte-orde 0,3-1 ha, cfr. femelslagstructuur";"b";1;TRUE;1
+"6";"1";"9190";"Versie 2.0";"Structuur";"minimum structuurareaal";"B: >= MSA";"zb";1;TRUE;0,1
+"7";"1";"9190";"Versie 2.0";"Structuur";"verticale structuur";"B: alle vegetatielagen aanwezig, minstens 1 minder dan abundant";"b";1;TRUE;1
+"8";"1";"9190";"Versie 2.0";"Vegetatie";"sleutelsoorten van de boom- en struiklaag";"B: >= 70 en < 90% grondvlak, of >= 90% met slechts 1 soort die minstens 10% inneemt (b.v. homogene beuken-of eikenbestanden)";"b";1;TRUE;0,91869918699187
+"9";"1";"9190";"Versie 2.0";"Vegetatie";"sleutelsoorten van de kruidlaag";"B: 30-70% bedekking en >3 soorten of >= 30% bedekking en 4-6 soorten";"b";1;FALSE;0
+"10";"1";"9190";"Versie 2.0";"Verstoring";"invasieve exoten";"B: < 10 %";"b";1;TRUE;1
+"11";"1";"9190";"Versie 2.0";"Verstoring";"ruderalisering";"B: < 10%";"zb";1;TRUE;0,309999999999999
+"12";"1";"9190";"Versie 2.0";"Verstoring";"vergrassing";"B: <= 30%";"zb";1;TRUE;0
+"13";"1";"9190";"Versie 2.0";"Verstoring";"verruiging";"B: 10-30%";"zb";1;TRUE;1