diff --git a/r/GetBirthdate.R b/r/GetBirthdate.R
index a925372dabe219beb4ccf7593f00990c1e9e159c..a00060c918e11e1e5dd3c67ab554f3d8878c0726 100644
--- a/r/GetBirthdate.R
+++ b/r/GetBirthdate.R
@@ -13,7 +13,7 @@ library(data.table)
 ### Try to extract birthdate from infobox
 ### If there is no infobox, try to extract from introduction text
 getBirthdate <- function(article) {
-  # check
+  # check if vcard exists
   if(!grepl("vcard", article)) {
     # check first paragraph
     introduction <- getIntroduction(article)
@@ -22,6 +22,8 @@ getBirthdate <- function(article) {
       birthdate <- str_extract_all(introduction, "\\([^()]+\\)")[[1]]
       # remove parentheses
       birthdate <- substring(birthdate, 2, nchar(birthdate)-1)
+
+      return(birthdate)
     } else {
       # retrun Null if there is no birthdate
       return(0)