Özet - Ürün Listesi

Coddy'nin R Journey'sinin Temeller bölümünün bir parçası — ders 75 / 78.

Görev

Kolay

Dört satırlık bir girdi alacaksınız:

Bir ürün adı (örneğin, Wireless Headphones)
Bir fiyat (örneğin, 79.99)
Bir stok miktarı (örneğin, 25)
Uygulanacak bir indirim yüzdesi (örneğin, 20)

Aşağıdaki işlemleri gerçekleştirin:

Şu öğeleri içeren product adında isimlendirilmiş bir liste oluşturun: name (karakter), price (sayısal), stock (sayısal) ve available (stok 0'dan büyükse TRUE, aksi takdirde FALSE olarak ayarlanmış)
$ operatörünü kullanarak ürün adını yazdırın
İndirimli fiyatı hesaplayın (orijinal fiyattan indirim yüzdesini çıkarın) ve price öğesini güncelleyin
discounted adında ve değeri TRUE olan yeni bir öğe ekleyin
stock miktarını 1 azaltın (bir satın alma işlemini simüle ederek)
available öğesini listeden kaldırın
Nihai listeyi yazdırın

Örneğin, girdiler şunlarsa:

Smart Watch
150
10
25

Çıktı şu şekilde olmalıdır:

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

$price
[1] 112.5

$stock
[1] 9

$discounted
[1] TRUE

Açıklama:

%25 indirimle 150 olan orijinal fiyat: 150 - (150 * 25/100) = 112.5
Stok 10'dan 9'a düşürüldü
available öğesi nihai listeden kaldırıldı

Kendin dene

# Girişi oku
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)

# YAPILACAK: Kodunuzu aşağıya yazın
# 1. name, price, stock ve available öğelerini içeren 'product' adında isimlendirilmiş bir liste oluşturun
# 2. $ operatörünü kullanarak ürün adını yazdırın
# 3. İndirimli fiyatı hesaplayın ve price öğesini güncelleyin
# 4. Değeri TRUE olan 'discounted' adında yeni bir öğe ekleyin
# 5. Stok miktarını 1 azaltın
# 6. 'available' öğesini listeden kaldırın
# 7. Nihai listeyi yazdırın