From 4484c32209b03a199510df24db6f172aa26bccd7 Mon Sep 17 00:00:00 2001
From: Sander Devisscher
Date: Wed, 7 Aug 2024 17:13:03 +0200
Subject: [PATCH 01/22] Create aggregate_lineparts_sf.r
#23
---
R/aggregate_lineparts_sf.r | 164 +++++++++++++++++++++++++++++++++++++
1 file changed, 164 insertions(+)
create mode 100644 R/aggregate_lineparts_sf.r
diff --git a/R/aggregate_lineparts_sf.r b/R/aggregate_lineparts_sf.r
new file mode 100644
index 0000000..4e02d3d
--- /dev/null
+++ b/R/aggregate_lineparts_sf.r
@@ -0,0 +1,164 @@
+#' Connect seperate line parts to one line
+#'
+#' This function takes a sf object with seperate line parts and connects them to one line.
+#' The function is based on the st_union function from the sf package.
+#' The function is designed to work with sf objects that have a column with unique
+#' identifiers for the seperate line parts.
+#' The function will connect the line parts based on the unique identifier.
+#'
+#' @param sf_data A sf object with seperate line parts
+#' @param sf_id A character string with the name of the column with unique identifiers
+#'
+#' @return A sf object with connected line parts
+#'
+#' @family spatial
+#' @export
+#' @author Sander Devisscher
+#'
+#' @examples
+#' \dontrun{
+#' # create a sf object with 2 line parts with the same id with wgs84 as crs
+#' sf_data <- st_sfc(st_linestring(matrix(c(0,0,1,1), ncol = 2)),
+#' st_linestring(matrix(c(1,1,2,2), ncol = 2))) %>%
+#' st_sf(sf_id = c("a", "a"))
+#'
+#' # connect the line parts
+#' sf_data_connected <- aggregate_lineparts_sf(sf_data, "sf_id")
+#'
+#' # plot the connected line parts & the seperate line parts
+#' plot(sf_data)
+#' plot(sf_data_connected)
+#' }
+
+aggregate_lineparts_sf <- function(sf_data,
+ sf_id){
+
+ # check if sf_data is a sf object
+ if(!inherits(sf_data, "sf")){
+ stop("sf_data is not a sf object")
+ }
+
+ # check if sf_id is a character string
+ if(!is.character(sf_id)){
+ warning("sf_id is not a character string >> converting to character string")
+ sf_id <- as.character(sf_id)
+ }
+
+ # check if sf_id is a column in sf_data
+ if(!(sf_id %in% names(sf_data))){
+ stop("sf_id is not a column in sf_data")
+ } else {
+ sf_data <- sf_data %>%
+ dplyr::mutate(sf_id = as.character(sf_data[[sf_id]]))
+ }
+
+ # check if geometry is present
+ if(!"geometry" %in% names(sf_data)){
+ sf_data <- sf_data %>%
+ dplyr::mutate(geometry = sf::st_geometry(.))
+ }
+
+ # get unique sf_ids
+ sf_ids <- unique(sf_data$sf_id)
+
+ output <- data.frame()
+
+ for(i in sf_ids){
+ # get line parts with the same sf_id
+ sf_unit <- sf_data %>%
+ dplyr::filter(sf_id == i) %>%
+ sf::st_union(by_feature = FALSE) %>%
+ sf::st_cast("LINESTRING")
+
+ # create empty data frame to store points
+ temp <- data.frame() %>%
+ dplyr::mutate(lon = NA_integer_,
+ lat = NA_integer_)
+
+ # loop over line parts to convert them to points
+ for(n in 1:length(sf_unit)){
+ temp <- temp %>%
+ dplyr::add_row(lon = sf_unit[[n]][,1],
+ lat = sf_unit[[n]][,2]) %>%
+ dplyr::distinct(lon, lat) %>%
+ dplyr::arrange(lat, lon)
+
+ sf_point <- temp %>%
+ sf::st_as_sf(coords = c("lon", "lat"))
+
+ # order points
+ sf_point_ordered <- data.frame()
+
+ a <- 1
+
+ while(a <= nrow(sf_point)){
+ print(a)
+ if(a == 1){
+ # get first point
+ sf_point_ref <- sf_point[a,]
+ # select the other points of the linepart
+ outside <- sapply(sf::st_intersects(sf_point, sf_point_ref),function(x){length(x)==0})
+ sf_point_comp <- sf_point[outside, ]
+
+ # calculate distance between points
+ sf_point_comp$distance <- sf::st_distance(sf_point_comp, sf_point_ref)
+
+ # get the point with the smallest distance
+ sf_point_new_ref <- as.data.frame(sf_point_comp) %>%
+ sf::st_as_sf() %>%
+ dplyr::mutate(min = min(distance, na.rm = TRUE)) %>%
+ dplyr::filter(distance == min) %>%
+ dplyr::select(geometry)
+
+ # add the new point to the ordered points
+ sf_point_ordered <- rbind(sf_point_ref, sf_point_new_ref)
+
+ a <- a + 1
+
+ }else{
+ # get the other points of the linepart
+ sf_point_ref <- sf_point_new_ref
+ # select the other points of the linepart
+ outside <- sapply(sf::st_intersects(sf_point, sf_point_ordered),function(x){length(x)==0})
+ # calculate distance between points
+ sf_point_comp <- sf_point[outside, ]
+ # calculate distance between points
+ sf_point_comp$distance <- sf::st_distance(sf_point_comp, sf_point_ref)
+ # get the point with the smallest distance
+ sf_point_new_ref <- as.data.frame(sf_point_comp) %>%
+ sf::st_as_sf() %>%
+ dplyr::mutate(min = min(distance, na.rm = TRUE)) %>%
+ dplyr::filter(distance == min) %>%
+ dplyr::select(geometry)
+ # add the new point to the ordered points
+ sf_point_ordered <- rbind(sf_point_ordered, sf_point_new_ref)
+
+ a <- a + 1
+ }
+ }
+
+ # convert ordered points to linestring
+ test_sf <- sf_point_ordered %>%
+ sf::st_coordinates() %>%
+ sf::st_linestring() %>%
+ sf::st_geometry()
+ }
+
+ # add sf_id to the linestring
+ test_sf2 <- as.data.frame(test_sf) %>%
+ dplyr::mutate(sf_id = i)
+
+ # add linestring to output
+ if(nrow(output) == 0){
+ output <- test_sf2
+ }else{
+ output <- rbind(output, test_sf2)
+ }
+ }
+
+ # convert output to sf object
+ output <- output %>%
+ sf::st_as_sf()
+
+ return(output)
+}
From 472cc69484704fc41236540e3d8a31f1d3a6b5a3 Mon Sep 17 00:00:00 2001
From: Sander Devisscher
Date: Fri, 9 Aug 2024 14:36:16 +0200
Subject: [PATCH 02/22] improve example
#23
---
R/aggregate_lineparts_sf.r | 50 ++++++++++++++++++++++++++------------
1 file changed, 35 insertions(+), 15 deletions(-)
diff --git a/R/aggregate_lineparts_sf.r b/R/aggregate_lineparts_sf.r
index 4e02d3d..fe2dcc2 100644
--- a/R/aggregate_lineparts_sf.r
+++ b/R/aggregate_lineparts_sf.r
@@ -1,12 +1,12 @@
-#' Connect seperate line parts to one line
+#' Connect seperate line parts into 1 line
#'
-#' This function takes a sf object with seperate line parts and connects them to one line.
+#' This function takes a sf object with separate line parts and connects them into 1 line.
#' The function is based on the st_union function from the sf package.
#' The function is designed to work with sf objects that have a column with unique
-#' identifiers for the seperate line parts.
+#' identifiers for the separate line parts.
#' The function will connect the line parts based on the unique identifier.
#'
-#' @param sf_data A sf object with seperate line parts
+#' @param sf_data A sf object with separate line parts
#' @param sf_id A character string with the name of the column with unique identifiers
#'
#' @return A sf object with connected line parts
@@ -17,17 +17,29 @@
#'
#' @examples
#' \dontrun{
-#' # create a sf object with 2 line parts with the same id with wgs84 as crs
-#' sf_data <- st_sfc(st_linestring(matrix(c(0,0,1,1), ncol = 2)),
-#' st_linestring(matrix(c(1,1,2,2), ncol = 2))) %>%
-#' st_sf(sf_id = c("a", "a"))
+#' # create a sf object containing 2 seperate linstrings with wgs84 coordinates that lay within belgium
+#' # add a column with the same id for both linestrings & a unique label for each line
+#' sf_data <- sf::st_sfc(sf::st_linestring(matrix(c(5.5, 5.0, 50.0, 50.6), ncol = 2)),
+#' sf::st_linestring(matrix(c(4.7, 4.8, 50.8, 50.8), ncol = 2))) %>%
+#' sf::st_sf(id = c("a", "a")) %>%
+#' dplyr::mutate(label = as.factor(dplyr::row_number()))
+#'
+#' # plot sf_data using leaflet
+#' # create a palette for label
+#' pal <- leaflet::colorFactor(palette = "RdBu", levels = sf_data$label)
+#'
+#' plot <- leaflet::leaflet() %>%
+#' leaflet::addTiles() %>%
+#' leaflet::addPolylines(data = sf_data, color = ~pal(label), weight = 5, opacity = 1)
#'
#' # connect the line parts
-#' sf_data_connected <- aggregate_lineparts_sf(sf_data, "sf_id")
+#' sf_data_connected <- aggregate_lineparts_sf(sf_data, "id")
+#'
+#' # add sf_data_connected to plot
+#' plot <- plot %>%
+#' leaflet::addPolylines(data = sf_data_connected, color = "black", weight = 2, opacity = 0.5)
#'
-#' # plot the connected line parts & the seperate line parts
-#' plot(sf_data)
-#' plot(sf_data_connected)
+#' plot
#' }
aggregate_lineparts_sf <- function(sf_data,
@@ -73,13 +85,13 @@ aggregate_lineparts_sf <- function(sf_data,
# create empty data frame to store points
temp <- data.frame() %>%
dplyr::mutate(lon = NA_integer_,
- lat = NA_integer_)
+ lat = NA_integer_)
# loop over line parts to convert them to points
for(n in 1:length(sf_unit)){
temp <- temp %>%
dplyr::add_row(lon = sf_unit[[n]][,1],
- lat = sf_unit[[n]][,2]) %>%
+ lat = sf_unit[[n]][,2]) %>%
dplyr::distinct(lon, lat) %>%
dplyr::arrange(lat, lon)
@@ -91,8 +103,16 @@ aggregate_lineparts_sf <- function(sf_data,
a <- 1
+ # start progress bar
+ pb <- progress::progress_bar$new(format = " [:bar] :percent ETA: :eta",
+ total = nrow(sf_point),
+ clear = FALSE,
+ width = 60)
+
while(a <= nrow(sf_point)){
- print(a)
+ # tick progress bar
+ pb$tick()
+
if(a == 1){
# get first point
sf_point_ref <- sf_point[a,]
From 3eb47af90be305a3e22b159f92adfe7fc40206ac Mon Sep 17 00:00:00 2001
From: Sander Devisscher
Date: Fri, 9 Aug 2024 14:36:41 +0200
Subject: [PATCH 03/22] add logic to work with sf_id == "sf_id"
#23
---
R/aggregate_lineparts_sf.r | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/R/aggregate_lineparts_sf.r b/R/aggregate_lineparts_sf.r
index fe2dcc2..7ff16a2 100644
--- a/R/aggregate_lineparts_sf.r
+++ b/R/aggregate_lineparts_sf.r
@@ -60,8 +60,12 @@ aggregate_lineparts_sf <- function(sf_data,
if(!(sf_id %in% names(sf_data))){
stop("sf_id is not a column in sf_data")
} else {
- sf_data <- sf_data %>%
- dplyr::mutate(sf_id = as.character(sf_data[[sf_id]]))
+ # check if sf_id == "sf_id"
+ if(sf_id == "sf_id"){
+ } else {
+ sf_data <- sf_data %>%
+ dplyr::mutate(sf_id = as.character(sf_data[[sf_id]]))
+ }
}
# check if geometry is present
From 23383edcf660e67b6aa8f40a6dd7821ae8513c71 Mon Sep 17 00:00:00 2001
From: Sander Devisscher
Date: Fri, 9 Aug 2024 14:37:54 +0200
Subject: [PATCH 04/22] Create aggregate_lineparts_sf.Rd
#23
---
man/aggregate_lineparts_sf.Rd | 54 +++++++++++++++++++++++++++++++++++
1 file changed, 54 insertions(+)
create mode 100644 man/aggregate_lineparts_sf.Rd
diff --git a/man/aggregate_lineparts_sf.Rd b/man/aggregate_lineparts_sf.Rd
new file mode 100644
index 0000000..cc8bb0a
--- /dev/null
+++ b/man/aggregate_lineparts_sf.Rd
@@ -0,0 +1,54 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/aggregate_lineparts_sf.r
+\name{aggregate_lineparts_sf}
+\alias{aggregate_lineparts_sf}
+\title{Connect seperate line parts into 1 line}
+\usage{
+aggregate_lineparts_sf(sf_data, sf_id)
+}
+\arguments{
+\item{sf_data}{A sf object with separate line parts}
+
+\item{sf_id}{A character string with the name of the column with unique identifiers}
+}
+\value{
+A sf object with connected line parts
+}
+\description{
+This function takes a sf object with separate line parts and connects them into 1 line.
+The function is based on the st_union function from the sf package.
+The function is designed to work with sf objects that have a column with unique
+identifiers for the separate line parts.
+The function will connect the line parts based on the unique identifier.
+}
+\examples{
+\dontrun{
+# create a sf object containing 2 seperate linstrings with wgs84 coordinates that lay within belgium
+# add a column with the same id for both linestrings & a unique label for each line
+sf_data <- sf::st_sfc(sf::st_linestring(matrix(c(5.5, 5.0, 50.0, 50.6), ncol = 2)),
+ sf::st_linestring(matrix(c(4.7, 4.8, 50.8, 50.8), ncol = 2))) \%>\%
+ sf::st_sf(id = c("a", "a")) \%>\%
+ dplyr::mutate(label = as.factor(dplyr::row_number()))
+
+# plot sf_data using leaflet
+# create a palette for label
+pal <- leaflet::colorFactor(palette = "RdBu", levels = sf_data$label)
+
+plot <- leaflet::leaflet() \%>\%
+ leaflet::addTiles() \%>\%
+ leaflet::addPolylines(data = sf_data, color = ~pal(label), weight = 5, opacity = 1)
+
+# connect the line parts
+sf_data_connected <- aggregate_lineparts_sf(sf_data, "id")
+
+# add sf_data_connected to plot
+plot <- plot \%>\%
+ leaflet::addPolylines(data = sf_data_connected, color = "black", weight = 2, opacity = 0.5)
+
+plot
+}
+}
+\author{
+Sander Devisscher
+}
+\concept{spatial}
From 55d866e4cdf0d0de35d6bd2c9876ca4f7a1ea618 Mon Sep 17 00:00:00 2001
From: Sander Devisscher
Date: Fri, 9 Aug 2024 14:38:08 +0200
Subject: [PATCH 05/22] Update NAMESPACE
#23
---
NAMESPACE | 1 +
1 file changed, 1 insertion(+)
diff --git a/NAMESPACE b/NAMESPACE
index 9d56c7f..9025a6b 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -2,6 +2,7 @@
export(CRS_extracter)
export(UUID_List)
+export(aggregate_lineparts_sf)
export(apply_grtsdb)
export(calculate_polygon_centroid)
export(check)
From 94b36a4b22076cc1a091085c06215788db775dd3 Mon Sep 17 00:00:00 2001
From: Sander Devisscher
Date: Fri, 9 Aug 2024 14:51:24 +0200
Subject: [PATCH 06/22] Increment version number to 1.2.0
---
DESCRIPTION | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/DESCRIPTION b/DESCRIPTION
index da1cf5a..b4746e3 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
Package: fistools
Title: Tools & data used for wildlife management & invasive species in Flanders
-Version: 1.1.4
+Version: 1.2.0
Authors@R: c(
person(given = "Sander", middle = "", family = "Devisscher", "sander.devisscher@inbo.be",
role = c("aut", "cre"), comment = c(ORCID = "0000-0003-2015-5731")),
From 8348223ae3d59224ceba911668b3ec8561116ba7 Mon Sep 17 00:00:00 2001
From: "github-actions[bot]"
Date: Fri, 9 Aug 2024 15:01:22 +0000
Subject: [PATCH 07/22] Build pkgdown site [skip ci]
---
docs/404.html | 2 +-
docs/CODE_OF_CONDUCT.html | 2 +-
docs/LICENSE-text.html | 2 +-
docs/LICENSE.html | 2 +-
docs/authors.html | 6 +-
docs/index.html | 2 +-
docs/pkgdown.yml | 2 +-
docs/reference/CRS_extracter.html | 2 +-
docs/reference/UUID_List.html | 2 +-
docs/reference/aggregate_lineparts_sf.html | 131 ++++++++++++++++++
docs/reference/apply_grtsdb.html | 2 +-
docs/reference/boswachterijen.html | 2 +-
.../reference/calculate_polygon_centroid.html | 2 +-
docs/reference/check.html | 2 +-
docs/reference/cleanup_sqlite.html | 2 +-
docs/reference/col_content_compare.html | 2 +-
docs/reference/colcompare.html | 2 +-
docs/reference/collect_osm_features.html | 2 +-
docs/reference/download_dep_media.html | 2 +-
.../reference/download_gdrive_if_missing.html | 2 +-
docs/reference/download_seq_media.html | 2 +-
docs/reference/drg_example.html | 2 +-
docs/reference/index.html | 6 +-
docs/reference/install_sp.html | 2 +-
docs/reference/label_converter.html | 2 +-
docs/reference/lib_crs.html | 2 +-
docs/sitemap.xml | 1 +
27 files changed, 163 insertions(+), 27 deletions(-)
create mode 100644 docs/reference/aggregate_lineparts_sf.html
diff --git a/docs/404.html b/docs/404.html
index 5266f32..326e129 100644
--- a/docs/404.html
+++ b/docs/404.html
@@ -32,7 +32,7 @@
fistools
- 1.1.4
+ 1.2.0
diff --git a/docs/CODE_OF_CONDUCT.html b/docs/CODE_OF_CONDUCT.html
index cd137a0..54519ee 100644
--- a/docs/CODE_OF_CONDUCT.html
+++ b/docs/CODE_OF_CONDUCT.html
@@ -17,7 +17,7 @@
fistools
- 1.1.4
+ 1.2.0
diff --git a/docs/LICENSE-text.html b/docs/LICENSE-text.html
index f2c9e2f..4ad3e95 100644
--- a/docs/LICENSE-text.html
+++ b/docs/LICENSE-text.html
@@ -17,7 +17,7 @@
fistools
- 1.1.4
+ 1.2.0
diff --git a/docs/LICENSE.html b/docs/LICENSE.html
index e7f928f..aae3cec 100644
--- a/docs/LICENSE.html
+++ b/docs/LICENSE.html
@@ -17,7 +17,7 @@
fistools
- 1.1.4
+ 1.2.0
diff --git a/docs/authors.html b/docs/authors.html
index 713eab7..0b50255 100644
--- a/docs/authors.html
+++ b/docs/authors.html
@@ -17,7 +17,7 @@
fistools
- 1.1.4
+ 1.2.0
@@ -70,13 +70,13 @@
Citation
Devisscher S, Pallemaerts L, Delva S, Cartuyvels E, Bollen M (2024).
fistools: Tools & data used for wildlife management & invasive species in Flanders.
-R package version 1.1.4.
+R package version 1.2.0.
@Manual{,
title = {fistools: Tools & data used for wildlife management & invasive species in Flanders},
author = {Sander Devisscher and Lynn Pallemaerts and Soria Delva and Emma Cartuyvels and Martijn Bollen},
year = {2024},
- note = {R package version 1.1.4},
+ note = {R package version 1.2.0},
}
This function takes a sf object with separate line parts and connects them into 1 line.
+The function is based on the st_union function from the sf package.
+The function is designed to work with sf objects that have a column with unique
+identifiers for the separate line parts.
+The function will connect the line parts based on the unique identifier.
+
+
+
+
aggregate_lineparts_sf(sf_data, sf_id)
+
+
+
+
Arguments
+
+
+
sf_data
+
A sf object with separate line parts
+
+
+
sf_id
+
A character string with the name of the column with unique identifiers
+
+
+
+
Value
+
A sf object with connected line parts
+
+
+
Author
+
Sander Devisscher
+
+
+
+
Examples
+
if(FALSE){# \dontrun{
+# create a sf object containing 2 seperate linstrings with wgs84 coordinates that lay within belgium
+# add a column with the same id for both linestrings & a unique label for each line
+sf_data<-sf::st_sfc(sf::st_linestring(matrix(c(5.5, 5.0, 50.0, 50.6), ncol =2)),
+sf::st_linestring(matrix(c(4.7, 4.8, 50.8, 50.8), ncol =2)))%>%
+sf::st_sf(id =c("a", "a"))%>%
+dplyr::mutate(label =as.factor(dplyr::row_number()))
+
+# plot sf_data using leaflet
+# create a palette for label
+pal<-leaflet::colorFactor(palette ="RdBu", levels =sf_data$label)
+
+plot<-leaflet::leaflet()%>%
+leaflet::addTiles()%>%
+leaflet::addPolylines(data =sf_data, color =~pal(label), weight =5, opacity =1)
+
+# connect the line parts
+sf_data_connected<-aggregate_lineparts_sf(sf_data, "id")
+
+# add sf_data_connected to plot
+plot<-plot%>%
+leaflet::addPolylines(data =sf_data_connected, color ="black", weight =2, opacity =0.5)
+
+plot
+}# }
+
Deze functie onderzoekt of de labels bestaan in de datasets AfschotMelding (AM), ToegekendeLabels (TL), Toekenningen_Cleaned (TL_Cleaned), Dieren_met_onderkaakgegevens (DMOG), Dieren_met_onderkaakgegevens_Georef (DMOGG).
een character (lijst) met labelnummer(s) die dienen onderzocht te worden. Dit kan in 3 vormen (volgnummer, met streepjes of zonder streepjes) of een combinatie van deze vormen aangeleverd worden
+
+
+
update
+
een boolean die aangeeft of ook de nog niet wegeschreven dwh - bestanden moeten worden gecontroleerd.
+
+
+
label_type
+
een een character (lijst) met labeltypes die dienen onderzocht te worden.
+
+
+
jaar
+
een numerieke (lijst) van jaren die dienen onderzocht te worden.
+
+
+
soort
+
een character van de soort die onderzocht dient te worden.
+
+
+
bo_dir
+
een character met de directory waar de backoffice-wild-analyse repository staat.
+
+
+
+
Value
+
Een dataframe met de volgende kolommen:
INPUTLABEL: de input label
+
LABELTYPE: de labeltype(s) die onderzocht worden
+
JAAR: het jaar waarin de labels onderzocht worden
+
AM_OLD: een boolean die aangeeft of de label(s) in AfschotMelding voorkomen voor de update van DWH_Connect
+
AM_OLD_LABEL: de label(s) die in AfschotMelding voorkomen voor de update van DWH_Connect
+
TL_OLD: een boolean die aangeeft of de label(s) in ToegekendeLabels voorkomen voor de update van DWH_Connect
+
TL_OLD_LABEL: de label(s) die in ToegekendeLabels voorkomen voor de update van DWH_Connect
+
TL_CLEANED: een boolean die aangeeft of de label(s) in Toekenningen_Cleaned voorkomen
+
TL_CLEANED_LABEL: de label(s) die in Toekenningen_Cleaned voorkomen
+
DMOG: een boolean die aangeeft of de label(s) in Dieren_met_onderkaakgegevens voorkomen
+
DMOG_LABEL: de label(s) die in Dieren_met_onderkaakgegevens voorkomen
+
DMOG_GEO: een boolean die aangeeft of de label(s) in Dieren_met_onderkaakgegevens_Georef voorkomen
+
DMOG_GEO_LABEL: de label(s) die in Dieren_met_onderkaakgegevens_Georef voorkomen
+Als update = TRUE worden de volgende kolommen toegevoegd:
+
AM_NEW: een boolean die aangeeft of de label(s) in AfschotMelding voorkomen na de update van DWH_Connect
+
AM_NEW_LABEL: de label(s) die in AfschotMelding voorkomen na de update van DWH_Connect
+
TL_NEW: een boolean die aangeeft of de label(s) in ToegekendeLabels voorkomen na de update van DWH_Connect
+
TL_NEW_LABEL: de label(s) die in ToegekendeLabels voorkomen na de update van DWH_Connect
+
+
+
Details
+
De parameter label_type, jaar en soort zijn enkel relevant als één van
+de labels de vorm 'volgnummer' heeft. Wanneer deze parameter niet gespecifieerd
+worden zal een default waarde voor het jaar (2013 t.e.m. max(AfschotMelding$Jaartal))
+en label_type (c("REEGEIT", "REEKITS", "REEBOK", "WILD ZWIJN", "DAMHERT", "EDELHERT"))
+gebruikt worden. Wanneer soort gespecifieerd is zal de lijst van labeltypes
+beperkt worden tot deze die op de soort betrekking hebben. Voor ree bvb wordt dit reekits, reegeit en reebok.
+
De parameters label, label_type, jaar en soort kunnen als lijst aangeleverd worden.
+
De parameters label_type, jaar en soort zijn niet hoofdlettergevoelig.
+
bo_dir is de directory waar de backoffice-wild-analyse repository staat.
+De functie checkt namelijk of de labels voorkomen in de lokale versie van de backoffice-wild-analyse repository.
+Hiervoor is het belangrijk dat de backoffice-wild-analyse repository lokaal aanwezig is en de laatste versie gepulled is.
+
update is een boolean die aangeeft of de nog niet wegeschreven dwh - bestanden moeten worden gecontroleerd.
+om dit te kunnen lopen is een verbinding met de DWH nodig. Dit is enkel mogelijk als je met de VPN van het INBO verbonden bent.
+Of als je aanwezig bent op een vestiging van de Vlaamse Overheid (VAC).
Devisscher S, Pallemaerts L, Delva S, Cartuyvels E, Bollen M (2024).
fistools: Tools & data used for wildlife management & invasive species in Flanders.
-R package version 1.2.6.
+R package version 1.2.8.
@Manual{,
title = {fistools: Tools & data used for wildlife management & invasive species in Flanders},
author = {Sander Devisscher and Lynn Pallemaerts and Soria Delva and Emma Cartuyvels and Martijn Bollen},
year = {2024},
- note = {R package version 1.2.6},
+ note = {R package version 1.2.8},
}
Devisscher S, Pallemaerts L, Delva S, Cartuyvels E, Bollen M (2024).
fistools: Tools & data used for wildlife management & invasive species in Flanders.
-R package version 1.2.10.
+R package version 1.2.12.
@Manual{,
title = {fistools: Tools & data used for wildlife management & invasive species in Flanders},
author = {Sander Devisscher and Lynn Pallemaerts and Soria Delva and Emma Cartuyvels and Martijn Bollen},
year = {2024},
- note = {R package version 1.2.10},
+ note = {R package version 1.2.12},
}
Devisscher S, Pallemaerts L, Delva S, Cartuyvels E, Bollen M (2024).
fistools: Tools & data used for wildlife management & invasive species in Flanders.
-R package version 1.2.12.
+R package version 1.2.13.
@Manual{,
title = {fistools: Tools & data used for wildlife management & invasive species in Flanders},
author = {Sander Devisscher and Lynn Pallemaerts and Soria Delva and Emma Cartuyvels and Martijn Bollen},
year = {2024},
- note = {R package version 1.2.12},
+ note = {R package version 1.2.13},
}
Devisscher S, Pallemaerts L, Delva S, Cartuyvels E, Bollen M (2024).
fistools: Tools & data used for wildlife management & invasive species in Flanders.
-R package version 1.2.13.
+R package version 1.2.15.
@Manual{,
title = {fistools: Tools & data used for wildlife management & invasive species in Flanders},
author = {Sander Devisscher and Lynn Pallemaerts and Soria Delva and Emma Cartuyvels and Martijn Bollen},
year = {2024},
- note = {R package version 1.2.13},
+ note = {R package version 1.2.15},
}