ptr --> xptr

Author: gregorgorjanc

NAMESPACE

@@ -1,6 +1,6 @@
 # Generated by roxygen2: do not edit by hand
 
-export(ts_num_individuals_ptr2)
+export(ts_xptr_num_individuals2)
 import(RcppTskit)
 importFrom(methods,is)
 useDynLib(RcppTskitTestLinking, .registration = TRUE)

R/RcppExports.R

@@ -8,9 +8,9 @@
 #' ts_file <- system.file("examples", "test.trees", package = "RcppTskit")
 #' ts <- RcppTskit::ts_load(ts_file)
 #' ts$num_individuals()
-#' ts_num_individuals_ptr2(ts$pointer)
+#' ts_xptr_num_individuals2(ts$pointer)
 #' @export
-ts_num_individuals_ptr2 <- function(ts) {
-    .Call(`_RcppTskitTestLinking_ts_num_individuals_ptr2`, ts)
+ts_xptr_num_individuals2 <- function(ts) {
+    .Call(`_RcppTskitTestLinking_ts_xptr_num_individuals2`, ts)
 }
 

README.md

@@ -37,7 +37,7 @@ remotes::install_github("HighlanderLab/RcppTskitTestLinking")
 library(RcppTskitTestLinking)
 
 # Check the help page for one implemented function
-?ts_num_individuals_ptr2
+?ts_xptr_num_individuals2
 ```
 
 Now run the example from the help page.
@@ -87,7 +87,7 @@ $tables
 # focus just on C++ code, we have to work with the
 # pointer object (externalptr) `ts$pointer` and
 # not with the tree sequence object (TreeSequence) `ts`
-> ts_num_individuals_ptr2(ts$pointer)
+> ts_xptr_num_individuals2(ts$pointer)
 [1] 8
 ```
 

man/ts_num_individuals_ptr2.Rd man/ts_xptr_num_individuals2.Rdman/ts_num_individuals_ptr2.Rd renamed to man/ts_xptr_num_individuals2.Rd

@@ -10,20 +10,20 @@ Rcpp::Rostream<true>&  Rcpp::Rcout = Rcpp::Rcpp_cout_get();
 Rcpp::Rostream<false>& Rcpp::Rcerr = Rcpp::Rcpp_cerr_get();
 #endif
 
-// ts_num_individuals_ptr2
-int ts_num_individuals_ptr2(const SEXP ts);
-RcppExport SEXP _RcppTskitTestLinking_ts_num_individuals_ptr2(SEXP tsSEXP) {
+// ts_xptr_num_individuals2
+int ts_xptr_num_individuals2(const SEXP ts);
+RcppExport SEXP _RcppTskitTestLinking_ts_xptr_num_individuals2(SEXP tsSEXP) {
 BEGIN_RCPP
     Rcpp::RObject rcpp_result_gen;
     Rcpp::RNGScope rcpp_rngScope_gen;
     Rcpp::traits::input_parameter< const SEXP >::type ts(tsSEXP);
-    rcpp_result_gen = Rcpp::wrap(ts_num_individuals_ptr2(ts));
+    rcpp_result_gen = Rcpp::wrap(ts_xptr_num_individuals2(ts));
     return rcpp_result_gen;
 END_RCPP
 }
 
 static const R_CallMethodDef CallEntries[] = {
-    {"_RcppTskitTestLinking_ts_num_individuals_ptr2", (DL_FUNC) &_RcppTskitTestLinking_ts_num_individuals_ptr2, 1},
+    {"_RcppTskitTestLinking_ts_xptr_num_individuals2", (DL_FUNC) &_RcppTskitTestLinking_ts_xptr_num_individuals2, 1},
     {NULL, NULL, 0}
 };
 

src/RcppExports.cpp

@@ -9,10 +9,10 @@
 //' ts_file <- system.file("examples", "test.trees", package = "RcppTskit")
 //' ts <- RcppTskit::ts_load(ts_file)
 //' ts$num_individuals()
-//' ts_num_individuals_ptr2(ts$pointer)
+//' ts_xptr_num_individuals2(ts$pointer)
 //' @export
 // [[Rcpp::export]]
-int ts_num_individuals_ptr2(const SEXP ts) {
+int ts_xptr_num_individuals2(const SEXP ts) {
   RcppTskit_treeseq_xptr ts_xptr(ts);
   return static_cast<int>(tsk_treeseq_get_num_individuals(ts_xptr));
 }