From 14780391398f7b8dbe0ec81bb3e031a1d488ed02 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Wed, 7 May 2025 20:39:37 +0200
Subject: [PATCH] gnu: Add r-ggsurvfit.

* gnu/packages/cran.scm (r-ggsurvfit): New variable.

Change-Id: I39f0057e1335f2d3f9597f2b0ffa2b9755a3c20d
---
 gnu/packages/cran.scm | 44 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)

diff --git a/gnu/packages/cran.scm b/gnu/packages/cran.scm
index dc9c16c4fb6b1004018949a688d595a6a507c8df..58f6be1bdc889aa2078239fc8dbfdd6f1858bd7b 100644
--- a/gnu/packages/cran.scm
+++ b/gnu/packages/cran.scm
@@ -4391,6 +4391,50 @@ robust, and Bayesian versions of t-test/ANOVA, correlation analyses,
 contingency table analysis, meta-analysis, and regression analyses.")
     (license license:gpl3)))
 
+(define-public r-ggsurvfit
+  (package
+    (name "r-ggsurvfit")
+    (version "1.1.0")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (cran-uri "ggsurvfit" version))
+       (sha256
+        (base32 "0c3qv9gii3ndqip3nxs08bx7lvh6sm46mxz8nyi627zbgqmhwrr5"))))
+    (properties
+     '((upstream-name . "ggsurvfit")
+       (updater-ignored-native-inputs . ("r-tidycmprsk"))))
+    (build-system r-build-system)
+    ;; Some 20 tests require tidycmprsk, which pulls in React.  So I'm happy
+    ;; to ignore the tests.
+    (arguments (list #:tests? #false))
+    (propagated-inputs (list r-broom
+                             r-cli
+                             r-dplyr
+                             r-ggplot2
+                             r-glue
+                             r-gtable
+                             r-patchwork
+                             r-rlang
+                             r-survival
+                             r-tidyr))
+    (native-inputs (list r-knitr
+                         r-scales
+                         r-spelling
+                         r-testthat
+                         r-vdiffr
+                         r-withr))
+    (home-page "https://github.com/pharmaverse/ggsurvfit")
+    (synopsis "Flexible time-to-event figures")
+    (description
+     "This package is meant to ease the creation of
+time-to-event (i.e. survival) endpoint figures.  The modular functions create
+figures ready for publication.  Each of the functions that add to or modify
+the figure are written as proper ggplot2 @code{geoms} or @code{stat} methods,
+allowing the functions from this package to be combined with any function or
+customization from ggplot2 and other ggplot2 extension packages.")
+    (license license:expat)))
+
 (define-public r-ggthemes
   (package
     (name "r-ggthemes")