From 44eaeeeb6d2962f66f1a7b38c05f15421a5616fa Mon Sep 17 00:00:00 2001
From: Lulu Roth <ls80zyse@studserv.uni-leipzig.de>
Date: Sun, 6 Jan 2019 13:25:37 +0100
Subject: [PATCH] Add missing library and fix typo
---
r/GetBirthdate.R | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/r/GetBirthdate.R b/r/GetBirthdate.R
index efe63b1..39c4280 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)
}
}
--
GitLab