diff --git a/r/src/hgnc.R b/r/src/hgnc.R
index 456100a6..24d3e745 100644
--- a/r/src/hgnc.R
+++ b/r/src/hgnc.R
@@ -27,7 +27,7 @@ complete_set = args[3]
 inputDir <- "datasources/"
 
 # Create output directory
-outputDir <- paste0("datasources/", "hgnc", "/recentData")
+outputDir <- paste0("datasources/", tolower(sourceName), "/recentData")
 dir.create(outputDir, showWarnings = FALSE)
 
 # Download the input files from HGNC