updated website

DESCRIPTION

@@ -9,7 +9,8 @@ Description: usportsR is an R package that contains datasets from 11 Usports san
 License: MIT + file LICENSE
 Imports:
     dplyr,
-    magrittr
+    magrittr,
+    tibble
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.3.2

R/basketball_pbp.R

@@ -14,11 +14,11 @@ basketball_pbp <- function(gender,year = c()) {
   if (gender == "m"){
     seasons <- create_season(year)
     sapply(seasons, function(season) paste0("https://github.com/uwaggs/usports-data/releases/download/basketball_pbp/mens_pbp_",season,".csv",sep = "")) %>%
-      lapply(read_csv) %>% dplyr::bind_rows()
+      lapply(read_csv) %>% dplyr::bind_rows() %>% tibble::tibble()
   }else if(gender == "w"){
     seasons <- create_season(year)
     sapply(seasons, function(season) paste0("https://github.com/uwaggs/usports-data/releases/download/basketball_pbp/womens_pbp_",season,".csv",sep = "")) %>%
-      lapply(read_csv) %>% dplyr::bind_rows()
+      lapply(read_csv) %>% dplyr::bind_rows() %>% tibble::tibble()
   }else{
     stop("Invalid input: 'gender' must be one of 'm' or 'w'")
   }

R/basketball_player_box_score.R

@@ -14,11 +14,11 @@ basketball_player_box_score <- function(gender,year = c()) {
   if (gender == "m"){
     seasons <- create_season(year)
     sapply(seasons, function(season) paste0("https://github.com/uwaggs/usports-data/releases/download/basketball_player_box_score/mens_player_box_score_",season,".csv",sep = "")) %>%
-      lapply(read_csv) %>% dplyr::bind_rows()
+      lapply(read_csv) %>% dplyr::bind_rows() %>% tibble::tibble()
   }else if(gender == "w"){
     seasons <- create_season(year)
     sapply(seasons, function(season) paste0("https://github.com/uwaggs/usports-data/releases/download/basketball_player_box_score/womens_player_box_score_",season,".csv",sep = "")) %>%
-      lapply(read_csv) %>% dplyr::bind_rows()
+      lapply(read_csv) %>% dplyr::bind_rows() %>% tibble::tibble()
   }else{
     stop("Invalid input: 'gender' must be one of 'm' or 'w'")
   }

R/basketball_schedule.R

@@ -8,9 +8,9 @@
 
 basketball_schedule <- function(gender) {
   if (gender == "m"){
-    read_csv("https://github.com/uwaggs/usports-data/releases/download/basketball_schedule/mens_bkb_schedule.csv")
+    read_csv("https://github.com/uwaggs/usports-data/releases/download/basketball_schedule/mens_bkb_schedule.csv") %>% tibble::tibble()
   }else if(gender == "w"){
-    read_csv("https://github.com/uwaggs/usports-data/releases/download/basketball_schedule/womens_bkb_schedule.csv")
+    read_csv("https://github.com/uwaggs/usports-data/releases/download/basketball_schedule/womens_bkb_schedule.csv") %>% tibble::tibble()
   }else{
     stop("Invalid input: 'gender' must be one of 'm' or 'w'")
   }

R/basketball_team_box_score.R

@@ -14,11 +14,11 @@ basketball_team_box_score <- function(gender, year = c()) {
   if (gender == "m"){
     seasons <- create_season(year)
     sapply(seasons, function(season) paste0("https://github.com/uwaggs/usports-data/releases/download/basketball_team_box_score/mens_team_box_score_",season,".csv",sep = "")) %>%
-      lapply(read_csv) %>% dplyr::bind_rows()
+      lapply(read_csv) %>% dplyr::bind_rows() %>% tibble::tibble()
   }else if(gender == "w"){
     seasons <- create_season(year)
     sapply(seasons, function(season) paste0("https://github.com/uwaggs/usports-data/releases/download/basketball_team_box_score/womens_team_box_score_",season,".csv",sep = "")) %>%
-      lapply(read_csv) %>% dplyr::bind_rows()
+      lapply(read_csv) %>% dplyr::bind_rows() %>% tibble::tibble()
   }else{
     stop("Invalid input: 'gender' must be one of 'm' or 'w'")
   }

R/field_hockey_pbp.R

@@ -13,5 +13,5 @@ field_hockey_pbp <- function(year = c()) {
   }
   seasons <- create_season(year)
   sapply(seasons, function(season) paste0("https://github.com/uwaggs/usports-data/releases/download/field_hockey_pbp/womens_pbp_",season,".csv",sep = "")) %>%
-    lapply(read_csv) %>% dplyr::bind_rows()
+    lapply(read_csv) %>% dplyr::bind_rows() %>% tibble::tibble()
 }

R/field_hockey_player_box_score.R

@@ -13,5 +13,5 @@ field_hockey_player_box_score <- function(year = c()) {
   }
   seasons <- create_season(year)
   sapply(seasons, function(season) paste0("https://github.com/uwaggs/usports-data/releases/download/field_hockey_player_box_score/womens_player_box_score_",season,".csv",sep = "")) %>%
-    lapply(read_csv) %>% dplyr::bind_rows()
+    lapply(read_csv) %>% dplyr::bind_rows() %>% tibble::tibble()
 }

R/field_hockey_schedule.R

@@ -6,5 +6,5 @@
 #' @export
 
 field_hockey_schedule <- function() {
-  read_csv("https://github.com/uwaggs/usports-data/releases/download/field_hockey_schedule/womens_fh_schedule.csv")
+  read_csv("https://github.com/uwaggs/usports-data/releases/download/field_hockey_schedule/womens_fh_schedule.csv") %>% tibble::tibble()
 }

R/field_hockey_team_box_score.R

@@ -13,5 +13,5 @@ field_hockey_team_box_score <- function(year = c()) {
   }
   seasons <- create_season(year)
   sapply(seasons, function(season) paste0("https://github.com/uwaggs/usports-data/releases/download/field_hockey_team_box_score/womens_team_box_score_",season,".csv",sep = "")) %>%
-    lapply(read_csv) %>% dplyr::bind_rows()
+    lapply(read_csv) %>% dplyr::bind_rows() %>% tibble::tibble()
 }

R/football_defence.R

@@ -13,5 +13,5 @@ football_defence <- function(year = c()) {
   }
   seasons <- create_season(year)
   sapply(seasons, function(season) paste0("https://github.com/uwaggs/usports-data/releases/download/football_defence/defence_",season,".csv",sep = "")) %>%
-    lapply(read_csv) %>% dplyr::bind_rows()
+    lapply(read_csv) %>% dplyr::bind_rows() %>% tibble::tibble()
 }

