inst/rmarkdown/templates/clinicopathological/skeleton/R/find_key.R

In sbalci/histopathR: Template and R Codes Used in Histopathologic Research

# Find ID and Key Columns to Exclude From Analysis

find_key <-  function(mydataframe = mydata) {
    mydata %>% 
        sapply(., FUN = dataMaid::isKey) %>% 
        as_tibble() %>% 
        select(
            which(.[1, ] == TRUE)
        ) %>% 
        names()
}