R/overs.R

In Swaha294/ipl: Data and functions for analysing IPL matches played in 2008-2020

#' Calculates the number of overs for the given bowler
#'
#' @param player_name The bowler whose overs has to be calculated, as a character vector
#'
#' @return `overs` returns the number of overs
#'
#' @examples
#'
#' library(ipl)
#'
#' # Calculates the number of overs for Rahul Sharma
#' overs("Rahul Sharma")
#' @importFrom magrittr "%>%"
#' @import dplyr
#'
#' @export
#'
overs <- function(player_name) {
  if (!is.character(player_name)) {
    stop(paste0("Invalid input: ", player_name, " must be a character"))
  }

  if (player_name %in% bowlers_100$player) {
    return(bowlers_100$ov[bowlers_100$player == player_name])
  } else {
    stop("Invalid player name, please input another name")
  }
}