R/football_drive_summaries.R

@@ -13,5 +13,5 @@ football_drive_summaries <- function(year = c()) {
   }
   seasons <- create_season(year)
   sapply(seasons, function(season) paste0("https://github.com/uwaggs/usports-data/releases/download/fball_drive_summaries/drive_summaries_",season,".csv",sep = "")) %>%
-    lapply(read_csv) %>% dplyr::bind_rows()
+    lapply(read_csv) %>% dplyr::bind_rows() %>% tibble::tibble()
 }

R/football_kicking.R

@@ -13,5 +13,5 @@ football_kicking <- function(year = c()) {
   }
   seasons <- create_season(year)
   sapply(seasons, function(season) paste0("https://github.com/uwaggs/usports-data/releases/download/football_kicking/kicking_",season,".csv",sep = "")) %>%
-    lapply(read_csv) %>% dplyr::bind_rows()
+    lapply(read_csv) %>% dplyr::bind_rows() %>% tibble::tibble()
 }

R/football_offence.R

@@ -13,5 +13,5 @@ football_offence <- function(year = c()) {
   }
   seasons <- create_season(year)
   sapply(seasons, function(season) paste0("https://github.com/uwaggs/usports-data/releases/download/football_offence/offence_",season,".csv",sep = "")) %>%
-    lapply(read_csv) %>% dplyr::bind_rows()
+    lapply(read_csv) %>% dplyr::bind_rows() %>% tibble::tibble()
 }

R/football_pbp.R

@@ -13,5 +13,5 @@ football_pbp <- function(year = c()) {
   }
   seasons <- create_season(year)
   sapply(seasons, function(season) paste0("https://github.com/uwaggs/usports-data/releases/download/football_pbp/fb_pbp_",season,".csv",sep = "")) %>%
