R 错误：意外'；}'；在"；}&引用；

我有以下代码：

TB <- data.frame(1,2,3,4,5,6,7,8,9,1,2,3,4,5,6,7,8,9)


TB$BIG_value <- apply(TB,1,function(r){
 sr <- sort(r[9:14],decreasing = TRUE)
 value <- sr[1] - 0.5*sr[3] - 0.25*sr[4] - 0.125*sr[5] - 0.0625*sr[6]
 defaltv <- data.frame(c(1))
 if((value==0)[1,1]{
   defaltv
 }else{
   value
 }
})

---

TB以下括号中有不平衡的括号：

if((value==0)[1,1]{

[1,1]
如果
行中出现这种情况，它会做什么？另外，如果后面只有一个函数，则不需要括号
{}
。