Displaying 1 result from an estimated 1 matches for "jl_sym_t".
2014 Jun 24
2
using C code to create data frame but always return as list
...me);
jl_value_t* ret=jl_eval_string(evalcmd);
jl_value_t* onesymbol;
if (jl_is_array(ret))
{
PROTECT(names=allocVector(STRSXP,collen));
for (i=0;i<jl_array_len(ret);i++)
{
onesymbol=jl_arrayref((jl_array_t*)ret,i);
if (jl_is_symbol(onesymbol))
SET_STRING_ELT(names,i,mkChar(((jl_sym_t*)onesymbol)->name));
}
setAttrib(ans,R_NamesSymbol,names);
UNPROTECT(1);
}
//set row names
sprintf(evalcmd,"size(%s,1)",dfname);
jl_value_t* rows=jl_eval_string(evalcmd);
int rowlen=jl_unbox_long(rows);
PROTECT(rownames=allocVector(INTSXP,rowlen));
for (i=0;i<rowlen;i+...