From e6d87584979cc30d77319c2a13a817d69e0ea568 Mon Sep 17 00:00:00 2001
From: Rosemary Li <li.yaqiong@gene.com>
Date: Mon, 4 Mar 2024 14:59:11 +0000
Subject: [PATCH] study day changed to integer

---
 R/derive_study_day.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/derive_study_day.R b/R/derive_study_day.R
index bac83d5d..c0682bf9 100644
--- a/R/derive_study_day.R
+++ b/R/derive_study_day.R
@@ -127,6 +127,6 @@ derive_study_day <- function(sdtm_in,
   res <- ifelse(tgt >= ref, tgt - ref + 1L, tgt - ref)
 
   sdtm_in <- sdtm_in[original_variables]
-  sdtm_in[study_day_var] <- res
+  sdtm_in[study_day_var] <- as.integer(res)
   return(sdtm_in)
 }