inst/client/int64header/R/RcppExports.R

In RcppInt64: 'Rcpp'-Based Helper Functions to Pass 'Int64' and 'nanotime' Values Between 'R' and 'C++'

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

#' Integer64 to Integer64 round-trip demo
#'
#' This function takes an integer64-valued input vector, converts
#' it to the equivalent \code{int64_t} vector in C++, displays each
#' element after first adding one, and returns the modofied vector.
#'
#' @param vec An \code{integer64}-classed vector from R
#' @return A modified \code{integer64} vector where each element
#' increased by one
#' @examples
#' # generate all powers of 10 fro 0 .. 18
#' v <- bit64::as.integer64(10^seq(0,18))
#' # pass them to function which will add one to each, print  and return
#' Int64toInt64(v)
Int64toInt64 <- function(vec) {
    .Call(`_int64header_Int64toInt64`, vec)
}

#' @rdname Int64toInt64
Int64toInt64Alt <- function(vec) {
    .Call(`_int64header_Int64toInt64Alt`, vec)
}