rename fields in combine_bigmaps to match change in dadamap

brendanf · Nov 17, 2019 · b078562 · b078562
1 parent ce91d68
commit b078562
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/tzara.R b/R/tzara.R
@@ -1007,11 +1007,11 @@ combine_bigmaps <- function(dadamap, rawdata) {
    joincols <- intersect(colnames(dadamap), colnames(rawdata))
    dplyr::full_join(dadamap, rawdata, by = joincols) %>%
       dplyr::group_by("seq.id") %>%
-      dplyr::filter(any(!is.na(.data$asv.idx))) %>%
+      dplyr::filter(any(!is.na(.data$dada.idx))) %>%
       dplyr::mutate(
-         seq = dplyr::coalesce(.data$asv.seq, .data$derep.seq, .data$seq)
+         seq = dplyr::coalesce(.data$dada.seq, .data$derep.seq, .data$seq)
       ) %>%
-      dplyr::select(-"derep.seq", -"derep.idx", -"asv.seq", -"asv.idx")
+      dplyr::select(-"derep.seq", -"derep.idx", -"dada.seq", -"dada.idx")
 }
 
 is_string_or_missing <- function(x) {