!!! This Gist tutorial is deprecated. Its new version is available here !!!
This is some red text.
- Author: Thomas Girke
- Last update: 18-Nov-2020
| print.data.frame = function(x, ..., topn = 5, nrows = 20) { | |
| nr = nrow(x) | |
| if (nr <= nrows) { | |
| out = x | |
| splitprint = FALSE | |
| } else { | |
| out = rbind(head(x, topn), tail(x, topn)) | |
| splitprint = TRUE | |
| } |
This is some red text.