We will fetch four team-level views: zone time, skating speed, shot
speed, and shot location. A few helper functions make the article more
resilient when a nested EDGE response is temporarily incomplete.
# Define team set.
team_ids <- c(CAR = 12, COL = 21, EDM = 22, FLA = 13, WSH = 15)
# Define robust helpers.
fetch_with_retry <- function(fetch_fun, validator, tries = 3) {
for (i in seq_len(tries)) {
value <- try(fetch_fun(), silent = TRUE)
if (!inherits(value, 'try-error') && validator(value)) {
return(value)
}
Sys.sleep(i / 4)
}
NULL
}
valid_df <- function(x, required_cols) {
is.data.frame(x) && nrow(x) > 0 && all(required_cols %in% names(x))
}
safe_num <- function(x) {
out <- suppressWarnings(as.numeric(x))
ifelse(is.na(out), NA_real_, out)
}
safe_name <- function(first_name, last_name) {
if (
is.na(first_name) ||
is.na(last_name) ||
first_name == '' ||
last_name == ''
) {
return(NA_character_)
}
paste(first_name, last_name)
}
safe_summary_num <- function(x, path) {
value <- tryCatch({
for (nm in path) x <- x[[nm]]
x
}, error = function(e) NA_real_)
safe_num(value)
}
# Build one profile row.
build_team_profile <- function(team_code, team_id) {
team_summary <- fetch_with_retry(
function() nhlscraper::team_edge_summary(
team = team_id,
season = 20242025,
game_type = 2
),
function(x) is.list(x)
)
zone_rows <- fetch_with_retry(
function() nhlscraper::team_edge_zone_time(
team = team_id,
season = 20242025,
game_type = 2,
category = 'details'
),
function(x) valid_df(x, c('strengthCode', 'offensiveZonePctg'))
)
skating_rows <- fetch_with_retry(
function() nhlscraper::team_edge_skating_speed(
team = team_id,
season = 20242025,
game_type = 2,
category = 'details'
),
function(x) valid_df(x, c('positionCode', 'maxSkatingSpeed.imperial', 'burstsOver22.value'))
)
shot_speed_rows <- fetch_with_retry(
function() nhlscraper::team_edge_shot_speed(
team = team_id,
season = 20242025,
game_type = 2,
category = 'details'
),
function(x) valid_df(x, c('position', 'topShotSpeed.imperial', 'shotAttempts90To100.value'))
)
shot_location_rows <- fetch_with_retry(
function() nhlscraper::team_edge_shot_location(
team = team_id,
season = 20242025,
game_type = 2,
category = 'details'
),
function(x) valid_df(x, c('area', 'sog'))
)
if (
is.null(zone_rows) ||
is.null(skating_rows) ||
is.null(shot_speed_rows) ||
is.null(shot_location_rows)
) {
return(data.frame(
team = team_code,
points = safe_summary_num(team_summary, c('team', 'points')),
wins = safe_summary_num(team_summary, c('team', 'wins')),
offensiveZonePctg = NA_real_,
maxSkatingSpeed = NA_real_,
burstsOver22 = NA_real_,
shotAttemptsOver90 = NA_real_,
hardestShot = NA_real_,
trackedShots = NA_real_,
interiorShare = NA_real_,
circleShare = NA_real_,
pointShare = NA_real_,
fastestSkater = NA_character_,
hardestShooter = NA_character_,
stringsAsFactors = FALSE
))
}
zone_row <- zone_rows[zone_rows[['strengthCode']] == 'all', , drop = FALSE]
skating_row <- skating_rows[skating_rows[['positionCode']] == 'all', , drop = FALSE]
shot_speed_row <- shot_speed_rows[shot_speed_rows[['position']] == 'all', , drop = FALSE]
if (!nrow(zone_row)) zone_row <- zone_rows[1, , drop = FALSE]
if (!nrow(skating_row)) skating_row <- skating_rows[1, , drop = FALSE]
if (!nrow(shot_speed_row)) shot_speed_row <- shot_speed_rows[1, , drop = FALSE]
interior_mask <- shot_location_rows[['area']] %in% c(
'Crease',
'Low Slot',
'L Net Side',
'R Net Side'
)
circle_mask <- shot_location_rows[['area']] %in% c(
'High Slot',
'L Circle',
'R Circle'
)
point_mask <- shot_location_rows[['area']] %in% c(
'Center Point',
'L Point',
'R Point',
'Outside L',
'Outside R',
'Beyond Red Line'
)
total_shots <- sum(shot_location_rows[['sog']], na.rm = TRUE)
data.frame(
team = team_code,
points = safe_summary_num(team_summary, c('team', 'points')),
wins = safe_summary_num(team_summary, c('team', 'wins')),
offensiveZonePctg = safe_num(zone_row[['offensiveZonePctg']][1]),
maxSkatingSpeed = safe_num(skating_row[['maxSkatingSpeed.imperial']][1]),
burstsOver22 = safe_num(skating_row[['burstsOver22.value']][1]),
shotAttemptsOver90 = sum(
safe_num(shot_speed_row[['shotAttemptsOver100.value']][1]),
safe_num(shot_speed_row[['shotAttempts90To100.value']][1]),
na.rm = TRUE
),
hardestShot = safe_num(shot_speed_row[['topShotSpeed.imperial']][1]),
trackedShots = total_shots,
interiorShare = sum(shot_location_rows[['sog']][interior_mask], na.rm = TRUE) / total_shots,
circleShare = sum(shot_location_rows[['sog']][circle_mask], na.rm = TRUE) / total_shots,
pointShare = sum(shot_location_rows[['sog']][point_mask], na.rm = TRUE) / total_shots,
fastestSkater = safe_name(
skating_row[['maxSkatingSpeed.overlay.player.firstName.default']][1],
skating_row[['maxSkatingSpeed.overlay.player.lastName.default']][1]
),
hardestShooter = safe_name(
shot_speed_row[['topShotSpeed.overlay.player.firstName.default']][1],
shot_speed_row[['topShotSpeed.overlay.player.lastName.default']][1]
),
stringsAsFactors = FALSE
)
}
# Build profile table.
team_profiles <- Map(
build_team_profile,
team_code = names(team_ids),
team_id = unname(team_ids)
)
team_profiles <- do.call(rbind, team_profiles)
rownames(team_profiles) <- NULL
profile_table <- team_profiles[, c(
'team',
'points',
'wins',
'offensiveZonePctg',
'maxSkatingSpeed',
'burstsOver22',
'shotAttemptsOver90',
'hardestShot',
'interiorShare'
)]
make_table(
profile_table,
caption = 'Five-team 2024-25 EDGE profile comparison.',
digits = 3
)
