From 3e9782ec9ec1b162bbb9d0a431e1cbcda5354af8 Mon Sep 17 00:00:00 2001
From: Rammprasad Ganapathy <ganapathy.rammprasad@gene.com>
Date: Tue, 18 Jun 2024 21:27:29 +0000
Subject: [PATCH] Fix pipeline failure

---
 R/derive_blfl.R | 138 ++++++++++++++++++++++++++++++++++++++++++------
 1 file changed, 123 insertions(+), 15 deletions(-)

diff --git a/R/derive_blfl.R b/R/derive_blfl.R
index 94003c25..3d413859 100644
--- a/R/derive_blfl.R
+++ b/R/derive_blfl.R
@@ -174,21 +174,129 @@ dtc_timepart <- function(dtc, partial_as_na = TRUE, ignore_seconds = TRUE) {
 #'
 #' dm
 #'
-#' sdtm_in <-
-#'   tibble::tribble(
-#'     ~DOMAIN, ~oak_id, ~raw_source, ~patient_number, ~USUBJID, ~VSDTC, ~VSTESTCD, ~VSORRES, ~VSSTAT, ~VISIT,
-#'     "VS", 1L, "VTLS1", 375L, "test_study-375", "2020-09-01T13:31", "DIABP", "90", NA, "SCREENING",
-#'     "VS", 2L, "VTLS1", 375L, "test_study-375", "2020-10-01T11:20", "DIABP", "90", NA, "SCREENING",
-#'     "VS", 1L, "VTLS1", 375L, "test_study-375", "2020-09-28T10:10", "PULSE", "ND", NA, "SCREENING",
-#'     "VS", 2L, "VTLS1", 375L, "test_study-375", "2020-10-01T13:31", "PULSE", "85", NA, "SCREENING",
-#'     "VS", 1L, "VTLS2", 375L, "test_study-375", "2020-09-28T10:10", "SYSBP", "120", NA, "SCREENING",
-#'     "VS", 2L, "VTLS2", 375L, "test_study-375", "2020-09-28T10:05", "SYSBP", "120", NA, "SCREENING",
-#'     "VS", 1L, "VTLS1", 376L, "test_study-376", "2020-09-20", "DIABP", "75", NA, "SCREENING",
-#'     "VS", 1L, "VTLS1", 376L, "test_study-376", "2020-09-20", "PULSE", NA, "NOT DONE", "SCREENING", # nolint
-#'     "VS", 2L, "VTLS1", 376L, "test_study-376", "2020-09-20", "PULSE", "110", NA, "SCREENING",
-#'     "VS", 2L, "VTLS1", 378L, "test_study-378", "2020-01-20T10:00", "PULSE", "110", NA, "SCREENING",
-#'     "VS", 3L, "VTLS1", 378L, "test_study-378", "2020-01-21T11:00", "PULSE", "105", NA, "SCREENING"
-#'   )
+#'   sdtm_in <-
+#' tibble::tribble(
+#'   ~ DOMAIN,
+#'   ~ oak_id,
+#'   ~ raw_source,
+#'   ~ patient_number,
+#'   ~ USUBJID,
+#'   ~ VSDTC,
+#'   ~ VSTESTCD,
+#'   ~ VSORRES,
+#'   ~ VSSTAT,
+#'   ~ VISIT,
+#'   "VS",
+#'   1L,
+#'   "VTLS1",
+#'   375L,
+#'   "test_study-375",
+#'   "2020-09-01T13:31",
+#'   "DIABP",
+#'   "90",
+#'   NA,
+#'   "SCREENING",
+#'   "VS",
+#'   2L,
+#'   "VTLS1",
+#'   375L,
+#'   "test_study-375",
+#'   "2020-10-01T11:20",
+#'   "DIABP",
+#'   "90",
+#'   NA,
+#'   "SCREENING",
+#'   "VS",
+#'   1L,
+#'   "VTLS1",
+#'   375L,
+#'   "test_study-375",
+#'   "2020-09-28T10:10",
+#'   "PULSE",
+#'   "ND",
+#'   NA,
+#'   "SCREENING",
+#'   "VS",
+#'   2L,
+#'   "VTLS1",
+#'   375L,
+#'   "test_study-375",
+#'   "2020-10-01T13:31",
+#'   "PULSE",
+#'   "85",
+#'   NA,
+#'   "SCREENING",
+#'   "VS",
+#'   1L,
+#'   "VTLS2",
+#'   375L,
+#'   "test_study-375",
+#'   "2020-09-28T10:10",
+#'   "SYSBP",
+#'   "120",
+#'   NA,
+#'   "SCREENING",
+#'   "VS",
+#'   2L,
+#'   "VTLS2",
+#'   375L,
+#'   "test_study-375",
+#'   "2020-09-28T10:05",
+#'   "SYSBP",
+#'   "120",
+#'   NA,
+#'   "SCREENING",
+#'   "VS",
+#'   1L,
+#'   "VTLS1",
+#'   376L,
+#'   "test_study-376",
+#'   "2020-09-20",
+#'   "DIABP",
+#'   "75",
+#'   NA,
+#'   "SCREENING",
+#'   "VS",
+#'   1L,
+#'   "VTLS1",
+#'   376L,
+#'   "test_study-376",
+#'   "2020-09-20",
+#'   "PULSE",
+#'   NA,
+#'   "NOT DONE",
+#'   "SCREENING",
+#'   "VS",
+#'   2L,
+#'   "VTLS1",
+#'   376L,
+#'   "test_study-376",
+#'   "2020-09-20",
+#'   "PULSE",
+#'   "110",
+#'   NA,
+#'   "SCREENING",
+#'   "VS",
+#'   2L,
+#'   "VTLS1",
+#'   378L,
+#'   "test_study-378",
+#'   "2020-01-20T10:00",
+#'   "PULSE",
+#'   "110",
+#'   NA,
+#'   "SCREENING",
+#'   "VS",
+#'   3L,
+#'   "VTLS1",
+#'   378L,
+#'   "test_study-378",
+#'   "2020-01-21T11:00",
+#'   "PULSE",
+#'   "105",
+#'   NA,
+#'   "SCREENING"
+#' )
 #'
 #' sdtm_in
 #'