## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  eval = FALSE
)

## ----setup--------------------------------------------------------------------
# library(matchpointR)

## -----------------------------------------------------------------------------
# url <- wta_player_url(320301, "katerina-siniakova")
# 
# bio <- wta_get_player_basics(url, download_images = FALSE)
# bio

## -----------------------------------------------------------------------------
# wta_get_player_overview(url)

## -----------------------------------------------------------------------------
# matches_url <- wta_player_url(320301, "katerina-siniakova", "matches")
# matches <- wta_get_player_matches(matches_url)
# head(matches)

## -----------------------------------------------------------------------------
# wta_get_rankings("singles", top = 50)
# wta_get_rankings("doubles", top = 50)