Skip to content

Commit 35b8728

Browse files
gregorgorjancgregorgorjanc
committed
Work for #41 
1 parent 494b425 commit 35b8728

File tree

5 files changed

+190
-182
lines changed

5 files changed

+190
-182
lines changed

‎RcppTskit/R/RcppExports.R‎

Lines changed: 73 additions & 73 deletions
Original file line numberDiff line numberDiff line change
@@ -81,6 +81,79 @@ ts_dump_ptr <- function(ts, file, options = 0L) {
8181
invisible(.Call(`_RcppTskit_ts_dump_ptr`, ts, file, options))
8282
}
8383

84+
#' @describeIn ts_summary_ptr Get the number of provenances in a tree sequence
85+
#' @export
86+
ts_num_provenances_ptr <- function(ts) {
87+
.Call(`_RcppTskit_ts_num_provenances_ptr`, ts)
88+
}
89+
90+
#' @describeIn ts_summary_ptr Get the number of populations in a tree sequence
91+
#' @export
92+
ts_num_populations_ptr <- function(ts) {
93+
.Call(`_RcppTskit_ts_num_populations_ptr`, ts)
94+
}
95+
96+
#' @describeIn ts_summary_ptr Get the number of migrations in a tree sequence
97+
#' @export
98+
ts_num_migrations_ptr <- function(ts) {
99+
.Call(`_RcppTskit_ts_num_migrations_ptr`, ts)
100+
}
101+
102+
#' @describeIn ts_summary_ptr Get the number of individuals in a tree sequence
103+
#' @export
104+
ts_num_individuals_ptr <- function(ts) {
105+
.Call(`_RcppTskit_ts_num_individuals_ptr`, ts)
106+
}
107+
108+
#' @describeIn ts_summary_ptr Get the number of samples (of nodes) in a tree
109+
#' sequence
110+
#' @export
111+
ts_num_samples_ptr <- function(ts) {
112+
.Call(`_RcppTskit_ts_num_samples_ptr`, ts)
113+
}
114+
115+
#' @describeIn ts_summary_ptr Get the number of nodes in a tree sequence
116+
#' @export
117+
ts_num_nodes_ptr <- function(ts) {
118+
.Call(`_RcppTskit_ts_num_nodes_ptr`, ts)
119+
}
120+
121+
#' @describeIn ts_summary_ptr Get the number of edges in a tree sequence
122+
#' @export
123+
ts_num_edges_ptr <- function(ts) {
124+
.Call(`_RcppTskit_ts_num_edges_ptr`, ts)
125+
}
126+
127+
#' @describeIn ts_summary_ptr Get the number of trees in a tree sequence
128+
#' @export
129+
ts_num_trees_ptr <- function(ts) {
130+
.Call(`_RcppTskit_ts_num_trees_ptr`, ts)
131+
}
132+
133+
#' @describeIn ts_summary_ptr Get the number of sites in a tree sequence
134+
#' @export
135+
ts_num_sites_ptr <- function(ts) {
136+
.Call(`_RcppTskit_ts_num_sites_ptr`, ts)
137+
}
138+
139+
#' @describeIn ts_summary_ptr Get the number of mutations in a tree sequence
140+
#' @export
141+
ts_num_mutations_ptr <- function(ts) {
142+
.Call(`_RcppTskit_ts_num_mutations_ptr`, ts)
143+
}
144+
145+
#' @describeIn ts_summary_ptr Get the sequence length
146+
#' @export
147+
ts_sequence_length_ptr <- function(ts) {
148+
.Call(`_RcppTskit_ts_sequence_length_ptr`, ts)
149+
}
150+
151+
#' @describeIn ts_summary_ptr Get the time units string
152+
#' @export
153+
ts_time_units_ptr <- function(ts) {
154+
.Call(`_RcppTskit_ts_time_units_ptr`, ts)
155+
}
156+
84157
#' @name ts_summary_ptr
85158
#' @title Summary of properties and number of records in a tree sequence
86159
#' @param ts tree sequence as a \code{\link{TreeSequence}} object or
@@ -156,79 +229,6 @@ ts_summary_ptr <- function(ts) {
156229
.Call(`_RcppTskit_ts_summary_ptr`, ts)
157230
}
158231

