correct previous commit

Author: RCinbo

source/bookdown/_template_habitats.Rmd

@@ -309,7 +309,7 @@ habs <- status_indicatoren %>%
 for (habt in habs) {
   d <- status_indicatoren %>%
     filter(habitattype == habt) %>%
-    filter(type_resultaat %in% c("Habitattype")) %>%
+    filter(type_resultaat %in% c("Habitattype"))
   plot_ht <- d %>% ggplot(aes(x = indicator, 
                y = aandeel_gunstig/100, 
                shape = belang,