错误：“}”中出现意外“}”

Question

我有以下代码：

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中创建一个新列，如果函数返回0，则其值可以是列9:14或1的函数。

如果我在应用程序之外运行代码，那么它可以正常工作，但是当它在里面时会返回几个错误，说错误：＆＃39;意外＆＃39;}＆＃39; in＆＃34; }＆＃34;＆＃39;

由于

Answer 1

您的括号中包含不平衡：

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