R/getBattingData.R

In gghatano/npbOfficialData: npbOfficialData

#' Get player stats data from NPB official page
#' @param batter profile page URL of NPB
#'
#' @return player data(data.frame)
#'
#' @export

getPlayerSeasonData <- function(profile_page_url = "http://bis.npb.or.jp/players/51953886.html"){

  profile_page_html = rvest::html(profile_page_url)

  ## ポジション
  position =
    profile_page_html %>%
    rvest::html_node(xpath='//*[@id="registerdivtitle"]/table/tr[3]/td[2]') %>%
    rvest::html_text()

  ## 選手名
  player_name =
    profile_page_html %>%
    html_node(xpath='//*[@id="registerdivtitle"]/table/tr[2]') %>%
    html_text()

  ## 成績テーブル
  year_stats_table = profile_page_html %>%
    html_node('#registermaintbl > table') %>%
    html_table

  if(position != "投手"){
    year_stats_table %>%
      data.table::setnames(c("YEAR", "TEAM", "GAME",
                             "PA", "AB", "RUN",
                             "H", "DOUBLE", "TRIPLE", "HR", "BASE", "RBI", "STL",
                             "STLB", "SB", "SF", "BB", "DEAD", "SO", "DP", "AVG", "ISO", "OBP"))
    year_stats_df =
      year_stats_table %>%
      dplyr::mutate(SINGLE = H - DOUBLE - TRIPLE - HR) %>%
      dplyr::mutate(NAME = player_name) %>%
      dplyr::filter(TEAM != "通　算") %>%
      dplyr::select(YEAR, TEAM, NAME, PA, AB,
                    H, SINGLE, DOUBLE, TRIPLE, HR, BASE,
                    RUN, RBI, SO,
                    BB, DEAD, AVG)
    return(year_stats_df)
  } else {
    year_stats_table %>%
      data.table::setnames(c("YEAR", "TEAM", "GAME",
                             "WIN", "LOSE", "SAVE", "HOLD",
                             "COMPLETE", "SHUTOUT", "NOBB", "WINPROB", "BATTER",
                             "INNING", "INNING_OUT", "HIT", "HR", "BB", "DEAD", "SO",
                             "WILD", "BOK", "RUNS", "EARNEDRUN", "ERA"))
    year_stats_table %>%
      dplyr::filter(TEAM != "通　算") %>%
      dplyr::mutate(NAME = player_name) %>%
      return
  }
}