#include <Rcpp.h>

using namespace Rcpp ;

// [[Rcpp::export]]

DataFrame FromSEXP( SEXP x){

DataFrame df(x) ;

return df;

}

// [[Rcpp::export]]

SEXP index_byName( DataFrame df, std::string s ){

return df[s];

}

// [[Rcpp::export]]

SEXP index_byPosition( DataFrame df, int i ){

return df[i];

}

// [[Rcpp::export]]

std::string string_element( DataFrame df ){

CharacterVector b = df[1];

std::string s;

s = b[1];

return s;

}

// [[Rcpp::export]]

DataFrame createOne(){

IntegerVector v = IntegerVector::create(1,2,3);

return DataFrame::create(Named("a")=v);

}

// [[Rcpp::export]]

DataFrame createTwo(){

IntegerVector v = IntegerVector::create(1,2,3);

std::vector<std::string> s = {"a", "b", "c" } ;

return DataFrame::create(Named("a")=v, Named("b")=s);

}

// [[Rcpp::export]]

DataFrame DataFrame_SlotProxy( S4 o, std::string yy ){

return DataFrame( slot(o, yy ) ) ;

}

// [[Rcpp::export]]

DataFrame DataFrame_AttributeProxy( List o, std::string y ){

return DataFrame( attr(o,y ) );

}

// [[Rcpp::export]]

int DataFrame_nrows( DataFrame df){

return df.nrows() ;

}

// [[Rcpp::export]]

DataFrame DataFrame_proxies( DataFrame df){

df[0] = seq(1, df.nrows() ) ;

df[1] = 3 ;

df["z"] = rep(2, 5) ;

df["x3"] = seq(1, df.nrows() ) ;

df["x4"] = 2.0 ;

return df ;

}

// [[Rcpp::export]]

CharacterVector df_rownames_get(DataFrame m){

return rownames(m) ;

}

// [[Rcpp::export]]

DataFrame df_rownames_set(DataFrame m){

rownames(m) = {"z","y","x","w","v"};

return m ;

}