From f76c26b535c17bd38f960968cb13c05c2d27d4fe Mon Sep 17 00:00:00 2001 From: Ryan Sheridan Date: Mon, 19 Jun 2023 10:46:59 -0600 Subject: [PATCH] fix test warnings --- R/calc-gene-usage.R | 2 +- R/import-vdj.R | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/R/calc-gene-usage.R b/R/calc-gene-usage.R index 356d6b4e..12b6ebc9 100644 --- a/R/calc-gene-usage.R +++ b/R/calc-gene-usage.R @@ -659,7 +659,7 @@ plot_gene_pairs <- function(input, data_col, chains, cluster_col = NULL, n_lab_dat$legend <- n_lab_dat$axis <- n_lab_dat$corner if ((!is.null(grp_col) || !is.null(clst_col)) && identical(method, "bar")) { - n_lab_dat$axis <- dplyr::rename(df_in, .n = .data$freq) + n_lab_dat$axis <- dplyr::rename(df_in, .n = "freq") } # Set common arguments diff --git a/R/import-vdj.R b/R/import-vdj.R index 3033d31f..af7400c4 100644 --- a/R/import-vdj.R +++ b/R/import-vdj.R @@ -313,7 +313,7 @@ import_vdj <- function(input = NULL, vdj_dir = NULL, prefix = "", # contigs that did not have any mutations will have NAs indel_ctigs <- purrr::map( indel_ctigs, - ~ mutate(.x, dplyr::across(all_of(indel_cols), tidyr::replace_na, 0)) + ~ mutate(.x, dplyr::across(all_of(indel_cols), ~ tidyr::replace_na(.x, 0))) ) contigs <- indel_ctigs