thirdParty/bgen/R/package/R/RcppExports.R

In weizhouUMICH/SAIGE: Efficiently controlling for case-control imbalance and sample relatedness in single-variant assoc tests (SAIGE) and controlling for sample relatedness in region-based assoc tests in large cohorts and biobanks (SAIGE-GENE)

# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393

bgen.load <- function(
	filename,
	ranges = NULL,
	rsids = NULL,
	max_entries_per_sample = 3,
	samples = NULL,
	index.filename = sprintf( "%s.bgi", filename )
) {
	# Convert null arguments into 
	if( is.null( ranges )) {
		ranges = data.frame( chromosome = character(0), start = integer(0), end = integer(0) ) ;
	}
	if( is.null( rsids )) {
		rsids = character(0)
	}
	if( nrow(ranges) == 0 && length(rsids) == 0 ) {
		warning( "bgen.load(): you haven't specified any ranges or rsids - result will be empty" )
	}
	if( !is.null( samples )) {
		.Call('rbgen_load_samples', PACKAGE = 'rbgen', filename, index.filename, ranges, rsids, max_entries_per_sample, samples)
	} else {
		.Call('rbgen_load', PACKAGE = 'rbgen', filename, index.filename, ranges, rsids, max_entries_per_sample)
	}
}