Merge pull request #58 from OHDSI/sqlite_dates

convert dates to numbers when loading data to sqlite

R/EunomiaData.R

@@ -140,6 +140,20 @@ extractLoadData <- function(from, to, dbms = "sqlite", verbose = interactive())
     # CDM table and column names should be lowercase: https://github.com/OHDSI/CommonDataModel/issues/509#issuecomment-1315754238
     names(tableData) <- tolower(names(tableData))
     tableName <- tools::file_path_sans_ext(tolower(dataFiles[i]))
+
+    if (dbms == "sqlite") {
+      # Convert dates and datetime to UNIX timestamp for sqlite
+      for (i in seq_len(ncol(tableData))) {
+        column <- tableData[[i]]
+        if (inherits(column, "Date")) {
+          tableData[, i] <- as.numeric(as.POSIXct(as.character(column), origin = "1970-01-01", tz = "GMT"))
+        }
+        if (inherits(column, "POSIXct")) {
+          tableData[, i] <- as.numeric(as.POSIXct(column, origin = "1970-01-01", tz = "GMT"))
+        }
+      }
+    }
+
     DBI::dbWriteTable(conn = connection, name = tableName, value = tableData)
     if (verbose) {
       cli::cat_bullet(tableName, bullet = 1)