####################################################################

# Function to retrieve all relevant info for a data variable 
# and store it in an output list

getVariableInfo <- function(variable_name, variable_ref = "../data/data_variable_list.csv") {
  
  selected_variable <- read_csv(variable_ref) %>%
    filter(VARIABLE_NAME == variable_name)
  
  variable_info <- list("variable_id" = selected_variable$VARIABLE_ID,
                        "variable_name" = selected_variable$VARIABLE_NAME,
                        "variable_source" = selected_variable$VARIABLE_SOURCE,
                        "variable_axis" = selected_variable$AXIS_LABEL
                        )
  
  return(variable_info)
  
}