cartographR2:

# library(reshape2)
# library(tidyverse)
#
# identity_cast <- load_and_format_identity_csv(path_to_identity = path_to_identity,
#                                          target_colnames = target_colnames)
# identity_melted <- convert_to_melted_format(identity_cast, target_colnames = target_colnames)
#
# key_melted <- load_and_filter_key_for_current_version(path_to_key = path_to_key,
#                                       log = TRUE)
# key_cast <- convert_to_casted_format(key_melted)
#
#
#
#
# path_to_relationship <- "/Users/meerapatel/GitHub/MSK_KMI_Enterprise/biblio-tech/KEY/REDCap/RELATIONSHIP.csv"
# path_to_umls_lookup <- "/Users/meerapatel/GitHub/MSK_KMI_Enterprise/biblio-tech/CATALOGUE/UMLS/LOOKUP.csv"
# path_to_local_dictionary <- "/Users/meerapatel/GitHub/MSK_KMI_Enterprise/biblio-tech//CATALOGUE/MSK/LOCAL_DICTIONARY.csv"
#