R/get_points.R

In skoval/courtvisionr: Functions to extract court vision data for Grand Slam analysis

#' Create point-level data.table for court vision match
#' @param x List from JSON input, return from \code{get_match}
#' @param matchid character matchid as on grand slam results page (e.g. 'MS001')
#' @param year Year of match (yyyy)
#' @param event Character name of event
#' @export
#' @examples
#' get_points(get_match(2021, "MS701", "ao"), "MS701", 2021)
get_points <- function(x, matchid = NULL, year = NULL, event = NULL){
	
	points <- lapply(x$pointsData, get_trajectory)
	
	points <- rbindlist(points)
	
	players <- rbindlist(lapply(x$playersData, as.data.table))
	
	points <- merge(
		points,
		players[, .(server = id, servername = name)],
		by = "server"
	)
	
	points <- merge(
		points,
		players[, .(receiver = id, receivername = name)],
		by = "receiver"
	)
	
	points <- points[, matchid := matchid]
	points <- points[, year := year]
	points <- points[, event := event]	
	
return(points)
}