The R Project SVN R-packages

Rev

Rev 3434 | Rev 3456 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3434 Rev 3446
Line 178... Line 178...
178 
 
 178 
 
179 
SEXP sdf_get_variable_length(SEXP svec) {
 179 
SEXP sdf_get_variable_length(SEXP svec) {
180 
    char *iname = SDF_INAME(svec);
 180 
    char *iname = SDF_INAME(svec);
181 
    if (!USE_SDF1(iname, TRUE, FALSE)) return R_NilValue;
 181 
    if (!USE_SDF1(iname, TRUE, FALSE)) return R_NilValue;
182 
 
 182 
 
183 
    SEXP ret;
 - 
 
184 
    PROTECT(ret = NEW_INTEGER(1));
 - 
 
185 
    INTEGER(ret)[0] = _get_row_count2(iname, 1);
 183 
    return ScalarInteger(_get_row_count2(iname, 1));
186 
    UNPROTECT(1);
 - 
 
187 
    return ret;
 - 
 
188 
}
 184 
}
189 
 
 185 
 
190
186
191 
SEXP sdf_get_variable_index(SEXP svec, SEXP idx) {
 187 
SEXP sdf_get_variable_index(SEXP svec, SEXP idx) {
192 
    SEXP ret = R_NilValue, tmp;
 188 
    SEXP ret = R_NilValue, tmp;