| > f <- function(...) { | |
| + promises(environment()) | |
| + } | |
| > g <- function(x = 3, ...) { | |
| + z <- 4 | |
| + f(z = z, ..., x = x) | |
| + } | |
| > h <- function(..., a = 2) { |
| require(dplyr) | |
| require(Rcpp) | |
| require(microbenchmark) | |
| # from the cran-logs-dply repo | |
| logs <- readRDS("logs.rds") | |
| # system.time( { by_day <- group_by(logs, date) } ) | |
| sourceCpp( "timings.cpp" ) |
This uses siesta to pull from travis the log for the last build of a given project.
$ travis_log hadley/dplyr | tail -n30
Le chargement a nécessité le package : methods
Le chargement a nécessité le package : siesta
* checking package vignettes in ‘inst/doc’ ... WARNING
Package vignettes without corresponding PDF/HTML:
‘benchmark-baseball.Rmd’
‘databases.Rmd’
Simple R script that grabs the opened issues from a github repo :
$ github_issues hadley/dplyr
number user title labels
1 98 hadley Setup databases with travis enhancement
2 97 hadley Unique operator enhancement
3 96 hadley Implement right join and outer join enhancement
4 95 romainfrancois Hybrid evaluation enhancement, internal
5 94 hadley Make sure all vignettes work from R CMD check bug
| #include <dplyr.h> | |
| // [[Rcpp::depends(BH,dplyr)]] | |
| using namespace Rcpp ; | |
| using namespace dplyr ; | |
| class IndexHelper { | |
| public: | |
| IndexHelper( int pos_, int n_) : pos(pos_), n(n_){} | |
| x = <0x1038ff8a0>, dataptr = <0x1038ff8c8> | |
| x = <0x1038ff8a0>, dataptr = <0x1038ff8c8> | |
| x = <0x1038ff8a0>, dataptr = <0x1038ff8c8> | |
| x = <0x1038ff8a0>, dataptr = <0x1038ff8c8> | |
| x = <0x1038ff8a0>, dataptr = <0x1038ff8c8> | |
| x = <0x1038ff8a0>, dataptr = <0x1038ff8c8> | |
| x = <0x1038ff8a0>, dataptr = <0x1038ff8c8> | |
| x = <0x1038ff8a0>, dataptr = <0x1038ff8c8> | |
| x = <0x1038ff8a0>, dataptr = <0x1038ff8c8> | |
| x = <0x1038ff8a0>, dataptr = <0x1038ff8c8> |
| #include <Rcpp.h> | |
| using namespace Rcpp ; | |
| template <typename T> | |
| inline void set_item_impl( List& target, int i, const T& obj, CharacterVector& names, traits::true_type ){ | |
| target[i] = obj.object ; | |
| names[i] = obj.name ; | |
| } | |
| template <typename T> |
| #include <Rcpp.h> | |
| using namespace Rcpp ; | |
| template <typename T> | |
| inline void set_item_impl( List& target, int i, const T& obj, CharacterVector& names, traits::true_type ){ | |
| target[i] = obj.object ; | |
| names[i] = obj.name ; | |
| } | |
| template <typename T> |
| #include <Rcpp.h> | |
| using namespace Rcpp; | |
| typedef SEXP (*CCODE)(SEXP, SEXP, SEXP, SEXP); | |
| /* Information for Deparsing Expressions */ | |
| typedef enum { | |
| PP_INVALID = 0, | |
| PP_ASSIGN = 1, | |
| PP_ASSIGN2 = 2, |
| #include <Rcpp.h> | |
| using namespace Rcpp; | |
| // [[Rcpp::export]] | |
| NumericVector rowApply0(NumericMatrix& x, const Function& FUN) | |
| { | |
| int n = x.nrow(); | |
| NumericVector result = no_init(n); | |
| for (int r = 0; r < n; r++) { |