use purrr instead of stats

umccr · Dec 2, 2024 · 8694ede · 8694ede
1 parent f8be647
commit 8694ede
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -58,4 +58,3 @@ Config/testthat/edition: 3
 Encoding: UTF-8
 LazyData: true
 RoxygenNote: 7.3.1
-VignetteBuilder: knitr
diff --git a/R/dragen.R b/R/dragen.R
@@ -791,13 +791,13 @@ dragen_ploidy_estimation_metrics_read <- function(x) {
   raw <- readr::read_lines(x)
   assertthat::assert_that(grepl("PLOIDY ESTIMATION", raw[1]))
   fun1 <- function(x) {
-    setNames(
+    purrr::set_names(
       as.character(glue("cov_{tolower(x)}_div_auto_median")),
       as.character(glue("{x} median / Autosomal median"))
     )
   }
   fun2 <- function(x) {
-    setNames(
+    purrr::set_names(
       as.character(glue("cov_{tolower(x)}_median")),
       as.character(glue("{x} median coverage"))
     )