13-N.Dorka, Jr.

Author: JackStat

R/cleanPlayers.R

@@ -20,6 +20,10 @@ cleanPlayers <- function(x){
   # Players with single qoute in name...
   x$scoreText <- gsub("([0-9]{0,3}-[A-Z]{1,1}\\.[A-Z]{1,1})'([A-Z]{1,1}[a-z]{1,20})",'\\1-\\2', x$scoreText)
 
+  # 13-N.Dorka, Jr.
+  x$scoreText <- gsub("([0-9]{0,3}-[A-Z]{1,1}\\.[A-Z]{1,1}[a-z]{1,20}), (Jr)\\.",'\\1-\\2', x$scoreText)
+
+  
   x
 
 }

tests/testthat/test_cleanPlayers.R

@@ -6,6 +6,7 @@ TestFrame <- data.frame(
     ,"7-G.Hankerson complete to 15-M. Street. 15-M. Street to NFS 47 for 10 yards."
     ,"19-T.St.Germain punts 50 yards from NIC 9 to ULM 41, fair catch by 8-J.Williams."
     ,"8-T.Figaro complete to 3-D.Watson II. 3-D.Watson II to ULM 26 for 8 yards."
+    ,"13-N.Dorka, Jr. 21 yards Field Goal is Good."
     )
   )
 
@@ -20,6 +21,7 @@ test_that("Player names are correctly cleaned", {
       ,"7-G.Hankerson complete to 15-M.Street. 15-M.Street to NFS 47 for 10 yards."
       ,"19-T.St-Germain punts 50 yards from NIC 9 to ULM 41, fair catch by 8-J.Williams."
       ,"8-T.Figaro complete to 3-D.Watson-II. 3-D.Watson-II to ULM 26 for 8 yards."
+      ,"13-N.Dorka-Jr 21 yards Field Goal is Good."
       )
     )
 })