From 240202167eba75c9bb458d2a8b08d7bd8873bdaf Mon Sep 17 00:00:00 2001 From: Sebastian Carl Date: Fri, 1 Sep 2023 11:14:10 +0200 Subject: [PATCH] adjust some messages --- R/build_nflfastR_pbp.R | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/R/build_nflfastR_pbp.R b/R/build_nflfastR_pbp.R index 0a67836c..b401e835 100644 --- a/R/build_nflfastR_pbp.R +++ b/R/build_nflfastR_pbp.R @@ -61,10 +61,10 @@ build_nflfastR_pbp <- function(game_ids, if (!is.vector(game_ids) && is.data.frame(game_ids)) game_ids <- game_ids$game_id - if (!is.vector(game_ids)) cli::cli_abort("Param {.code game_ids} is not a valid vector!") + if (!is.vector(game_ids)) cli::cli_abort("Param {.arg game_ids} is not a valid vector!") if (isTRUE(decode) && !is_installed("gsisdecoder")) { - cli::cli_abort("Package {.val gsisdecoder} required for decoding. Please install it with {.code install.packages(\"gsisdecoder\")}.") + cli::cli_abort("Package {.pkg gsisdecoder} required for decoding. Please install it with {.code install.packages(\"gsisdecoder\")}.") } if (isTRUE(rules)) rule_header("Build nflfastR Play-by-Play Data") @@ -72,11 +72,7 @@ build_nflfastR_pbp <- function(game_ids, game_count <- ifelse(is.vector(game_ids), length(game_ids), nrow(game_ids)) builder <- TRUE - if (game_count > 1) { - cli::cli_ul("{my_time()} | Start download of {game_count} games...") - } else { - cli::cli_ul("{my_time()} | Start download of {game_count} game...") - } + cli::cli_ul("{my_time()} | Start download of {game_count} game{?s}...") ret <- fast_scraper(game_ids = game_ids, ..., in_builder = builder) %>% clean_pbp(in_builder = builder) %>%