Obtendo a Entrada do Usuário

Na lição anterior, você criou uma mensagem de boas-vindas para o Bill Split Calculator. Agora, adicione a funcionalidade para coletar a entrada do usuário para o cálculo da conta.

Depois da mensagem de boas-vindas existente, leia três entradas do usuário:

1. O valor total da conta
2. A porcentagem da gorjeta (como um número inteiro, por exemplo, 15 para 15%)
3. O número de pessoas que dividirão a conta

Em scripts R executados de forma não interativa (como nesta plataforma), a entrada é lida do fluxo de entrada padrão. Para fazer isso, primeiro abra uma conexão com stdin usando file(), depois leia cada linha com readLines() e feche a conexão ao terminar:

con <- file("stdin", "r")
bill <- as.numeric(suppressWarnings(readLines(con, n = 1)))
tip_percent <- as.numeric(suppressWarnings(readLines(con, n = 1)))
people <- as.numeric(suppressWarnings(readLines(con, n = 1)))
close(con)

Veja o que cada parte faz:

• file("stdin", "r"): abre o fluxo de entrada padrão para leitura e o armazena em con
• readLines(con, n = 1): lê exatamente uma linha dessa conexão. Observação: readLines() é diferente de readline(): readLines() funciona com conexões de arquivo (incluindo stdin) e pode ler várias linhas de uma vez usando n =, enquanto readline() funciona apenas interativamente no console do R
• suppressWarnings(...): silencia avisos inofensivos que aparecem ao ler de stdin dessa forma. Quando o R lê de stdin em um script, às vezes produz um aviso como "linha final incompleta", mesmo quando tudo funciona corretamente. Envolver a chamada em suppressWarnings() oculta essas mensagens para que elas não poluam sua saída. Isso não afeta os valores que estão sendo lidos
• as.numeric(...): converte a entrada de texto em um número
• close(con): fecha a conexão depois que todas as entradas são lidas

Armazene os três valores em variáveis chamadas bill, tip_percent e people.

Depois de ler as entradas, exiba uma mensagem de confirmação mostrando o que foi inserido no seguinte formato:

Bill: $[bill]
Tip: [tip_percent]%
People: [people]

Use cat() para toda a saída e inclua caracteres de nova linha \n onde necessário. Use sep = "" em cada chamada de cat() para evitar espaços indesejados.

Por padrão, cat() insere um espaço entre cada item que imprime. Por exemplo:

cat("Bill: $", 120, "\n")   # prints: Bill: $ 120 

Observe os espaços indesejados entre $ e 120 e antes da nova linha. Adicionar sep = "" informa ao cat() para usar uma string vazia como separador, portanto nada é inserido entre os itens:

cat("Bill: $", 120, "\n", sep = "")   # prints: Bill: $120

Aplique esse padrão às três linhas de confirmação:

cat("Bill: $", bill, "\n", sep = "")
cat("Tip: ", tip_percent, "%\n", sep = "")
cat("People: ", people, "\n", sep = "")

Por exemplo, se as entradas forem 120, 18 e 4, a saída completa deverá ser:

Welcome to the Bill Split Calculator!
Let's split your bill fairly.
Bill: $120
Tip: 18%
People: 4