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"