From 552d12a6752a33500147557926429ff9bbaf8a83 Mon Sep 17 00:00:00 2001
From: Will Hulme <25637345+wjchulme@users.noreply.github.com>
Date: Wed, 26 Mar 2025 21:13:19 +0000
Subject: [PATCH 1/2] fix newline

---
 analysis/km.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/analysis/km.R b/analysis/km.R
index 61f6f4e..7907b8e 100644
--- a/analysis/km.R
+++ b/analysis/km.R
@@ -205,8 +205,8 @@ if(length(exposure)>0){
       max_fup_time = max(event_time),
       max_event_time = max(event_time[event_indicator])
     )
-  cat("maximum follow-up time is [", paste0(max_time_data$max_fup_time, collapse= ", "), "]", "\\n")
-  cat("maximum event time is [", paste0(max_time_data$max_event_time, collapse= ", "), "]", "\\n")
+  cat("maximum follow-up time is [", paste0(max_time_data$max_fup_time, collapse= ", "), "]", "\n")
+  cat("maximum event time is [", paste0(max_time_data$max_event_time, collapse= ", "), "]", "\n")
 }
 
 

From 5259c4c04c51be02a8de6d1a1e07f5137e9a0157 Mon Sep 17 00:00:00 2001
From: Will Hulme <25637345+wjchulme@users.noreply.github.com>
Date: Wed, 26 Mar 2025 21:14:34 +0000
Subject: [PATCH 2/2] ensure if exposure not set then plotting works

---
 analysis/km.R | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/analysis/km.R b/analysis/km.R
index 7907b8e..220af39 100644
--- a/analysis/km.R
+++ b/analysis/km.R
@@ -470,9 +470,18 @@ if(smooth){
 km_plot <- function(.data) {
 
   data_with_time0 <-
+  if(length(exposure)>0L){
     .data |>
+      mutate(
+        "{exposure}" := as.factor(!!!exposure_syms)
+      )
+  } else {
+    .data
+  }
+
+  data_with_time0 <-
+    data_with_time0 |>
     mutate(
-      "{exposure}" := as.factor(!!!exposure_syms),
       lagtime = lag(time, 1, 0), # assumes the time-origin is zero
     ) %>%
     group_modify(
@@ -486,6 +495,7 @@ km_plot <- function(.data) {
         .before = 0
       )
     )
+
   ggplot_init <- if(length(exposure)==0L){
     ggplot(data_with_time0)
   } else {