fruits <- function(a, b, c){
  sprintf("The fruits: %s %s and %s", a, b, c)
}

fruits("Apple", "Avocado", "Kiwi")
## [1] "The fruits: Apple Avocado and Kiwi"
fruits <- function(a, b = "Avocado", c = "Lychee"){
  values <- sprintf("The fruits: %s %s and %s", a, b, c)
  return(values)
}

fruits("Persimon")
## [1] "The fruits: Persimon Avocado and Lychee"