R/update_score_tiebreak10.R

In skoval/inmatch_api: Dynamic In-Match Prediction

#' Update Score with Tiebreak10 Final Set

#'

#' Check score change based on result of current point and return score in terms of serving player of the previous point

#'

#' @param point_a Numeric game points won by current server at start of point

#' @param point_b Numeric game points won by current returner at start of point

#' @param game_a Numeric games won by current server in the current set

#' @param game_b Numeric games won by current returner in the current set

#' @param set_a Numeric sets won by current server

#' @param set_b Numeric sets won by current returner

#' @param set_b Numeric sets won by current returner

#' @param bestof3 Logical indicator if best-of-3 match

#'

#' @export

update_score_tiebreak10 <- function(pointa, pointb, gamea, gameb, seta, setb, bestof3 = T){

			

			regular.tiebreak <- (gamea + gameb) == 12 & (seta + setb) != ifelse(bestof3, 2, 4) 
			
			tiebreak10 <- (gamea + gameb) == 12 & (seta + setb) == ifelse(bestof3, 2, 4) 


			

			serve.changed <- FALSE
			

			is.game.won <- function(pointa, pointb, regular.tiebreak, tiebreak10){

				

				if(regular.tiebreak)

					pointa >= 7 & (pointa - pointb) >= 2
				else if(tiebreak10)
				      pointa >= 10 & (pointa - pointb) >= 2

				else
					pointa >= 4 & (pointa - pointb) >= 2

			}

			

			

			is.set.won <- function(gamea, gameb, tiebreak){

				if(tiebreak)

					gamea >= 7 & gameb <= 6

				else

					gamea >= 6 & (gamea - gameb) >= 2

			}

			

			

			if(is.game.won(pointa, pointb, regular.tiebreak, tiebreak10)){

				pointa <- 0

				pointb <- 0

				gamea <- gamea + 1

				serve.changed <- TRUE

			}

									

			if(is.game.won(pointb, pointa, regular.tiebreak, tiebreak10)){

				pointa <- 0

				pointb <- 0

				gameb <- gameb + 1

				serve.changed <- TRUE

			}

						

			if(is.set.won(gamea, gameb, regular.tiebreak | tiebreak10)){

				gamea <- 0

				gameb <- 0

				seta <- seta + 1

			}

				

			if(is.set.won(gameb, gamea, regular.tiebreak | tiebreak10)){

				gamea <- 0

				gameb <- 0

				setb <- setb + 1

			}	

			

			# Point adjustments remaining after game/set outcomes

			if(pointa >= 6 & pointb >= 6 & pointa > pointb & regular.tiebreak){

				pointa <- 6

				pointb <- 5

			}
			
			
			if(pointa >= 9 & pointb >= 9 & pointa > pointb &  tiebreak10){

				pointa <- 9

				pointb <- 8

			}

	

	

			if(pointa >= 6 & pointb >= 6 & pointa < pointb & regular.tiebreak){

				pointa <- 5

				pointb <- 6

			}
			
			if(pointa >= 9 & pointb >= 9 & pointa < pointb & tiebreak10){

				pointa <- 8

				pointb <- 9

			}

			
			if(pointa >= 6 & pointb >= 6 & pointa == pointb & regular.tiebreak){

				pointa <- 6

				pointb <- 6

			}	

			

			if(pointa >= 9 & pointb >= 9 & pointa == pointb & tiebreak10){

				pointa <- 9

				pointb <- 9

			}	

			

			

			if(pointa >= 3 & pointb >= 3 & pointa > pointb & !(regular.tiebreak | tiebreak10)){

				pointa <- 3

				pointb <- 2

			}

	

			if(pointa >= 3 & pointb >= 3 & pointa < pointb & !(regular.tiebreak | tiebreak10)){

				pointa <- 2

				pointb <- 3

			}

			

			if(pointa >= 3 & pointb >= 3 & pointa == pointb & !(regular.tiebreak | tiebreak10)){

				pointa <- 3

				pointb <- 3

			}						


			if(regular.tiebreak | tiebreak10){

				if(((pointa + pointb) %% 2) == 1) 

					serve.changed <- T

			}

			

			if(serve.changed)						

				data.frame(

					pointa = pointb, 

					pointb = pointa, 

					gamea = gameb, 

					gameb = gamea, 

					seta = setb,

					setb = seta,

					serve.changed = serve.changed

				)

			else

				data.frame(

					pointa = pointa, 

					pointb = pointb, 

					gamea = gamea, 

					gameb = gameb, 

					seta = seta,

					setb = setb,

					serve.changed = serve.changed

				)			

}