diff --git a/r/GetBirthdate.R b/r/GetBirthdate.R
index 2f700b236903b6d75721733a95c385e428dfcadf..21f61a5f57ec5f5dd475d06c32087c2f19a250a0 100644
--- a/r/GetBirthdate.R
+++ b/r/GetBirthdate.R
@@ -27,7 +27,7 @@ getBirthdate <- function(article) {
       birthdate <- substring(birthdate, 2, nchar(birthdate)-1)
     } else {
       # Return Null if there is no birthdate
-      return(Null)
+      return(NULL)
     }
   }