Add width and height to ggsave for consistent KM plot figure size

Copilot · parmsam-pfizer · web-flow · commit a0c3763ba666 · 2026-04-10T14:00:02.000Z
Agent-Logs-Url: https://github.com/RConsortium/submissions-pilot5-datasetjson/sessions/fe436a0d-4777-4bce-9c86-9c3229a03b63 Co-authored-by: parmsam-pfizer <107635309+parmsam-pfizer@users.noreply.github.com>
diff --git a/pilot5-submission/pilot5-programs/tlf-kmplot.r b/pilot5-submission/pilot5-programs/tlf-kmplot.r
@@ -119,8 +119,11 @@ if (!dir.exists(file.path(path$output, "pdf"))) {
   dir.create(file.path(path$output, "pdf"))
 }
 
+# width and height are specified to ensure consistent figure size across workstations
 ggsave(file,
   filename = file.path(path$output, "pdf/tlf-kmplot-pilot5.pdf"),
+  width = 10,
+  height = 8,
   scale = 2
 )
 

Original file line number	Diff line number	Diff line change
`@@ -119,8 +119,11 @@ if (!dir.exists(file.path(path$output, "pdf"))) {`
`119`	`119`	`dir.create(file.path(path$output, "pdf"))`
`120`	`120`	`}`
`121`	`121`
	`122`	`+# width and height are specified to ensure consistent figure size across workstations`
`122`	`123`	`ggsave(file,`
`123`	`124`	`filename = file.path(path$output, "pdf/tlf-kmplot-pilot5.pdf"),`
	`125`	`+ width = 10,`
	`126`	`+ height = 8,`
`124`	`127`	`scale = 2`
`125`	`128`	`)`
`126`	`129`