Demo of xts API with inline

xts.inline.R

library(xts)
data(sample_matrix)
x <- as.xts(sample_matrix)
library(inline)
library(Rcpp)

f <- cfunction(sig=c(Rxts="Rxts"), Rcpp=TRUE,
  includes='
    extern "C" {
      #define class xts_class
      #include "xts.h"
      #include "xts_stubs.c"
      #undef class
    }
  ', cppargs=sprintf("-I%s/include", path.package("xts")),
  body='
    BEGIN_RCPP
    Rprintf("%d \\n", isXts(Rxts));               
    throw std::logic_error("test");
    END_RCPP
  ')

f(x)