Utilização do while

A dúvida a seguir foi enviada por um aluno do nosso curso R para Ciência de Dados 1 e estou colocando aqui pois a resposta pode ajudar outras pessoas.

Na letra (f) do exercício (1) da seção de testes lógicos do livro da Curso-R, é possível resolver utilizando while?

Fica aqui a minha solução usando while:

segredo <- round(runif(1, min = 0, max = 10))

i <- 0
while (i <= 10) {
  if (segredo == i) {
    print(paste0("O valor do segredo é ", i))
    break()
  }
  
  i <- i + 1
}
#> [1] "O valor do segredo é 5"

Created on 2021-03-03 by the reprex package (v1.0.0)