testlist <- list(nfeats = 1516850390L)
result <- do.call(propr:::labRcpp,testlist)
str(result)