From 88f0e1990bc561bab15fb72069985ca523f7f233 Mon Sep 17 00:00:00 2001
From: florisvdh <floris.vanderhaeghe@inbo.be>
Date: Fri, 12 Jan 2024 09:51:12 +0100
Subject: [PATCH] expand_types(): fix wrong condition in adding 6230 (hn, not
 hnk must be present)

---
 R/datawrangling.R   | 4 ++--
 man/expand_types.Rd | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/R/datawrangling.R b/R/datawrangling.R
index e5d7f1b..7469c18 100644
--- a/R/datawrangling.R
+++ b/R/datawrangling.R
@@ -31,7 +31,7 @@
 #' \item{for 2330: both subtype codes must be present}
 #' \item{for 5130: 5130_hei must be present (note that only the main type code
 #' occurs in the targeted data sources)}
-#' \item{for 6230: 6230_ha, 6230_hmo and 6230_hnk must be present
+#' \item{for 6230: 6230_ha, 6230_hmo and 6230_hn must be present
 #' (not the rare 6230_hnk)}
 #' \item{for 91E0: 91E0_va, 91E0_vm and 91E0_vn must be present
 #' (not the rarer 91E0_sf, 91E0_vc and 91E0_vo)}
@@ -210,7 +210,7 @@ expand_types_plain <- function(x,
       subtypes %>%
       filter(.data$main_type == "2330" |
         .data$type %in% c(
-          "6230_ha", "6230_hmo", "6230_hnk",
+          "6230_ha", "6230_hmo", "6230_hn",
           "5130_hei",
           "91E0_va", "91E0_vm", "91E0_vn"
         )) %>%
diff --git a/man/expand_types.Rd b/man/expand_types.Rd
index 3b18e98..3d2d638 100644
--- a/man/expand_types.Rd
+++ b/man/expand_types.Rd
@@ -58,7 +58,7 @@ to be met:
 \item{for 2330: both subtype codes must be present}
 \item{for 5130: 5130_hei must be present (note that only the main type code
 occurs in the targeted data sources)}
-\item{for 6230: 6230_ha, 6230_hmo and 6230_hnk must be present
+\item{for 6230: 6230_ha, 6230_hmo and 6230_hn must be present
 (not the rare 6230_hnk)}
 \item{for 91E0: 91E0_va, 91E0_vm and 91E0_vn must be present
 (not the rarer 91E0_sf, 91E0_vc and 91E0_vo)}