R/players.R

In pssguy/epldataBackUp: Datasets from English Premier League 1992-2018

#' total goals a player has scored with right foot, left-foot or header
#'
#' @param id player_id
#' @return a dataframe of goals by scoring method
#' @importFrom magrittr "%>%"
#' @importFrom dplyr filter left_join inner_join count
#' @examples
#' player_scoring_method("KANEH")
#' @export

#
#
# data(players)
# data(player_team)
# data(player_match)
# data(goals)

player_scoring_method <- function(id) {

  players %>%
    filter(player_id==id) %>%
    left_join(player_team) %>%
    left_join(player_game) %>%
    inner_join(goals) %>%
    count(method)
}

#player_scoring_method("KANEH")