team <- c("GitClub", "ggplot3", "Ctrl + Alt + Elite",
"Big Meta Watchers", "Win Rs", "Red Pandas", "Data Dawgs")
set.seed(2024)
(present_order <- sample(team, size = 7, replace = FALSE))[1] "ggplot3" "Win Rs" "Red Pandas"
[4] "Big Meta Watchers" "Ctrl + Alt + Elite" "GitClub"
[7] "Data Dawgs"