faster vector access

shikokuchuo · Jun 23, 2024 · 84cf489 · 84cf489
1 parent b2880ff
commit 84cf489
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 2 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -1,10 +1,16 @@
 # ichimoku 1.5.2.9000 (development)
 
+#### Updates:
+
+* Internal performance enhancements.
+* Requires secretbase >= 1.0.0.
+
 # ichimoku 1.5.2
 
 #### Updates:
 
 * `archive()` reverts to using SHA256.
+* Requires nanonext >= 1.0.0 and mirai >= 1.0.0.
 
 # ichimoku 1.5.1
 

diff --git a/src/shikokuchuo.c b/src/shikokuchuo.c
@@ -23,6 +23,7 @@
 #include <R_ext/Visibility.h>
 
 #define ICHIMOKU_DATAPTR(x) (void *) DATAPTR_RO(x)
+#define ICHIMOKU_VECTOR(x) ((const SEXP *) DATAPTR_RO(x))
 
 SEXP xts_IndexSymbol;
 SEXP xts_IndexTclassSymbol;
@@ -290,10 +291,10 @@ SEXP _df(SEXP x) {
     src += xlen;
   }
 
-  idchar = Rf_coerceVector(VECTOR_ELT(df, 5), STRSXP);
+  idchar = Rf_coerceVector(ICHIMOKU_VECTOR(df)[5], STRSXP);
   SET_VECTOR_ELT(df, 5, idchar);
 
-  PROTECT(dn2 = VECTOR_ELT(Rf_getAttrib(x, R_DimNamesSymbol), 1));
+  PROTECT(dn2 = ICHIMOKU_VECTOR(Rf_getAttrib(x, R_DimNamesSymbol))[1]);
   R_xlen_t dlen = XLENGTH(dn2);
   names = Rf_allocVector(STRSXP, dlen + 2);
   Rf_namesgets(df, names);