remove inclusion of Rinternals.h

kingaa · May 22, 2024 · ca463ba · ca463ba
1 parent 6478394
commit ca463ba
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,8 +1,8 @@
 Package: ouch
 Type: Package
 Title: Ornstein-Uhlenbeck Models for Phylogenetic Comparative Hypotheses
-Version: 2.19-2
-Date: 2024-04-01
+Version: 2.19-3
+Date: 2024-05-22
 Authors@R: c(person(given=c("Aaron","A."),family="King",role=c("aut","cre"),email="kingaa@umich.edu",comment=c(ORCID="0000-0001-6159-3207")),
 	person(given=c("Marguerite","A."),family="Butler",role=c("ctb")))
 Maintainer: Aaron A. King <kingaa@umich.edu>

diff --git a/src/ouch.h b/src/ouch.h
@@ -4,14 +4,13 @@
 #include <R.h>
 #include <Rmath.h>
 #include <Rdefines.h>
-#include <Rinternals.h>
 
 static SEXP makearray (int rank, int *dim) {
   int nprotect = 0;
   int *dimp, k;
   SEXP dimx, x;
   PROTECT(dimx = NEW_INTEGER(rank)); nprotect++;
-  dimp = INTEGER(dimx); 
+  dimp = INTEGER(dimx);
   for (k = 0; k < rank; k++) dimp[k] = dim[k];
   PROTECT(x = allocArray(REALSXP,dimx)); nprotect++;
   UNPROTECT(nprotect);