-    lapply(read_csv) %>% dplyr::bind_rows()
+    lapply(read_csv) %>% dplyr::bind_rows() %>% tibble::tibble()
 }

R/football_returns.R

@@ -13,5 +13,5 @@ football_returns <- function(year = c()) {
   }
   seasons <- create_season(year)
   sapply(seasons, function(season) paste0("https://github.com/uwaggs/usports-data/releases/download/football_returns/returns_",season,".csv",sep = "")) %>%
-    lapply(read_csv) %>% dplyr::bind_rows()
+    lapply(read_csv) %>% dplyr::bind_rows() %>% tibble::tibble()
 }

R/football_schedule.R

@@ -6,5 +6,5 @@
 #' @export
 
 football_schedule <- function() {
-  read_csv("https://github.com/uwaggs/usports-data/releases/download/football_schedule/fball_schedule.csv")
+  read_csv("https://github.com/uwaggs/usports-data/releases/download/football_schedule/fball_schedule.csv") %>% tibble::tibble()
 }

R/football_scoring_summaries.R

@@ -13,5 +13,5 @@ football_scoring_summaries <- function(year = c()) {
   }
   seasons <- create_season(year)
   sapply(seasons, function(season) paste0("https://github.com/uwaggs/usports-data/releases/download/football_scoring_summaries/scoring_summaries_",season,".csv",sep = "")) %>%
-    lapply(read_csv) %>% dplyr::bind_rows()
+    lapply(read_csv) %>% dplyr::bind_rows() %>% tibble::tibble()
 }

R/hockey_pbp.R

