Powtórka — lista produktów

Część sekcji Podstawy ścieżki R w Coddy. Lekcja 75 z 78.

Wyzwanie

Łatwy

Otrzymasz cztery wiersze danych wejściowych:

Nazwę produktu (np. Wireless Headphones)
Cenę (np. 79.99)
Liczbę sztuk w magazynie (np. 25)
Procent rabatu do zastosowania (np. 20)

Wykonaj następujące operacje:

Utwórz nazwaną listę o nazwie product z elementami: name (znakowy), price (numeryczny), stock (numeryczny) oraz available (ustawiony na TRUE, jeśli liczba sztuk w magazynie jest większa niż 0, w przeciwnym razie na FALSE)
Wyświetl nazwę produktu za pomocą operatora $
Oblicz cenę po rabacie (cena pierwotna pomniejszona o procent rabatu) i zaktualizuj element price
Dodaj nowy element o nazwie discounted z wartością TRUE
Zmniejsz wartość stock o 1 (symulując zakup)
Usuń element available z listy
Wyświetl końcową listę

Na przykład, jeśli dane wejściowe to:

Smart Watch
150
10
25

Wynik powinien być następujący:

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

$price
[1] 112.5

$stock
[1] 9

$discounted
[1] TRUE

Wyjaśnienie:

Cena pierwotna 150 przy rabacie 25%: 150 - (150 * 25/100) = 112.5
Liczba sztuk w magazynie zmniejszona z 10 do 9
Element available został usunięty z końcowej listy

Spróbuj swoich sił

# Wczytaj dane wejściowe
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: Napisz swój kod poniżej
# 1. Utwórz listę nazwaną 'product' z elementami: name, price, stock i available
# 2. Wypisz nazwę produktu, używając operatora $
# 3. Oblicz cenę po rabacie i zaktualizuj element price
# 4. Dodaj nowy element o nazwie 'discounted' z wartością TRUE
# 5. Zmniejsz stock o 1
# 6. Usuń element 'available' z listy
# 7. Wypisz końcową listę