TRInternalFunction.h

Go to the documentation of this file.

// @(#)root/r:$Id$
// Author: Omar Zapata  Omar.Zapata@cern.ch  07/06/2014
 
 
/*************************************************************************
 * Copyright (C) 1995-2021, Rene Brun and Fons Rademakers.               *
 * All rights reserved.                                                  *
 *                                                                       *
 * For the licensing terms see $ROOTSYS/LICENSE.                         *
 * For the list of contributors see $ROOTSYS/README/CREDITS.             *
 *************************************************************************/
#ifndef ROOT_R_TRInternalFunction
#define ROOT_R_TRInternalFunction
 
#include <RExports.h>
 
//________________________________________________________________________________________________________
/**
   This is a class to support deprecated method to pass function to R's Environment,
   based in Rcpp::InternalFunction
 
 
*/
 
 
namespace Rcpp {
   RCPP_API_CLASS(TRInternalFunction_Impl)
   {
public:
 
      RCPP_GENERATE_CTOR_ASSIGN(TRInternalFunction_Impl)
 
#if RCPP_VERSION >= Rcpp_Version(1,0,13)
      template <typename OUT, typename... T>
      TRInternalFunction_Impl(OUT(*fun)(T...))
      {
         set(Rcpp::XPtr< Rcpp::CppFunctionN<OUT, T...> >(new Rcpp::CppFunctionN<OUT, T...>(fun), false));
      }
#else
#include <TRInternalFunction__ctors.h>
#endif
      void update(SEXP) {}
private:
 
      inline void set(SEXP xp) {
         Rcpp::Environment RCPP = Rcpp::Environment::Rcpp_namespace() ;
         Rcpp::Function intf = RCPP["internal_function"] ;
         Storage::set__(intf(xp)) ;
      }
 
   };
 
 
}
 
 
namespace ROOT {
   namespace R {
 
      typedef Rcpp::TRInternalFunction_Impl<Rcpp::PreserveStorage> TRInternalFunction ;
   }
}
 
#endif