End of day

Author: gregorgorjanc

DESCRIPTION

@@ -6,8 +6,6 @@ Authors@R:
 Description: This is a stub package that shows how to link to and import
     from RcppTskit package, which provides R access to tskit C API.
 License: MIT + file LICENSE
-Imports:
-    RcppTskit
 LinkingTo:
     RcppTskit
 Remotes:

notes.R

@@ -0,0 +1,23 @@
+library(usethis)
+path <- "."
+create_package(path)
+proj_activate(path)
+use_mit_license("Gregor Gorjanc")
+
+# Add to DESCRIPTION next two lines:
+# Imports: RcppTskit
+# LinkingTo: RcppTskit
+# And until RcppTskit is on CRAN, add to DESCRIPTION also this line:
+# Remotes: git::git@bitbucket.org:HighlanderLab/RcppTskit.git
+
+use_tidy_description()
+
+use_readme_md()
+
+use_test("my-test")
+
+use_git()
+
+
+Imports: Rcpp, RcppTskit
+LinkingTo: Rcpp, RcppTskit

src/Makevars.in

@@ -0,0 +1 @@
+PKG_LIB = @RCPPTSKIT_LIB@

src/test.cpp

@@ -0,0 +1,18 @@
+#include <tskit.h>
+// [[Rcpp::depends(RcppTskit)]]
+// [[Rcpp::plugins(RcppTskit)]]
+
+//' @title Get number of individuals in tree sequence
+//' @param ts an external pointer to a \code{tsk_treeseq_t} object.
+//' @return integer number of individuals.
+//' @examples
+//' ts_file <- system.file("examples", "test.trees", package = "RcppTskit")
+//' ts <- RcppTskit::ts_load(ts_file)
+//' RcppTskit::ts$num_individuals()
+//' ts_num_individuals_ptr2(ts$pointer)
+//' @export
+// [[Rcpp::export]]
+int ts_num_individuals_ptr2(const SEXP ts) {
+  RcppTskit_treeseq_xptr ts_xptr(ts);
+  return static_cast<int>(tsk_treeseq_get_num_individuals(ts_xptr));
+}