First Divide the code
and add print statements and look what happens in background on Console
joined_file <- fuzzy_left_join(
file1, file2,
by = c(
"Type" = "Description",
"Date" = "EffectiveDate",
"Date" = "ExpiryDate"
),
match_fun = c("==" , ">=" , "<=")
)
print("joined_file")
print(head(joined_file, 1000)
new_db<- dplyr::select(Key,Date, Type, Num_Rate)
print("new_db")
print(head(new_db, 1000)
In this way you can understand where the error occurs