R语言 编写一个函数，接收3个参数，判断能否构成三角形，如果能，构成的是何种三角形

以下是一个R语言函数，可以接收三个参数a,b,c，判断它们是否可以构成三角形，并返回三角形的类型：

triangle_type <- function(a, b, c){
  if(a+b>c & b+c>a & a+c>b){
    if(a==b & b==c){
      return("等边三角形")
    }else if(a==b | b==c | a==c){
      return("等腰三角形")
    }else{
      return("普通三角形")
    }
  }else{
    return("无法构成三角形")
  }
}

使用示例：

> triangle_type(3,4,5)
[1] "普通三角形"

> triangle_type(5,5,5)
[1] "等边三角形"

> triangle_type(2,2,3)
[1] "等腰三角形"

> triangle_type(1,2,3)
[1] "无法构成三角形"