From 91a1ac6be46ce0878b048a04ef2ba1655ff588d8 Mon Sep 17 00:00:00 2001 From: EmmaCartuyvels1 Date: Tue, 27 Feb 2024 16:43:23 +0100 Subject: [PATCH] Update markdown zandstreek --- source/markdown/steekproefontwerp_zandstreek.Rmd | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/source/markdown/steekproefontwerp_zandstreek.Rmd b/source/markdown/steekproefontwerp_zandstreek.Rmd index a43e6781..255f14b7 100644 --- a/source/markdown/steekproefontwerp_zandstreek.Rmd +++ b/source/markdown/steekproefontwerp_zandstreek.Rmd @@ -38,7 +38,7 @@ mbag_dir <- here() source(here("source", "R", "steekproefkader.R")) source(here("source", "R", "berekening_hulpvariabelen.R")) source(here("source", "R", "wfs_wcs.R")) -targets_store <- here("source", "targets", "mas_steekproef_zl_lm_za_kp_po", "_targets") +targets_store <- here("source", "targets", "mas_steekproef_za_kp_po", "_targets") ``` # Vooraf @@ -54,9 +54,9 @@ Dat bestand kan je openen met de volgende code: ## Perimeter bepalen -Om de perimeter te bepalen voer je onderstaande code uit in mas_steekproef_zn_lm.Rproj, na laden van globals in targets_steekproef_zL_lm_za_kp_po.Rmd. +Om de perimeter te bepalen voer je onderstaande code uit in mas_steekproef_za_kp_po.Rproj, na laden van globals in targets_steekproef_za_kp_po.Rmd. -De code maakt een intersectie tussen landbouwstreek Zandstreek (heel België) en contour Vlaanderen en voegt deze toe aan file "zandleemstreek_perimeters.gpkg". +De code maakt een intersectie tussen landbouwstreek Zandstreek (heel België) en contour Vlaanderen en voegt deze toe aan file "za_kp_po_perimeters.gpkg". ```{r, class.source = "fold-show", eval=FALSE} # library(sf) @@ -68,17 +68,17 @@ De code maakt een intersectie tussen landbouwstreek Zandstreek (heel België) en # "Lbstrbel.shp")) |> # st_transform(crs = 31370) # -# # Behoud polders +# # Behoud zandstreek # vlaanderen <- read_sf("S:/Vlaanderen/Grenzen/Administratief/Vlaanderen_met_kust_EEZ.shp") |> # st_transform(crs = 31370) # -# kemp_vlaanderen <- st_intersection(landbouwstreken, vlaanderen) |> +# zand_vlaanderen <- st_intersection(landbouwstreken, vlaanderen) |> # filter(NAAM == "Zandstreek") |> # mutate(section = NA) |> # select(Naam = NAAM, section, geom = geometry) # -# st_write(obj = kemp_vlaanderen, -# dsn = path_to_perimeters("zl_lm_za_kp_po_perimeters.gpkg"), +# st_write(obj = zand_vlaanderen, +# dsn = path_to_perimeters("za_kp_po_perimeters.gpkg"), # append = TRUE) ```