R/get_one_to_one.R
get_one_to_one.Rd
Find the list of columns that have a 1:1 mapping to each other
get_one_to_one(dat)
A list with one element for each group of columns that map identically to each other.
foo <- data.frame(
Lab_Test_Long=c("Cholesterol, LDL", "Cholesterol, LDL", "Glucose"),
Lab_Test_Short=c("CLDL", "CLDL", "GLUC"),
LOINC=c(12345, 12345, 54321),
Person=c("Sam", "Bill", "Sam"),
stringsAsFactors=FALSE
)
get_one_to_one(foo)
#> [[1]]
#> [1] "Lab_Test_Long" "Lab_Test_Short" "LOINC"
#>