nested_ifelse.R

basket <- c("apple", "banana", "lemon", "orange",
            "orange", "pear", "cherry")
ifelse(basket == "banana", "apple",
ifelse(basket == "orange", "pineapple",
       basket))   # or "fig"))
# [1] "apple"  "apple"  "lemon"  "pineapple"
# [4] "pineapple"   "pear"   "cherry"