Avoids R_shallow_duplicate_attr

shikokuchuo · Aug 18, 2024 · 4168e0a · 4168e0a
1 parent 5e2e261
commit 4168e0a
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -46,5 +46,5 @@ Suggests:
     rmarkdown,
     testthat (>= 3.0.0)
 VignetteBuilder: knitr
-RoxygenNote: 7.3.1
+RoxygenNote: 7.3.2
 Config/testthat/edition: 3
diff --git a/NEWS.md b/NEWS.md
@@ -1,5 +1,9 @@
 # ichimoku 1.5.3.9000 (development)
 
+#### Updates:
+
+* Internal performance enhancements.
+
 # ichimoku 1.5.3
 
 #### Updates:

diff --git a/src/shikokuchuo.c b/src/shikokuchuo.c
@@ -338,9 +338,9 @@ SEXP _index(SEXP x) {
 SEXP _coredata(SEXP x) {
 
   SEXP core;
-  PROTECT(core = R_shallow_duplicate_attr(x));
-  SET_ATTRIB(core, R_NilValue);
-  SET_OBJECT(core, 0);
+  R_xlen_t xlen = XLENGTH(x);
+  PROTECT(core = Rf_allocVector(TYPEOF(x), xlen));
+  memcpy(ICHIMOKU_DATAPTR(core), DATAPTR_RO(x), xlen * sizeof(double));
   Rf_dimgets(core, Rf_getAttrib(x, R_DimSymbol));
   Rf_dimnamesgets(core, Rf_getAttrib(x, R_DimNamesSymbol));
   UNPROTECT(1);