Skip to content

Instantly share code, notes, and snippets.

View calabresem's full-sized avatar

Marcos C calabresem

1 follower · 6 following
  • Marcos Calabrese
  • Buenos Aires, Argentina
View GitHub Profile
@calabresem
calabresem / rbindlist_files.R
Last active August 29, 2015 14:17
Elegant way to bind multiple files (they must have same structure) using data.table
library( data.table )
file_locations_vector <- c( '/path_to/file1.csv', '/path_to/file2.csv', '/path_to_other/file3.csv' )
buffer <- rbindlist( lapply( file_locations_vector, fread ) )
@calabresem
calabresem / ar-tablekit.js
Created March 21, 2015 19:49
Argentine date & currency custom format for TableKit sorting.
TableKit.Sortable.addSortType(
new TableKit.Sortable.Type( 'currency-ar', {
pattern : /^\$(((\d{1,3},)(\d{3},)*\d{3})|(\d{1,3}))\.\d{2}$/,
normal : function(v) {
v = v.replace( '.', '' );
v = v.replace( ',', '.' );
v = parseFloat(v.replace(/^.*?([-+]?[\d]*\.?[\d]+(?:[eE][-+]?[\d]+)?).*$/,"$1"));
return isNaN(v) ? 0 : v;
}
}),
@calabresem
calabresem / gist:e4d6caf9796f83a0f914
Created December 10, 2014 19:01
Max between cols
a <- data.frame( A=seq( from = 1, length.out = 10),
B=seq( from = 20, length.out = 10, by = -1 ) )
a$C <- a$A + a$B
a$D <- apply( X = a, MARGIN = 1, FUN = function( x ) {
return( x['C'] + max( x['A'], x['B'] ) )
})
@calabresem
calabresem / keybase.md
Created October 29, 2014 03:34
keybase.md

Keybase proof

I hereby claim:

  • I am calabresem on github.
  • I am marcosc (https://keybase.io/marcosc) on keybase.
  • I have a public key whose fingerprint is 2E0C 7D52 650E B063 683D CB16 F838 1698 1DC7 E200

To claim this, I am signing this object: