The R Project SVN R-packages

Rev

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

Rev 3281 Rev 3282
Line 198... Line 198...
198 
                &result, &nrow, &ncol, NULL);
 198 
                &result, &nrow, &ncol, NULL);
199 
    } else {
 199 
    } else {
200 
        /* since internal_names must be a valid r symbol,
200 
        /* since internal_names must be a valid r symbol,
201 
           did not check for "'" */
 201 
           did not check for "'" */
202 
        sprintf(g_sql_buf[0], "select internal_name from workspace where "
 202 
        sprintf(g_sql_buf[0], "select internal_name from workspace where "
203 
                "internal_name like '%s%'", CHAR(STRING_ELT(pattern, 0)));
 203 
                "internal_name like '%s%%'", CHAR(STRING_ELT(pattern, 0)));
204 
        res = sqlite3_get_table(g_workspace, g_sql_buf[0], &result, &nrow,
 204 
        res = sqlite3_get_table(g_workspace, g_sql_buf[0], &result, &nrow,
205 
                &ncol, NULL);
 205 
                &ncol, NULL);
206 
    }
 206 
    }
207 
 
 207 
 
208 
    if (_sqlite_error(res)) return R_NilValue;
 208 
    if (_sqlite_error(res)) return R_NilValue;