Extracting Multiple Dataframes from a folder and using them in multiple functions - r

Question

I am new to R and I need help sorting a scenario in R programming.
For the First Part of the problem:
I have a folder with multiple SAS files in a specific location and whose path would be coming in an excel file. I have managed to extract the files from the path provided in excel file as below:
Spec <- read_excel("file", sheet = "first")
Then to extract the dataframes from the folder with the below code (There are 3 dataframes in the folder namely "aa.sas7bdat", "bb.sas7bdat", "cc.sas7bdat" or it can be any number depending on the folder, but for this one we are taking 3 dataframes)
Path <- Spec$`Source Data Path`[1:1] (#it is in the first row in first column of excel file)
Files <- list.files(path = Path, pattern="*.sas7bdat", full.names=FALSE)
then putting a loop for sorting the dataframes as required for further process (as explained later)
Final_List <- NULL
for (y in Files){
List <- unlist(strsplit(y, split = ".sas7bdat", fixed = TRUE))
Final_List <- c(Final_List, List)
Final_List <- toupper(Final_List)
read_files[[List]] <- read_sas(y)
}
print(Final_List)
The above loops output is 3 dataframes namely "AA", "BB", "CC" stored in variable "Final_List" and now we need to access these dataframes from here on to another function.
Now for the second part
Now there is a requirement to filter all the dataframes based on one value of a column of single dataframe Dynamically
Let's say the input by user is a value of "Male" from column name "Gender" from dataframe "AA" (It can be any value from any column of any dataframe as this needs to be DYNAMIC)
Column_Name_Value <- "MALE" (#from the column "Gender" selecting only male values)
Dataframe_Name <- "AA"
I have created 3 functions to help in filtering
1st Function to filter the unique values of "Gender" (or any column name) from dataframe "AA"
Unique_Value_Fun <- function (dataframe, value) {
Unique_Value1 <- dataframe %>% distinct({{value}}) %>% filter({{value}} != "")
Unique_Value <- unlist(Unique_Value1)
return(Unique_Value)
}
Unique_Value <- Unique_Value_Fun({{Dataframe_Name}}, UQ(sym(Column_Name_Value)))
Now we have the dataframe AA with only "Male" values. Now there is a common column of ID's in all the dataframes, if the first dataframe is filtered with the "Unique Value" it will have only those "ID's" present. Now we need to filter all other dataset present in the folder with the same "ID's". The CATCH is all other dataframes will not have the same column name and the same values. BUT they have a common column "ID" for every dataframe so we need to use this common ID for filtering the rest of the dataframes.
Below code have the rest 2 functions
for (z in Unique_Value) {
print(z)
First_dataframe_Fun <- function (dataframe, value) {
dataframe %>% filter({{value}} == {{z}})
}
First_dataframe <- First_dataframe_Fun({{Dataframe_Name}}, UQ(sym(Column_Name_Value)))
Now if I take the dataframes values and put it against the functions, it works well (i.e, it's hardcoded but not Dynamic)
AA <- First_dataframe
BB <- BB %>% filter(ID %in% First_dataset$ID) (# filtering as per ID of first dataset to match the ID's)
CC <- CC %>% filter(ID %in% First_dataset$ID)
Based on the "First Dataframe ID's" we need to filter the rest of the dataframes dynamically. Now to make it dynamic I tried with if condition inside a for loop but it didn't work out.
Please suggest a logic or a similar code where I can make this Dynamic. If I provide any value of a dataframe it should filter the rest of datasets with the ID's (as there can be n number of dataframes but in our case we have taken only 3 dataframes for example).