R Notebook

# Carregar pacote
pacman::p_load(dplyr)

# Seed
set.seed("260622") # <- data de entrega

# Sortear grupos  
tibble::tibble(
  id = 1:5,
  alunos = c(
    "Jorge Malber, Matheus Santos, Natan silva",
    "Bruna Lucena, Carlos Carvalho, Diogo Vasconcelos",
    "Maria Gabriela Paiva, Elaine Reis, Taina Diniz",
    "Edglay, Huerta, Maria Gabrielle Cunha",
    "Ikaro, Guilherme, Gabriel Estrela")
  ) |> 
  left_join(
    tibble::tibble(
      id = sample(1:5, replace = FALSE),
      temas = c(
        "Mercado financeiro",
        "Saúde",
        "Segurança e crime",
        "Varejo e alimentação",
        "Ciência e tecnologia"
      )
    ), by = "id"
  ) |> 
  mutate(ordem_apresentacao = sample(1:5, replace = FALSE))