Merge pull request #35 from sportsdataverse/pwhl_scraper

Updating PWHL Functions
sportsdataverse · Feb 24, 2024 · 63e4b4b · 63e4b4b
2 parents b4cc412 + 8ffcc04
commit 63e4b4b
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/R/pwhl_pbp.R b/R/pwhl_pbp.R
@@ -8,12 +8,10 @@
 #' @import httr
 #' @importFrom glue glue
 #' @export
-#' @examples
-#' \donttest{
-#'   try(pwhl_team_roster(season = 2023, team = "Toronto"))
+#' @examples \donttest{
+#'   try(pwhl_pbp(game_id = 27))
 #' }
 
-
 pwhl_pbp <- function(game_id) {
 
   URL <- glue::glue("https://lscluster.hockeytech.com/feed/index.php?feed=statviewfeed&view=gameCenterPlayByPlay&game_id={game_id}&key=694cfeed58c932ee&client_code=pwhl&lang=en&league_id=&callback=angular.callbacks._8")

diff --git a/R/pwhl_standings.R b/R/pwhl_standings.R
@@ -8,6 +8,7 @@
 #' @import dplyr
 #' @import httr
 #' @importFrom glue glue
+#' @export
 
 pwhl_standings <- function(season = 2023, regular = TRUE) {
   if (regular) {

diff --git a/R/pwhl_stat_leaders.R b/R/pwhl_stat_leaders.R
@@ -11,6 +11,7 @@
 #' @import httr
 #' @importFrom glue glue
 #' @import tidyverse
+#' @export
 
 pwhl_stats <- function(position = "goalie", team = "BOS", season = 2023, regular = TRUE) {
   team_id <- pwhl_teams() %>%