study day changed to integer

pharmaverse · Mar 4, 2024 · e6d8758 · e6d8758
1 parent 4379011
commit e6d8758
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)
 }