159-
#' @describeIn ts_summary_ptr Get the number of provenances in a tree sequence
160-
#' @export
161-
ts_num_provenances_ptr <- function(ts) {
162-
.Call(`_RcppTskit_ts_num_provenances_ptr`, ts)
163-
}
164-
165-
#' @describeIn ts_summary_ptr Get the number of populations in a tree sequence
166-
#' @export
167-
ts_num_populations_ptr <- function(ts) {
168-
.Call(`_RcppTskit_ts_num_populations_ptr`, ts)
169-
}
170-
171-
#' @describeIn ts_summary_ptr Get the number of migrations in a tree sequence
172-
#' @export
173-
ts_num_migrations_ptr <- function(ts) {
174-
.Call(`_RcppTskit_ts_num_migrations_ptr`, ts)
175-
}
176-
177-
#' @describeIn ts_summary_ptr Get the number of individuals in a tree sequence
178-
#' @export
179-
ts_num_individuals_ptr <- function(ts) {
180-
.Call(`_RcppTskit_ts_num_individuals_ptr`, ts)
181-
}
182-
183-
#' @describeIn ts_summary_ptr Get the number of samples (of nodes) in a tree
184-
#' sequence
185-
#' @export
186-
ts_num_samples_ptr <- function(ts) {
187-
.Call(`_RcppTskit_ts_num_samples_ptr`, ts)
188-
}
189-
190-
#' @describeIn ts_summary_ptr Get the number of nodes in a tree sequence
191-
#' @export
192-
ts_num_nodes_ptr <- function(ts) {
193-
.Call(`_RcppTskit_ts_num_nodes_ptr`, ts)
194-
}
195-
196-
#' @describeIn ts_summary_ptr Get the number of edges in a tree sequence
197-
#' @export
198-
ts_num_edges_ptr <- function(ts) {
199-
.Call(`_RcppTskit_ts_num_edges_ptr`, ts)
200-
}
201-
202-
#' @describeIn ts_summary_ptr Get the number of trees in a tree sequence
203-
#' @export
204-
ts_num_trees_ptr <- function(ts) {
205-
.Call(`_RcppTskit_ts_num_trees_ptr`, ts)
206-
}
207-
208-
#' @describeIn ts_summary_ptr Get the number of sites in a tree sequence
209-
#' @export
210-
ts_num_sites_ptr <- function(ts) {
211-
.Call(`_RcppTskit_ts_num_sites_ptr`, ts)
212-
}
213-
214-
#' @describeIn ts_summary_ptr Get the number of mutations in a tree sequence
215-
#' @export
216-
ts_num_mutations_ptr <- function(ts) {
217-
.Call(`_RcppTskit_ts_num_mutations_ptr`, ts)
218-
}
219-
220-
#' @describeIn ts_summary_ptr Get the sequence length
221-
#' @export
222-
ts_sequence_length_ptr <- function(ts) {
223-
.Call(`_RcppTskit_ts_sequence_length_ptr`, ts)
224-
}
225-
226-
#' @describeIn ts_summary_ptr Get the time units string
227-
#' @export
228-
ts_time_units_ptr <- function(ts) {
229-
.Call(`_RcppTskit_ts_time_units_ptr`, ts)
230-
}
231-
232232
#' @name ts_metadata_length
233233
#' @title Get the length of metadata in a tree sequence and its tables
234234
#' @param ts tree sequence as a \code{\link{TreeSequence}} object or

‎RcppTskit/man/ts_summary_ptr.Rd‎

Lines changed: 4 additions & 4 deletions
Some generated files are not rendered by default. Learn more about customizing how changed files appear on GitHub.

‎RcppTskit/src/RcppExports.cpp‎

