diff --git a/r/GetBirthdate.R b/r/GetBirthdate.R
index efe63b12e04c8f7c05078dbcc21c43796d73e5cd..39c42808756e3c4532b4beb296384c6d8a3793bf 100644
--- a/r/GetBirthdate.R
+++ b/r/GetBirthdate.R
@@ -5,6 +5,7 @@
 library(rvest)
 library(stringr)
 library(data.table)
+library(xml2)
 
 #' Extract birthdate from infobox
 #' Will try to get infobox as table and extract birthdate
@@ -25,7 +26,7 @@ getBirthdate <- function(article) {
       # Remove parentheses
       birthdate <- substring(birthdate, 2, nchar(birthdate)-1)
     } else {
-      # Retrun Null if there is no birthdate
+      # Return Null if there is no birthdate
       return(0)
     }
   }