What's wrong with this R function deriving area of each shape?

Question

area<-function(...){
 x<-c(...)
 cat("It is area of: ", x[1])
 if (x[1]=="triangle"|1) {
   cat("the baseline is: ", x[2])
   cat