@@ -15,11 +15,11 @@ hockey_pbp <- function(gender, year = c()) {
   if (gender == "m"){
     seasons <- create_season(year)
     sapply(seasons, function(season) paste0("https://github.com/uwaggs/usports-data/releases/download/hockey_pbp/mens_mice_pbp_",season,".csv",sep = "")) %>%
-      lapply(read_csv) %>% dplyr::bind_rows()
+      lapply(read_csv) %>% dplyr::bind_rows() %>% tibble::tibble()
   }else if(gender == "w"){
     seasons <- create_season(year)
     sapply(seasons, function(season) paste0("https://github.com/uwaggs/usports-data/releases/download/hockey_pbp/womens_wice_pbp_",season,".csv",sep = "")) %>%
-      lapply(read_csv) %>% dplyr::bind_rows()
+      lapply(read_csv) %>% dplyr::bind_rows() %>% tibble::tibble()
   }else{
     stop("Invalid input: 'gender' must be one of 'm' or 'w'")
   }

R/hockey_player_box_score.R

@@ -15,11 +15,11 @@ hockey_player_box_score <- function(gender,year = c()) {
   if (gender == "m"){
     seasons <- create_season(year)
     sapply(seasons, function(season) paste0("https://github.com/uwaggs/usports-data/releases/download/hockey_player_box_score/mens_player_box_score_",season,".csv",sep = "")) %>%
-      lapply(read_csv) %>% dplyr::bind_rows()
+      lapply(read_csv) %>% dplyr::bind_rows() %>% tibble::tibble()
   }else if(gender == "w"){
     seasons <- create_season(year)
     sapply(seasons, function(season) paste0("https://github.com/uwaggs/usports-data/releases/download/hockey_player_box_score/womens_player_box_score_",season,".csv",sep = "")) %>%
-      lapply(read_csv) %>% dplyr::bind_rows()
+      lapply(read_csv) %>% dplyr::bind_rows() %>% tibble::tibble()
   }else{
     stop("Invalid input: 'gender' must be one of 'm' or 'w'")
   }

R/hockey_schedule.R

@@ -8,9 +8,9 @@
 
 hockey_schedule <- function(gender) {
   if (gender == "m"){
-    read_csv("https://github.com/uwaggs/usports-data/releases/download/hockey_schedule/mens_mice_schedule.csv")
+    read_csv("https://github.com/uwaggs/usports-data/releases/download/hockey_schedule/mens_mice_schedule.csv") %>% tibble::tibble()
   }else if(gender == "w"){
-    read_csv("https://github.com/uwaggs/usports-data/releases/download/hockey_schedule/womens_wice_schedule.csv")
+    read_csv("https://github.com/uwaggs/usports-data/releases/download/hockey_schedule/womens_wice_schedule.csv") %>% tibble::tibble()
   }else{
     stop("Invalid input: 'gender' must be one of 'm' or 'w'")
   }

R/hockey_team_box_score.R

@@ -15,11 +15,11 @@ hockey_team_box_score <- function(gender,year = c()) {
   if (gender == "m"){
     seasons <- create_season(year)
     sapply(seasons, function(season) paste0("https://github.com/uwaggs/usports-data/releases/download/hockey_team_box_score/mens_team_box_score_",season,".csv",sep = "")) %>%
-      lapply(read_csv) %>% dplyr::bind_rows()
+      lapply(read_csv) %>% dplyr::bind_rows() %>% tibble::tibble()
   }else if(gender == "w"){
     seasons <- create_season(year)
     sapply(seasons, function(season) paste0("https://github.com/uwaggs/usports-data/releases/download/hockey_team_box_score/womens_team_box_score_",season,".csv",sep = "")) %>%
-      lapply(read_csv) %>% dplyr::bind_rows()
+      lapply(read_csv) %>% dplyr::bind_rows() %>% tibble::tibble()
   }else{
     stop("Invalid input: 'gender' must be one of 'm' or 'w'")
   }

R/rugby_schedules.R

@@ -11,7 +11,7 @@ rugby_schedule <- function(gender) {
   if (gender == "m"){
     data.frame()
   }else if(gender == "w"){
-    read_csv("https://github.com/uwaggs/usports-data/releases/download/rugby_schedule/Womens_rugby_schedule.csv")
+    read_csv("https://github.com/uwaggs/usports-data/releases/download/rugby_schedule/Womens_rugby_schedule.csv") %>% tibble::tibble()
   }else{
     stop("Invalid input: 'gender' must be one of 'm' or 'w'")
   }

R/soccer_pbp.R

@@ -15,11 +15,11 @@ soccer_pbp <- function(gender,year = c()) {
   if (gender == "m"){
     seasons <- create_season(year)
     sapply(seasons, function(season) paste0("https://github.com/uwaggs/usports-data/releases/download/Soccer_pbp/mens_msoc_pbp_",season,".csv",sep = "")) %>%
-      lapply(read_csv) %>% dplyr::bind_rows()
+      lapply(read_csv) %>% dplyr::bind_rows() %>% tibble::tibble()
   }else if(gender == "w"){
     seasons <- create_season(year)
     sapply(seasons, function(season) paste0("https://github.com/uwaggs/usports-data/releases/download/Soccer_pbp/womens_wsoc_pbp_",season,".csv",sep = "")) %>%
-      lapply(read_csv) %>% dplyr::bind_rows()
+      lapply(read_csv) %>% dplyr::bind_rows() %>% tibble::tibble()
   }else{
     stop("Invalid input: 'gender' must be one of 'm' or 'w'")
   }

R/soccer_player_box_score.R

@@ -15,11 +15,11 @@ soccer_player_box_score <- function(gender,year = c()) {
   if (gender == "m"){
     seasons <- create_season(year)
     sapply(seasons, function(season) paste0("https://github.com/uwaggs/usports-data/releases/download/soccer_player_box_score/mens_player_box_score_",season,".csv",sep = "")) %>%
-      lapply(read_csv) %>% dplyr::bind_rows()
+      lapply(read_csv) %>% dplyr::bind_rows() %>% tibble::tibble()
   }else if(gender == "w"){
     seasons <- create_season(year)
     sapply(seasons, function(season) paste0("https://github.com/uwaggs/usports-data/releases/download/soccer_player_box_score/womens_player_box_score_",season,".csv",sep = "")) %>%
-      lapply(read_csv) %>% dplyr::bind_rows()
+      lapply(read_csv) %>% dplyr::bind_rows() %>% tibble::tibble()
   }else{
     stop("Invalid input: 'gender' must be one of 'm' or 'w'")
   }

R/soccer_schedule.R

@@ -8,9 +8,9 @@
 
 soccer_schedule <- function(gender) {
   if (gender == "m"){
-    read_csv("https://github.com/uwaggs/usports-data/releases/download/Soccer_Schedule/mens_msoc_schedule.csv")
+    read_csv("https://github.com/uwaggs/usports-data/releases/download/Soccer_Schedule/mens_msoc_schedule.csv") %>% tibble::tibble()
   }else if(gender == "w"){
-    read_csv("https://github.com/uwaggs/usports-data/releases/download/Soccer_Schedule/womens_wsoc_schedule.csv")
+    read_csv("https://github.com/uwaggs/usports-data/releases/download/Soccer_Schedule/womens_wsoc_schedule.csv") %>% tibble::tibble()
   }else{
     stop("Invalid input: 'gender' must be one of 'm' or 'w'")
   }

R/soccer_team_box_score.R

@@ -15,11 +15,11 @@ soccer_team_box_score <- function(gender,year = c()) {
   if (gender == "m"){
     seasons <- create_season(year)
     sapply(seasons, function(season) paste0("https://github.com/uwaggs/usports-data/releases/download/soccer_team_box_score/mens_team_box_score_",season,".csv",sep = "")) %>%
-      lapply(read_csv) %>% dplyr::bind_rows()
+      lapply(read_csv) %>% dplyr::bind_rows() %>% tibble::tibble()
   }else if(gender == "w"){
     seasons <- create_season(year)
     sapply(seasons, function(season) paste0("https://github.com/uwaggs/usports-data/releases/download/soccer_team_box_score/womens_team_box_score_",season,".csv",sep = "")) %>%
-      lapply(read_csv) %>% dplyr::bind_rows()
+      lapply(read_csv) %>% dplyr::bind_rows() %>% tibble::tibble()
   }else{
     stop("Invalid input: 'gender' must be one of 'm' or 'w'")
   }

R/swimming_athlete_rankings.R

@@ -5,6 +5,6 @@
 #' swimming_athlete_rankings()
 #' @export
 swimming_athlete_rankings <- function(){
-  read_csv("https://github.com/uwaggs/usports-data/releases/download/swimming_team_rankings/swimming_team_rankings.csv")
+  read_csv("https://github.com/uwaggs/usports-data/releases/download/swimming_team_rankings/swimming_team_rankings.csv") %>% tibble::tibble()
 }
 

R/swimming_team_rankings.R

@@ -5,7 +5,7 @@
 #' swimming_team_rankings()
 #' @export
 swimming_team_rankings <- function(){
-  read_csv("https://github.com/uwaggs/usports-data/releases/tag/swimming_team_rankings/swimming_team_rankings.csv")
+  read_csv("https://github.com/uwaggs/usports-data/releases/tag/swimming_team_rankings/swimming_team_rankings.csv") %>% tibble::tibble()
 }
 
 

R/tnf_athlete_rankings.R

@@ -6,6 +6,6 @@
 #' @export
 
 tnf_athlete_rankings <- function(){
-  read_csv("https://github.com/uwaggs/usports-data/releases/download/tnf_athlete_rankings/tnf_athlete_rankings.csv")
+  read_csv("https://github.com/uwaggs/usports-data/releases/download/tnf_athlete_rankings/tnf_athlete_rankings.csv") %>% tibble::tibble()
 }
 

R/tnf_meet_results.R

@@ -6,6 +6,6 @@
 #' @export
 
 tnf_meet_results <- function(){
-  read_csv("https://github.com/uwaggs/usports-data/releases/download/tnf_meet_results/tnf_meet_results.csv")
+  read_csv("https://github.com/uwaggs/usports-data/releases/download/tnf_meet_results/tnf_meet_results.csv") %>% tibble::tibble()
 }
 

R/tnf_rosters.R

@@ -6,5 +6,5 @@
 #' @export
 
 tnf_rosters <- function(){
-  read_csv("https://github.com/uwaggs/usports-data/releases/download/tnf_rosters/tnf_rosters.csv")
+  read_csv("https://github.com/uwaggs/usports-data/releases/download/tnf_rosters/tnf_rosters.csv") %>% tibble::tibble()
 }

R/tnf_team_rankings.R

@@ -6,5 +6,5 @@
 #' @export
 
 tnf_team_rankings <- function(){
-  read_csv("https://github.com/uwaggs/usports-data/releases/download/tnf_team_rankings/tnf_team_rankings.csv")
+  read_csv("https://github.com/uwaggs/usports-data/releases/download/tnf_team_rankings/tnf_team_rankings.csv") %>% tibble::tibble()
 }

R/tnf_universities.R

@@ -6,5 +6,5 @@
 #' @export
 
 tnf_universities <- function(){
-  read_csv("https://github.com/uwaggs/usports-data/releases/download/tnf_universities/tnf_universities.csv")
+  read_csv("https://github.com/uwaggs/usports-data/releases/download/tnf_universities/tnf_universities.csv") %>% tibble::tibble()
 }

R/volleyball_pbp.R

@@ -14,11 +14,11 @@ volleyball_pbp <- function(gender, year = c()) {
   if (gender == "m"){
     seasons <- create_season(year)
     sapply(seasons, function(season) paste0("https://github.com/uwaggs/usports-data/releases/download/volleybal_pbp/mens_vb_pbp_",season,".csv",sep = "")) %>%
-      lapply(read_csv) %>% dplyr::bind_rows()
+      lapply(read_csv) %>% dplyr::bind_rows() %>% tibble::tibble()
   }else if(gender == "w"){
     seasons <- create_season(year)
     sapply(seasons, function(season) paste0("https://github.com/uwaggs/usports-data/releases/download/volleybal_pbp/womens_vb_pbp_",season,".csv",sep = "")) %>%
-      lapply(read_csv) %>% dplyr::bind_rows()
+      lapply(read_csv) %>% dplyr::bind_rows() %>% tibble::tibble()
   }else{
     stop("Invalid input: 'gender' must be one of 'm' or 'w'")
   }

R/volleyball_player_box_score.R

@@ -15,11 +15,11 @@ volleyball_player_box_score <- function(gender, year = c()) {
   if (gender == "m"){
     seasons <- create_season(year)
     sapply(seasons, function(season) paste0("https://github.com/uwaggs/usports-data/releases/download/volleyball_player_box_score/mens_vb_player_box_score_",season,".csv",sep = "")) %>%
-      lapply(read_csv) %>% dplyr::bind_rows()
+      lapply(read_csv) %>% dplyr::bind_rows() %>% tibble::tibble()
   }else if(gender == "w"){
     seasons <- create_season(year)
     sapply(seasons, function(season) paste0("https://github.com/uwaggs/usports-data/releases/download/volleyball_player_box_score/womens_vb_player_box_score_",season,".csv",sep = "")) %>%
-      lapply(read_csv) %>% dplyr::bind_rows()
+      lapply(read_csv) %>% dplyr::bind_rows() %>% tibble::tibble()
   }else{
     stop("Invalid input: 'gender' must be one of 'm' or 'w'")
   }

R/volleyball_schedule.R

@@ -8,9 +8,9 @@
 
 volleyball_schedule <- function(gender) {
   if (gender == "m"){
-    read_csv("https://github.com/uwaggs/usports-data/releases/download/volleyball_schedule/mens_vball_schedule.csv")
+    read_csv("https://github.com/uwaggs/usports-data/releases/download/volleyball_schedule/mens_vball_schedule.csv") %>% tibble::tibble()
   }else if(gender == "w"){
-    read_csv("https://github.com/uwaggs/usports-data/releases/download/volleyball_schedule/womens_vball_schedule.csv")
+    read_csv("https://github.com/uwaggs/usports-data/releases/download/volleyball_schedule/womens_vball_schedule.csv") %>% tibble::tibble()
   }else{
     stop("Invalid input: 'gender' must be one of 'm' or 'w'")
   }

R/volleyball_team_box_score.R

@@ -14,11 +14,11 @@ volleyball_team_box_score <- function(gender, year = c()) {
   if (gender == "m"){
     seasons <- create_season(year)
     sapply(seasons, function(season) paste0("https://github.com/uwaggs/usports-data/releases/download/volleyball_team_box_score/mens_team_box_score_",season,".csv",sep = "")) %>%
-      lapply(read_csv) %>% dplyr::bind_rows()
+      lapply(read_csv) %>% dplyr::bind_rows() %>% tibble::tibble()
   }else if(gender == "w"){
     seasons <- create_season(year)
     sapply(seasons, function(season) paste0("https://github.com/uwaggs/usports-data/releases/download/volleyball_team_box_score/womens_team_box_score_",season,".csv",sep = "")) %>%
-      lapply(read_csv) %>% dplyr::bind_rows()
+      lapply(read_csv) %>% dplyr::bind_rows() %>% tibble::tibble()
   }else{
     stop("Invalid input: 'gender' must be one of 'm' or 'w'")
   }