alignement

close #6
VincentGuyader · Jun 24, 2017 · b3c751f · b3c751f
1 parent 9bd0ac2
commit b3c751f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/nice.R b/R/nice.R
@@ -1,8 +1,8 @@
 dd <- function(x,l=60) {
   if (nchar(x) <= (l-10)) { # ptet pas -4 ici
     base <- (l - nchar(x) - 2)/2
-    return(paste(c("####", rep(" ", floor(base)-6), x, rep(" ",
-      ceiling(base)), "####"), collapse = ""))
+    return(paste(c("####", rep(" ", floor(base)-3), x, rep(" ",
+      ceiling(base)-3), "####"), collapse = ""))
   }
 
   s1 <- strsplit(x, "\\s")[[1]]