Aendert '0' zu 'NULL' in GetBirthdate.R

r/GetBirthdate.R

@@ -26,7 +26,7 @@ getBirthdate <- function(article) {
       birthdate <- substring(birthdate, 2, nchar(birthdate)-1)
     } else {
       # Retrun Null if there is no birthdate
-      return(0)
+      return(Null)
     }
   }