R/totalscore_funct.R

In unimi-dse/c7e91428: ciccio marcatori serie A analysis

#' sum the values by column
#' @description this function enables to sum the score of a player in all the considered season and obtain the total score
#' @param id character
#' @return integer
#' @examples
#' totalscore("playername")
#'
#' @export
#'

totalscore<- function(dataset=NULL, p="BELOTTI") {
  if (is.null(dataset)==TRUE)
    dataset<-getdata()
  else (dataset<-dataset)
  x <-sum(dataset[[p]])
  return(x)
}