diff --git a/r/src/hmdb.R b/r/src/hmdb.R
index dd2b1265..2680f83a 100644
--- a/r/src/hmdb.R
+++ b/r/src/hmdb.R
@@ -6,11 +6,11 @@ if (!"xml2" %in% installed.packages()) {
 library(xml2)
 
 # Set variables
-sourceName <- "hmdb"
-inputDir <- "mapping_preprocessing/datasources/"
+sourceName <- "HMDB"
+inputDir <- "datasources/"
 
 # Create output directory
-outputDir <- paste0("mapping_preprocessing/datasources/", sourceName, "/data")
+outputDir <- paste0("datasources/", tolower(sourceName), "/recentData")
 dir.create(outputDir, showWarnings = FALSE)
 
 # Create list to save the mapping data