Aendert return Statement von '0' aud 'NULL' in getBirthdate.R.

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)
     }
   }