commit v2.3.4

OdyOSG · Oct 2, 2024 · 2b4022b · 2b4022b
1 parent e033553
commit 2b4022b
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 4 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,7 @@
+# EHDEN HMB v2.3.4
+
+* Added check in function `getTteResKM`(_procedureAnalysis.R). If no data are returned, skip export and subsequent data transformation.
+
 # EHDEN HMB v2.3.3
 
 * Edited `hmb` cohort definition. Added Observation domain block to Cohort Entry Events because of a change of concept `4302555` from Condition to Observation.

diff --git a/analysis/private/_procedureAnalysis.R b/analysis/private/_procedureAnalysis.R
@@ -165,6 +165,8 @@ getTteResKM <- function(tb, outcomeCohortId) {
       survival::Surv(duration, event) ~ name, data = tab2
     )
 
+  } else {
+    survFit <- 0
   }
 
   return(survFit)
@@ -286,10 +288,14 @@ executeProcedureAnalysis <- function(con,
 
     ttiFolder_rds <- paste0(ttiFolder, "_rds") %>% fs::dir_create()
 
-    readr::write_rds(
-      survDatKM,
-      here::here(ttiFolder_rds, paste0("tti_", databaseId, "_", targetCohortIds[i], ".rds"))
-    )
+    if (is.list(survDatKM)) {
+
+        readr::write_rds(
+          survDatKM,
+          here::here(ttiFolder_rds, paste0("tti_", databaseId, "_", targetCohortIds[i], ".rds"))
+        )
+
+  }
 
     fileNm2 <- glue::glue("procedure_survival_{idx}")