Lines changed: 12 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -54,17 +54,6 @@ BEGIN_RCPP
5454
return R_NilValue;
5555
END_RCPP
5656
}
57-
// ts_summary_ptr
58-
Rcpp::List ts_summary_ptr(const SEXP ts);
59-
RcppExport SEXP _RcppTskit_ts_summary_ptr(SEXP tsSEXP) {
60-
BEGIN_RCPP
61-
Rcpp::RObject rcpp_result_gen;
62-
Rcpp::RNGScope rcpp_rngScope_gen;
63-
Rcpp::traits::input_parameter< const SEXP >::type ts(tsSEXP);
64-
rcpp_result_gen = Rcpp::wrap(ts_summary_ptr(ts));
65-
return rcpp_result_gen;
66-
END_RCPP
67-
}
6857
// ts_num_provenances_ptr
6958
int ts_num_provenances_ptr(const SEXP ts);
7059
RcppExport SEXP _RcppTskit_ts_num_provenances_ptr(SEXP tsSEXP) {
@@ -197,6 +186,17 @@ BEGIN_RCPP
197186
return rcpp_result_gen;
198187
END_RCPP
199188
}
189+
// ts_summary_ptr
190+
Rcpp::List ts_summary_ptr(const SEXP ts);
191+
RcppExport SEXP _RcppTskit_ts_summary_ptr(SEXP tsSEXP) {
192+
BEGIN_RCPP
193+
Rcpp::RObject rcpp_result_gen;
194+
Rcpp::RNGScope rcpp_rngScope_gen;
195+
Rcpp::traits::input_parameter< const SEXP >::type ts(tsSEXP);
196+
rcpp_result_gen = Rcpp::wrap(ts_summary_ptr(ts));
197+
return rcpp_result_gen;
198+
END_RCPP
199+
}
200200
// ts_metadata_length_ptr
201201
Rcpp::List ts_metadata_length_ptr(const SEXP ts);
202202
RcppExport SEXP _RcppTskit_ts_metadata_length_ptr(SEXP tsSEXP) {
@@ -261,7 +261,6 @@ static const R_CallMethodDef CallEntries[] = {
261261
{"_RcppTskit_tskit_version", (DL_FUNC) &_RcppTskit_tskit_version, 0},
262262
{"_RcppTskit_ts_load_ptr", (DL_FUNC) &_RcppTskit_ts_load_ptr, 2},
263263
{"_RcppTskit_ts_dump_ptr", (DL_FUNC) &_RcppTskit_ts_dump_ptr, 3},
264-
{"_RcppTskit_ts_summary_ptr", (DL_FUNC) &_RcppTskit_ts_summary_ptr, 1},
265264
{"_RcppTskit_ts_num_provenances_ptr", (DL_FUNC) &_RcppTskit_ts_num_provenances_ptr, 1},
266265
{"_RcppTskit_ts_num_populations_ptr", (DL_FUNC) &_RcppTskit_ts_num_populations_ptr, 1},
267266
{"_RcppTskit_ts_num_migrations_ptr", (DL_FUNC) &_RcppTskit_ts_num_migrations_ptr, 1},
@@ -274,6 +273,7 @@ static const R_CallMethodDef CallEntries[] = {
274273
{"_RcppTskit_ts_num_mutations_ptr", (DL_FUNC) &_RcppTskit_ts_num_mutations_ptr, 1},
275274
{"_RcppTskit_ts_sequence_length_ptr", (DL_FUNC) &_RcppTskit_ts_sequence_length_ptr, 1},
276275
{"_RcppTskit_ts_time_units_ptr", (DL_FUNC) &_RcppTskit_ts_time_units_ptr, 1},
276+
{"_RcppTskit_ts_summary_ptr", (DL_FUNC) &_RcppTskit_ts_summary_ptr, 1},
277277
{"_RcppTskit_ts_metadata_length_ptr", (DL_FUNC) &_RcppTskit_ts_metadata_length_ptr, 1},
278278
{"_RcppTskit_ts_grow", (DL_FUNC) &_RcppTskit_ts_grow, 1},
279279
{"_RcppTskit_test_tsk_bug_assert_c", (DL_FUNC) &_RcppTskit_test_tsk_bug_assert_c, 0},

0 commit comments

Comments
 (0)