Merge branch 'fix-get_birthdate' into 'master'

Fix get_birthdate

See merge request !33

processing/wikiproc/R/get_birthdate.R

@@ -63,7 +63,7 @@ getIntroduction <- function(article) {
     xml2::xml_add_sibling("p", "\n")
 
   xml2::xml_find_all(page, ".//br") %>%
-    xml2::xml_remove
+    xml2::xml_remove(.)
 
   # Get all paragraphs
   paragraphs <- page %>%
@@ -73,7 +73,7 @@ getIntroduction <- function(article) {
   # There will be some leading paragraphs containing only "\n"
   # Remove those leading paragraphs
   remove <- c("\n")
-  cleaned <- data.table::setdiff(paragraphs, remove)
+  cleaned <- setdiff(paragraphs, remove)
   introduction <- cleaned[1]
 
   # Return first paragraph

processing/wikiproc/R/utils.R

@@ -27,7 +27,7 @@ get_infobox <- function(article) {
     xml2::xml_add_sibling("p", "\n")
   
   xml2::xml_find_all(page, ".//br") %>%
-    xml2::xml_remove()
+    xml2::xml_remove(.)
   
   # Get the info box
   # Will throw an error if there isnt any, so that should be checked beforehand