search for: unimplemented_type

...SXP: ! for (i = 0; i < n; i++) isna[i] = ISNAN(x[i]); ! break; case STRSXP: ! for (i = 0; i < n; i++) isna[i] = (sx[i] == NA_STRING); ! break; case CPLXSXP: ! for (i = 0; i < n; i++) isna[i] = ISNAN(cx[i].r) || ISNAN(cx[i].i); ! break; default: ! UNIMPLEMENTED_TYPE("orderVector1", key); } ! for (i = 0; i < n; i++) numna += isna[i]; if(numna) switch (TYPEOF(key)) { --- 1079,1111 ---- switch (TYPEOF(key)) { case LGLSXP: case INTSXP: ! for (i = 0; i < n; i++) { ! isna[i] = (ix[i] == NA_INTEGER); ! numna += isna[i]...

...> < } Rprt_adj; > < > 872,939c864 > < char *EncodeString(SEXP, int, int, Rprt_adj); > < > < > < #if defined(HAVE_WCHAR_H) && defined(SUPPORT_MBCS) > < #include <wchar.h> > < #endif > < > < /* main/util.c */ > < void UNIMPLEMENTED_TYPE(char *s, SEXP x); > < void UNIMPLEMENTED_TYPEt(char *s, SEXPTYPE t); > < Rboolean utf8strIsASCII(char *str); > < #ifdef SUPPORT_MBCS > < int utf8clen(char c); > < #define mbs_init(x) memset(x, 0, sizeof(mbstate_t)) > < size_t Mbrtowc(wchar_t *wc, const char *s, s...

...0, < Rprt_adj_right = 1, < Rprt_adj_centre = 2 < } Rprt_adj; < 872,939c864 < char *EncodeString(SEXP, int, int, Rprt_adj); < < < #if defined(HAVE_WCHAR_H) && defined(SUPPORT_MBCS) < #include <wchar.h> < #endif < < /* main/util.c */ < void UNIMPLEMENTED_TYPE(char *s, SEXP x); < void UNIMPLEMENTED_TYPEt(char *s, SEXPTYPE t); < Rboolean utf8strIsASCII(char *str); < #ifdef SUPPORT_MBCS < int utf8clen(char c); < #define mbs_init(x) memset(x, 0, sizeof(mbstate_t)) < size_t Mbrtowc(wchar_t *wc, const char *s, size_t n, mbstate_t *ps); <...

Hi Developers, I am looking for another new project to help me get more up to speed on R and to learn something outside of R internals. One recent R issue I have run into is finding a fast implementations of the equivalent to the following SAS code: /* MDPC is an integer sort key made from two integer columns */ MDPC = (MD * 100000) + PCO; /* sort the dataset by the key */ PROC SORT;