Repaso - Lista de productos

Parte de la sección Fundamentos del Journey de R de Coddy. Lección 75 de 78.

Desafío

Fácil

Recibirás cuatro líneas de entrada:

Un nombre de producto (por ejemplo, Wireless Headphones)
Un precio (por ejemplo, 79.99)
Una cantidad en stock (por ejemplo, 25)
Un porcentaje de descuento que se aplicará (por ejemplo, 20)

Realiza las siguientes operaciones:

Crea una lista con nombre llamada product con los elementos: name (carácter), price (numérico), stock (numérico) y available (establecido en TRUE si el stock es mayor que 0; de lo contrario, FALSE)
Imprime el nombre del producto usando el operador $
Calcula el precio con descuento (precio original menos el porcentaje de descuento) y actualiza el elemento price
Añade un elemento nuevo llamado discounted con el valor TRUE
Reduce stock en 1 (simulando una compra)
Elimina el elemento available de la lista
Imprime la lista final

Por ejemplo, si las entradas son:

Smart Watch
150
10
25

La salida debería ser:

[1] "Smart Watch"
$name
[1] "Smart Watch"

$price
[1] 112.5

$stock
[1] 9

$discounted
[1] TRUE

Explicación:

Precio original de 150 con un descuento del 25 %: 150 - (150 * 25/100) = 112.5
El stock se redujo de 10 a 9
El elemento available se eliminó de la lista final

Pruébalo tú mismo

# Leer entrada
con <- file("stdin", "r")
product_name <- suppressWarnings(readLines(con, n = 1))
price <- as.numeric(suppressWarnings(readLines(con, n = 1)))
stock <- as.numeric(suppressWarnings(readLines(con, n = 1)))
discount_percentage <- as.numeric(suppressWarnings(readLines(con, n = 1)))
close(con)

# TODO: Escribe tu código a continuación
# 1. Crea una lista con nombre llamada 'product' con los elementos: name, price, stock, y available
# 2. Imprime el nombre del producto usando el operador $
# 3. Calcula el precio con descuento y actualiza el elemento price
# 4. Añade un nuevo elemento llamado 'discounted' con el valor TRUE
# 5. Reduce el stock en 1
# 6. Elimina el elemento 'available' de la lista
# 7. Imprime la lista final