fixing issue issue_330 (#334)

fixing time plot x-axis
OHDSI · Sep 13, 2024 · 8e1f6c7 · 8e1f6c7
1 parent 2b72c6d
commit 8e1f6c7
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/R/helpers-sccsPlots.R b/R/helpers-sccsPlots.R
@@ -488,7 +488,15 @@ plotSeasonSpline <- function(seasonSpline, rrLim = c(0.1, 10)) {
 
 # unknown function?
 convertMonthToStartDate <- function(x){
-  return(as.Date(x, origin = "1950-01-01"))
+  #return(as.Date(x, origin = "1950-01-01"))
+  year <- floor(x / 12)
+  month <- floor(x %% 12) + 1
+  return(as.Date(sprintf(
+    "%s-%s-%s",
+    year,
+    month,
+    1
+  )))
 }
 # adding missing sccsModel as input
 plotCalendarTimeSpline <- function(calendarTimeSpline, rrLim = c(0.1, 10)) {