Récapitulatif - Liste de produits

Fait partie de la section Fondamentaux du Journey R de Coddy — leçon 75 sur 78.

Défi

Facile

Vous recevrez quatre lignes d'entrée :

Un nom de produit (par exemple, Wireless Headphones)
Un prix (par exemple, 79.99)
Une quantité en stock (par exemple, 25)
Un pourcentage de remise à appliquer (par exemple, 20)

Effectuez les opérations suivantes :

Créez une liste nommée appelée product avec les éléments : name (caractère), price (numérique), stock (numérique), et available (défini sur TRUE si le stock est supérieur à 0, sinon FALSE)
Affichez le nom du produit en utilisant l'opérateur $
Calculez le prix après remise (prix d'origine moins le pourcentage de remise) et mettez à jour l'élément price
Ajoutez un nouvel élément appelé discounted avec la valeur TRUE
Réduisez le stock de 1 (simulant un achat)
Supprimez l'élément available de la liste
Affichez la liste finale

Par exemple, si les entrées sont :

Smart Watch
150
10
25

La sortie devrait être :

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

$price
[1] 112.5

$stock
[1] 9

$discounted
[1] TRUE

Explication :

Prix d'origine 150 avec 25% de remise : 150 - (150 * 25/100) = 112.5
Le stock est réduit de 10 à 9
L'élément available a été supprimé de la liste finale

Essayez vous-même

# Lire l'entrée
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: Écrivez votre code ci-dessous
# 1. Créer une liste nommée 'product' avec les éléments : name, price, stock, et available
# 2. Afficher le nom du produit en utilisant l'opérateur $
# 3. Calculer le prix après remise et mettre à jour l'élément price
# 4. Ajouter un nouvel élément nommé 'discounted' avec la valeur TRUE
# 5. Réduire le stock de 1
# 6. Supprimer l'élément 'available' de la liste
# 7. Afficher la liste finale