From 09a25f6a0871b76c878e2e521172746a4e6f092d Mon Sep 17 00:00:00 2001
From: Holger Brandl <brandl@mpi-cbg.de>
Date: Thu, 18 Sep 2014 15:26:43 +0200
Subject: [PATCH] finished iteration

---
 R/core_commons.R | 1 +
 R/utils/spinr.R  | 1 +
 2 files changed, 2 insertions(+)

diff --git a/R/core_commons.R b/R/core_commons.R
index 8499262..4de10a3 100644
--- a/R/core_commons.R
+++ b/R/core_commons.R
@@ -129,6 +129,7 @@ set_names <- function(df, newnames){
 
 print_head <- function(df, desc=NULL){
     print(head(df))
+    print(nrow(df))
     return(df)
 }
 
diff --git a/R/utils/spinr.R b/R/utils/spinr.R
index d674724..1541fdd 100644
--- a/R/utils/spinr.R
+++ b/R/utils/spinr.R
@@ -32,6 +32,7 @@ options(width=150)
     '
     ls()
 
+    ## custom title http://stackoverflow.com/questions/14124022/setting-html-meta-elements-with-knitr
     opts_chunk$set(cache = TRUE, fig.width=10, width=120)
     knit2html(basename(mdScript), header=cssHeader)
 
-- 
GitLab