fix subtitle spacing

krzyzinskim · krzyzinskim · commit 19365d19f5fd · 2023-10-22T18:51:54.000+02:00
diff --git a/R/plot_model_profile_survival.R b/R/plot_model_profile_survival.R
@@ -230,7 +230,7 @@ plot2_mp <- function(x,
     if (!is.null(subtitle) && subtitle == "default") {
         subtitle <- paste0("created for the ", unique(variable), " variable")
         if (single_timepoint && !marginalize_over_time) {
-            subtitle <- paste0(subtitle, " and time =", times)
+            subtitle <- paste0(subtitle, " and time = ", times)
         }
     }
 
diff --git a/R/plot_predict_profile_survival.R b/R/plot_predict_profile_survival.R
@@ -192,7 +192,7 @@ plot2_cp <- function(x,
     if (!is.null(subtitle) && subtitle == "default") {
         subtitle <- paste0("created for the ", unique(variable), " variable")
         if (single_timepoint && !marginalize_over_time) {
-            subtitle <- paste0(subtitle, " and time =", times)
+            subtitle <- paste0(subtitle, " and time = ", times)
         }
     }
 

Original file line number	Diff line number	Diff line change
`@@ -230,7 +230,7 @@ plot2_mp <- function(x,`
`230`	`230`	`if (!is.null(subtitle) && subtitle == "default") {`
`231`	`231`	`subtitle <- paste0("created for the ", unique(variable), " variable")`
`232`	`232`	`if (single_timepoint && !marginalize_over_time) {`
`233`		`- subtitle <- paste0(subtitle, " and time =", times)`
	`233`	`+ subtitle <- paste0(subtitle, " and time = ", times)`
`234`	`234`	`}`
`235`	`235`	`}`
`236`	`236`
Original file line number	Diff line number	Diff line change
`@@ -192,7 +192,7 @@ plot2_cp <- function(x,`
`192`	`192`	`if (!is.null(subtitle) && subtitle == "default") {`
`193`	`193`	`subtitle <- paste0("created for the ", unique(variable), " variable")`
`194`	`194`	`if (single_timepoint && !marginalize_over_time) {`
`195`		`- subtitle <- paste0(subtitle, " and time =", times)`
	`195`	`+ subtitle <- paste0(subtitle, " and time = ", times)`
`196`	`196`	`}`
`197`	`197`	`}`
`198`	`198`