# radiator 1.3.7 2025-06-17

* Improved DArT file import and filtering
* Several functions were not handling generating folder names and numbers inside
nested function. Presently working on an overhaul.
VCF and DArT files are impacted by this one.

Author: thierrygosselin

.DS_Store

@@ -1,8 +1,8 @@
 Package: radiator
 Type: Package
 Title: RADseq Data Exploration, Manipulation and Visualization using R
-Version: 1.3.6
-Date: 2025-04-15
+Version: 1.3.7
+Date: 2025-06-17
 Encoding: UTF-8
 Authors@R: c(
   person("Thierry", "Gosselin", email = "thierrygosselin@icloud.com", role = c("aut", "cre")),
@@ -53,7 +53,8 @@ Suggests:
     tidyr (>= 1.1.0),
     tidyselect,
     utils,
-    vctrs
+    vctrs,
+    vroom
 License: GPL-3
 LazyLoad: yes
 VignetteBuilder:

DESCRIPTION

@@ -74,7 +74,6 @@ export(filter_snp_number)
 export(filter_snp_position_read)
 export(filter_whitelist)
 export(folder_prefix)
-export(folder_short)
 export(gds2tidy)
 export(generate_filename)
 export(generate_folder)
@@ -93,6 +92,7 @@ export(gt_recoding)
 export(haplotype_reconstruction)
 export(hwe_analysis)
 export(ibdg_fh)
+export(id_qc_helper)
 export(import_dart_geno)
 export(ind_total_reads)
 export(individual_het)
@@ -225,6 +225,7 @@ export(write_maverick)
 export(write_pcadapt)
 export(write_plink)
 export(write_rad)
+export(write_radiator_tsv)
 export(write_related)
 export(write_rubias)
 export(write_snprelate)

NAMESPACE

@@ -1,3 +1,11 @@
+# radiator 1.3.7 2025-06-17
+
+* Improved DArT file import and filtering
+* Several functions were not handling generating folder names and numbers inside 
+nested function. Presently working on an overhaul. 
+VCF and DArT files are impacted by this one. 
+
+
 # radiator 1.3.6 2025-04-15
 
 * Speed improvements for some functions

NEWS.md

@@ -48,9 +48,10 @@ clean_ind_names <- function(x) {
 #' Used internally in \href{https://github.com/thierrygosselin/radiator}{radiator}
 #' and might be of interest for users.
 #' @param x (character string) Population character string.
+#' @param factor (logical) Default: \code{factor = TRUE}. Will also keep or transform the factor levels.
 #' @rdname clean_pop_names
 #' @export
-clean_pop_names <- function(x) {
+clean_pop_names <- function(x, factor = TRUE) {
   clean_pop <- function(x) {
     stringi::stri_replace_all_fixed(
       str = as.character(x),
@@ -65,5 +66,6 @@ clean_pop_names <- function(x) {
     pop.levels <- clean_pop(as.character(unique(x)))
   }
   x <- clean_pop(as.character(x))
-  x <- factor(x, levels = pop.levels)
+  if (factor) x <- factor(x, levels = pop.levels)
+  return(x)
 }#End clean_pop_names