Merge branch 'master' into '32-add-unit-tests-for-cleanhtml-r'

# Conflicts:
#   processing/wikiproc/R/utils.R

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

@@ -26,8 +26,8 @@ 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