R/rename_df_from_ls.R

In sbha/dfnames: Functions for Working with Data Frame Names

# https://stackoverflow.com/a/72548495/3058123

rename_df_from_ls <- function(df, l, list_names_as_values = FALSE){
  
  # use list names as values
  if (list_names_as_values){
    cn <- names(l)
    names(cn) <- unlist(unname(l))
    l <- cn %>% as.list()
  }
  
  l <- l[names(l) %in% names(df)]
  
  if (length(l)){
    
    rename_with(df, ~unlist(l), all_of(names(l)))
    
  } else {
    
    df
    
  }
}


# sample_list <- list(
#   var1 = "new_name1",
#   var5 = 'new_name5',
#   var2 = "new_name2"
# )
# 
# sample_df <- data.frame(
#   var2 = letters[4:6],
#   var6 = letters[7:9],
#   var1 = letters[1:3],
#   var11 = letters[5:7]
# )
# 
# rename_df_from_ls(sample_df, sample_list)