refactor: ♻️ use Tidyverse functions instead of base and stats (#178)

# Description

This also removes the dependency on stats.

Needs no review. 

## Checklist

- [X] Ran `just run-all`

Author: signekb

DESCRIPTION

@@ -24,7 +24,6 @@ Imports:
     haven,
     purrr,
     rlang,
-    stats,
     stringr,
     uuid
 Suggests:

R/convert.R

@@ -211,7 +211,7 @@ get_year_from_filename <- function(path) {
 #' @keywords internal
 #' @noRd
 create_part_uuid <- function() {
-  substr(uuid::UUIDgenerate(), 0, 6)
+  stringr::str_sub(uuid::UUIDgenerate(), start = 1, end = 6)
 }
 
 #' Create a consistent Arrow schema from a data frame

R/simulate.R

@@ -17,11 +17,15 @@
 #' @examples
 #' simulate_register(register = "kontakter", year = c("1999", "2000"))
 simulate_register <- function(register, year = "", n = 1000) {
-  names <- ifelse(year == "", register, paste(register, year, sep = "_"))
+  names <- dplyr::if_else(
+    year == "",
+    register,
+    paste(register, year, sep = "_")
+  )
   purrr::map(names, \(name) {
     osdc::simulate_registers(registers = register, n = n)[[1]]
   }) |>
-    stats::setNames(names)
+    purrr::set_names(names)
 }
 
 #' Save a list of data frames as SAS files
@@ -42,7 +46,7 @@ save_as_sas <- function(data_list, path) {
   purrr::iwalk(data_list, \(df, name) {
     suppressWarnings(haven::write_sas(
       df,
-      fs::path(path, paste0(name, ".sas7bdat"))
+      fs::path(path, glue::glue("{name}.sas7bdat"))
     ))
   })
   invisible(path)