fig: use the $out path in the subtitle

The input dataset is not enough to determine which script produced a
given plot.

garlic/fig/osu/mtu.R

@@ -8,6 +8,7 @@ args=commandArgs(trailingOnly=TRUE)
 # Read the timetable from args[1]
 input_file = "input.json"
 if (length(args)>0) { input_file = args[1] }
+if (length(args)>1) { output = args[2] } else { output = "?" }
 
 # Load the dataset in NDJSON format
 dataset = jsonlite::stream_in(file(input_file), verbose=FALSE) %>%
@@ -55,7 +56,7 @@ p = ggplot(data=df, aes(x=sizeKB, y=bw)) +
   geom_vline(aes(xintercept = PSM2_MTU.val/1024), color="red") +
   labs(x="Message size (KiB)", y="Bandwidth (GB/s)",
     #title=sprintf("OSU benchmark: osu_bw --iterations %d", iterations), 
-    subtitle=gsub("-", "\uad", input_file)) +
+    subtitle=gsub("-", "\uad", output)) +
   geom_point(shape=21, size=2) +
   #annotate("text", x = 10.2, y = 8.5e3, label = "MTU = 10KB", color="red", hjust=0) +
   facet_wrap(vars(PSM2_MTU), nrow=3, labeller = "label_both") +