The R Project SVN R

Rev

Rev 51319 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 51319 Rev 65074
Line 81... Line 81...
81 
                     " wanted ", case[[narm]], call. = FALSE)
 81 
                     " wanted ", case[[narm]], call. = FALSE)
82 
            }
 82 
            }
83 
        }
 83 
        }
84 
    }
 84 
    }
85 
    lab <- deparse(substitute(L))
 85 
    lab <- deparse(substitute(L))
86 
    for (i in seq_along(L)) {
 - 
 
87 
        case <- L[[i]]
 86 
    for (case in L) {
88 
        do_check(case, any)
 87 
        do_check(case, any)
89 
        do_check(case, all)
 88 
        do_check(case, all)
90 
    }
 89 
    }
91 
}
 90 
}
92 
 
 91