R/extractMetadata.R

In correadarosaj/RGuttmanLab:

#' Function to extract metadata from a data frame
#'
#' @param df 
#' @param varnames
#' @param idvar 
#' @return A data frame with metadata according to a key variable (idvar) 

extractMetadata = function(df,varnames,idvar){

  list_df =  lapply(varnames, function(x) df %>%
                      dplyr::select(SUBJID = all_of(idvar), all_of(x)) %>%
                      na.omit() %>%
                      distinct())


  metadata = list_df %>% reduce(left_join , by = 'SUBJID')
  names(metadata) = names(varnames)

  return(metadata)


}