Mode:
Duration:
1
2
3
4
5
6
7
8
cart <- data.frame(Item=character(), Price=numeric())
addItem <- function(item, price) { cart <<- rbind(cart, data.frame(Item=item, Price=price)); print(cart) }
removeItem <- function(index) { cart <<- cart[-index,]; print(cart) }
# Simulate actions
addItem('Apple', 2)
addItem('Banana', 3)
removeItem(1)Coding works best on desktop or with an external keyboard.