fix for history

sdllc · May 19, 2016 · 96d73d4 · 96d73d4
1 parent 6fe186c
commit 96d73d4
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/BERT/BaseFunctions.R b/BERT/BaseFunctions.R
@@ -459,11 +459,10 @@ history <- function( max.show=25, reverse=FALSE, pattern="" ){
 print.history.list <- function(h){
 
 	len <- length(h);
-	decimals <- max( 2, floor( log10( len )) + 1 );
-	pattern <- paste( "\t%0", decimals, "d: %s\n", sep="" );
+	pattern <- paste( "  %s\n", sep="" );
 
 	cat( "\n" );
-	for( i in len ){ cat( sprintf( pattern, i, h[i] )); }
+	for( i in 1:len ){ cat( sprintf( pattern, h[i] )); }
 	cat( "\n" );
 
 }