Probabilities in R

A cellphone has 4 functions and can function of at least two of them. Each component independently works with a probability of 0.8. What is the probability the cellphone will function?

My process look clumsy ?

p <- 0.8
n = 4
X <- 2:n
Prob <- dbinom(X, n, p, log =F)
Prob