rebase

#82

Author: SanderDevisscher

.github/ISSUE_TEMPLATE/nieuwe-functie-aanmaken.md

@@ -13,7 +13,8 @@ assignees: ''
 - [ ] list of the expected functionality
 
 ## Checklist
-- [ ] maak een nieuw R-bestand 
+- [ ] maak een nieuw R-bestand
+- [ ] vermijd `library("package")` en `require("package")` gebruik `package::function()` *of als het echt niet anders gaat `requirenamespace("package")`*
 - [ ] sla het R bestand op onder `./R` met filenaam is gelijk aan functienaam
 - [ ] voorzie een functie titel met `#'` op regel 1 van je script
 - [ ] voorzie een auteur met `#' @author`
@@ -26,9 +27,6 @@ assignees: ''
 - [ ] voer `roxygen2::roxygenise()` uit in de console
 - [ ] voer `devtools::check()` uit in de console
 - [ ] los eventuele errors, warnings en notes<sup>1</sup> op
-- [ ] increment versie dmv `usethis::use_version(which = "minor")`<sup>2</sup>
 - [ ] maak een pull request met @soriadelva of @SanderDevisscher en eventueel andere relevante gebruikers als reviewer.
 
 *<sup>1</sup>in de mate van het mogelijke*
-
-*<sup>2</sup>als je meer dan 5 functies en/of datasets in één pull request veranderd hebt gebruik: `usethis::use_version(which = "major")`*

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: fistools
 Title: Tools & data used for wildlife management & invasive species in Flanders
-Version: 1.2.9
+Version: 1.2.11
 Authors@R: c(
     person(given = "Sander", middle = "", family = "Devisscher", "sander.devisscher@inbo.be", 
       role = c("aut", "cre"), comment = c(ORCID = "0000-0003-2015-5731")),

NAMESPACE

@@ -15,7 +15,7 @@ export(download_seq_media)
 export(install_sp)
 export(label_converter)
 export(label_selecter)
-export(retry_function)
+export(rename_ct_files)
 importClassesFrom(sp,CRS)
 importFrom(magrittr,"%>%")
 importFrom(sp,CRS)

R/rename_ct_files.R

@@ -0,0 +1,52 @@
+#' Rename camera trap files for upload in Agouti
+#'
+#' @author: Lynn Pallemaerts and Someone Before Her
+#'
+#' @description Function that rename camera trap files (i.e. photos) by
+#' appending folder name (e.g. 1000RECX) to file name (e.g. IMG0001) to create
+#' all unique file names across a deployment. Needed for deployments with more
+#' than 9999 pictures, so they can be uploaded in Agouti. This is a copy of the
+#' old `rename_file_names()` in the old `fis-projecten` (archived).
+#'
+#' @param foldername DCIM folder to be treated
+#' @param extensions file extensions to be rename. Default is jpg, jpeg, bmp and png
+#'
+#' @returns renamed picture files in the original folder
+#'
+#' @examples
+#' \dontrun{
+#' tempzip <- tempfile(fileext = ".zip")
+#' fistools::download_gdrive_if_missing(gfileID = "1-84hbKouLKGwnLgBSRaQO1BnfogoFZWz",
+#'                                      destfile = tempzip,
+#'                                      email = Sys.getenv("email"),
+#'                                      update_always = TRUE)
+#'
+#' foldername <- paste0(tempdir(), "/test_case_renaming")
+#' unzip(tempzip,
+#'       exdir = tempdir())
+#' rename_ct_files(foldername)
+#' browseURL(foldername)
+#' unlink(foldername,
+#'        recursive = TRUE)
+#'}
+#'
+#' @export
+
+rename_ct_files <- function(foldername,
+                            extensions = c("jpg", "png", "jpeg", "bmp")) {
+
+  # list all the files in the subfolders and prepare new file names
+  images <- dir(foldername, recursive = TRUE,  full.names = FALSE) %>%
+    as.data.frame(stringsAsFactors = FALSE) %>%
+    dplyr::select(filename = ".") %>%
+    dplyr::filter(grepl(paste0(extensions, collapse = "|"), tolower(filename))) %>%
+    dplyr::mutate(subfolder = dirname(filename)) %>%
+    dplyr::mutate(foldername = foldername) %>%
+    dplyr::mutate(new_filename = gsub("/", "_", filename)) %>%
+    dplyr::mutate(full_filename = as.character(file.path(foldername, filename))) %>%
+    dplyr::mutate(full_new_filename = as.character(file.path(foldername, subfolder, new_filename)))
+
+  # execute file renaming
+  file.rename(images$full_filename, images$full_new_filename)
+
+}

docs/404.html

@@ -2,4 +2,4 @@ pandoc: 2.9.2.1
 pkgdown: 2.1.1
 pkgdown_sha: ~
 articles: {}
-last_built: 2024-10-11T09:08Z
+last_built: 2024-10-10T13:48Z