diff --git a/r/GetBirthdate.R b/r/GetBirthdate.R
index 2741b2498984e8d3dc5b34953ae1ea2e2447014f..2f700b236903b6d75721733a95c385e428dfcadf 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(Null)
     }
   }