Class Timer

inst/include/Rcpp/Benchmark/Timer.h:103–142

#endif

    class Timer {
    public:
        Timer() : data(), start_time( get_nanotime() ){}
        Timer(nanotime_t start_time_) : data(), start_time(start_time_){}

        void step( const std::string& name){
            data.push_back(std::make_pair(name, now()));
        }

        operator SEXP() const {
            size_t n = data.size();
            NumericVector out(n);
            CharacterVector names(n);
            for (size_t i=0; i<n; i++) {
                names[i] = data[i].first;
                out[i] = data[i].second - start_time ;
            }
            out.attr("names") = names;
            return out;
        }

        static std::vector<Timer> get_timers(int n){
            return std::vector<Timer>( n, Timer() ) ;
        }

        inline nanotime_t now() const {
            return get_nanotime() ;
        }

        inline nanotime_t origin() const {
            return start_time ;
        }

    private:
        typedef std::pair<std::string,nanotime_t> Step;
        typedef std::vector<Step> Steps;

        Steps data;
        const nanotime_t start_time;
    };

}