Fix 'Function "setwd" is undesirable. As an alternative, use withr::with_dir().' issue in Employment_Diversity_Data_Analysis.R

[AVS1508]

CodeFactor found an issue: Function "setwd" is undesirable. As an alternative, use withr::with_dir().

It's currently on:
Employment_Diversity_Data_Analysis.R:15