Skip to content
This repository has been archived by the owner on Sep 30, 2024. It is now read-only.

Commit

Permalink
Update annotate_report.Rmd
Browse files Browse the repository at this point in the history
  • Loading branch information
alvaannett authored Sep 7, 2023
1 parent a802aa4 commit 62af385
Showing 1 changed file with 1 addition and 2 deletions.
3 changes: 1 addition & 2 deletions Notebooks/annotate_report.Rmd
Original file line number Diff line number Diff line change
Expand Up @@ -45,8 +45,7 @@ marker_genes = strsplit(params$marker_genes, split = ' ')[[1]]
harmonize_unresolved = function(pred, ref_labels){
pred %>%
column_to_rownames('cellname') %>%
mutate(across(where(is.character), ~ifelse(. %in% c(ref_labels$label), ., 'Unresolved'))) %>%
rownames_to_column('cellname') %>%
mutate(across(where(is.character), ~ifelse(. %in% c(ref_labels$label, 'No Consensus'), ., 'Unresolved'))) %>%
return()
}
Expand Down

0 comments on commit 62af385

Please sign in to comment.