R/runs.R

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

#' Calculates the number of runs for the given bowler
#'
#' @param player_name The bowler whose runs has to be calculated, as a character vector
#'
#' @return `runs` returns the number of runs conceded by the given bowler
#'
#' @examples
#'
#' library(ipl)
#'
#' # Calculates the number of runs for Rahul Sharma
#' runs("Rahul Sharma")
#' @importFrom magrittr "%>%"
#' @import dplyr
#'
#' @export
#'
runs <- function(player_name) {
  if (!is.character(player_name)) {
    stop(paste0("Invalid input: ", player_name, " must be a character"))
  } else if (!(player_name %in% bowlers_100$player)) {
    stop("Invalid player name, please input another name")
  } else {
    return(bowlers_100$runs[bowlers_100$player == player_name])
  }
}