R/invert_dict.R

In NathanSkene/MAGMA_Celltyping: Find Causal Cell-Types Underlying Complex Trait Genetics

Defines functions invert_dict

Documented in invert_dict

#' Invert dictionary
#' 
#' Swap the names/values from a named vector. 
#' 
#' @param dict Named vector. 
#' 
#' @keywords internal 
invert_dict <- function(dict){
    stats::setNames(names(dict), unname(dict))
}