R/tidy_rankings_data.R

In skoval/deuce: Resources for Analysis of Professional Tennis Data

#' @export
tidy_rankings_data <- function(data){
	
	names(data) <- c(
		"ranking_date",
		"ranking",
		"player_id",
		"ranking_points"
	)
	
	data$ranking_points[grepl("[[:punct:]]", data$ranking_points)] <- NA
	data$ranking[grepl("[[:punct:]]", data$ranking)] <- NA
	
	data$date <- ymd(data$ranking_date)


data
}