Calcular la propina y el total

Parte de la sección Fundamentos del Journey de R de Coddy — lección 35 de 78.

Desafío

Fácil

En la lección anterior, recopilaste el monto de la factura, el porcentaje de propina y el número de personas. Ahora, agrega la lógica de cálculo para computar el monto de la propina y el total de la factura incluyendo la propina.

Después de mostrar el mensaje de confirmación, calcula lo siguiente:

El monto de la propina: multiplica la factura por el porcentaje de propina dividido por 100
El total de la factura: suma la factura original y el monto de la propina

Almacena estos valores en variables llamadas tip_amount y total.

Luego, muestra los resultados del cálculo en el siguiente formato:

Tip amount: $[tip_amount]
Total with tip: $[total]

Usa cat() para todas las salidas e incluye caracteres de nueva línea \n donde sea necesario.

Por ejemplo, si las entradas son 100, 20 y 4, la salida completa debe ser:

Welcome to the Bill Split Calculator!
Let's split your bill fairly.
Bill: $100
Tip: 20%
People: 4
Tip amount: $20
Total with tip: $120

Pruébalo tú mismo

# TODO: Write your code below
# Use cat() to display the welcome message
# Remember to use \n for new lines
cat("Welcome to the Bill Split Calculator!\nLet's split your bill fairly.\n")

# Read user inputs
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)

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