Corrects misspelling.

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)