r-lib
diff --git a/‎R/flame.R‎
Lines changed: 2 additions & 1 deletion b/‎R/flame.R‎
Lines changed: 2 additions & 1 deletion
diff --git a/‎tests/testthat/_snaps/flame.md‎
Lines changed: 11 additions & 11 deletions b/‎tests/testthat/_snaps/flame.md‎
Lines changed: 11 additions & 11 deletions
@@ -110,10 +110,11 @@ print_flame_tree <- function(tree, width, min_pct, total_samples, max_depth) {
 
       bar_width <- max(1, round(width * item$samples / total_samples))
       bar <- strrep("=", bar_width)
+      padding <- strrep(" ", width - bar_width)
       indent <- strrep("  ", item$depth)
 
       name <- truncate_string(item$name, 40)
-      cat(sprintf("%s[%s] %s (%.1f%%)\n", indent, bar, name, pct))
+      cat(sprintf("[%s%s]%s %s (%.1f%%)\n", bar, padding, indent, name, pct))
     }
   }
 }
 
@@ -10,10 +10,10 @@
       Total time: 50 ms | Width: 70 chars | Min: 2%
       
       [======================================================================] (root) 100%
-        [======================================================================] outer (100.0%)
-          [==========================================] inner (60.0%)
-          [==============] helper (20.0%)
-            [============================] deep (40.0%)
+      [======================================================================]   outer (100.0%)
+      [==========================================                            ]     inner (60.0%)
+      [==============                                                        ]     helper (20.0%)
+      [============================                                          ]       deep (40.0%)
       
       Legend: [====] = time spent, width proportional to time
 
@@ -29,10 +29,10 @@
       Total time: 50 ms | Width: 40 chars | Min: 2%
       
       [========================================] (root) 100%
-        [========================================] outer (100.0%)
-          [========================] inner (60.0%)
-          [========] helper (20.0%)
-            [================] deep (40.0%)
+      [========================================]   outer (100.0%)
+      [========================                ]     inner (60.0%)
+      [========                                ]     helper (20.0%)
+      [================                        ]       deep (40.0%)
       
       Legend: [====] = time spent, width proportional to time
 
@@ -48,9 +48,9 @@
       Total time: 50 ms | Width: 70 chars | Min: 30%
       
       [======================================================================] (root) 100%
-        [======================================================================] outer (100.0%)
-          [==========================================] inner (60.0%)
-            [============================] deep (40.0%)
+      [======================================================================]   outer (100.0%)
+      [==========================================                            ]     inner (60.0%)
+      [============================                                          ]       deep (40.0%)
       
       Legend: [====] = time spent, width proportional to time
Original file line number	Diff line number	Diff line change
`@@ -110,10 +110,11 @@ print_flame_tree <- function(tree, width, min_pct, total_samples, max_depth) {`
`110`	`110`
`111`	`111`	`bar_width <- max(1, round(width * item$samples / total_samples))`
`112`	`112`	`bar <- strrep("=", bar_width)`
	`113`	`+ padding <- strrep(" ", width - bar_width)`
`113`	`114`	`indent <- strrep(" ", item$depth)`
`114`	`115`
`115`	`116`	`name <- truncate_string(item$name, 40)`
`116`		`- cat(sprintf("%s[%s] %s (%.1f%%)\n", indent, bar, name, pct))`
	`117`	`+ cat(sprintf("[%s%s]%s %s (%.1f%%)\n", bar, padding, indent, name, pct))`
`117`	`118`	`}`
`118`	`119`	`}`
`119`	`120`	`}`