/
cleanPlayers.R
29 lines (19 loc) · 1.05 KB
/
cleanPlayers.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
#' @title Clean Player Names
#'
#'
#' @export
cleanPlayers <- function(x){
# Players with spaces in last name
x$scoreText <- gsub("([0-9]{0,3}-[A-Z]{1,1}\\.[A-Z]{1,1}[a-z]{1,20})(\\ |\\-)([A-Z]{1,1}[a-z]{1,20})",'\\1-\\3', x$scoreText)
x$scoreText <- gsub("([0-9]{0,3}-[A-Z]{1,1}\\.) ([A-Z]{1,1}[a-z]{1,20})",'\\1\\2', x$scoreText)
#3-D.Watson II
x$scoreText <- gsub("([0-9]{0,3}-[A-Z]{1,1}\\.[A-Z]{1,1}[a-z]{1,20})(\\ |\\-)([A-Z]{1,2})",'\\1-\\3', x$scoreText)
# Players with period in name...
x$scoreText <- gsub("([0-9]{0,3}-[A-Z]{1,1}\\.[A-Z]{1,1}[a-z]{1,20})(\\ |\\-)([A-Z]{1,1}[a-z]{1,20})(\\.)( to| from)",'\\1-\\3\\5', x$scoreText)
x$scoreText <- gsub("([0-9]{0,3}-[A-Z]{1,1}\\.[A-Z]{1,1}[a-z]{1,3})\\.([A-Z]{1,1}[a-z]{1,20})",'\\1-\\2', x$scoreText)
# 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
}